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もっと先の話をしよう0 

クリエイティブワークステーション X 68000 。 


分野を問わず：既存にこだわらないものを創り出すことは 
たいへんな苦労をともなうものです。傑出した創意と情熱、 
そのプロダクツに対する将来的な展 M 。 机上での設計 
は、なるほど簡単かも知れませんが、それを世に問う場合 
の責任の重大さは並々ならぬものです。とりわけパーソナ 
ル コンピュータの 分野では、必然的にソフトウェアの資産 
が問われ、ハードウェアが一人歩きすることなど、かなわ 
ないのが現状でした。今、さかんにとりざたされている、 
いわゆるコンパチプ>レ路線も、まさにそうした市場環境が 
生み出した産物でしよう。 

X 68000 が 登場じ C 十ヶルソフトウェア而ではほぼ100% 
白紙の状態で世に問わざるを得なかったこの マシンが、 
これほどまで ( こ熱いご支持をいただいたことに、ユーザー 
各位に心から感謝するとともに、開発当初より5年先を見 
つめてきたその思想に意を強くするものです。そして今、この 
マシンのポテンシャルに ふさわしいソフトウェアの登場で： 
また新たな局面を迎えようと U ： います。次のステップへ、 
X 68000 はさらに飛躍 LT ゆきます。 


•実装密度を追求したフォルム_新のマンハッタンシエイプ*広く 
リニアなアドレス空間、68000搭載参テキスト、グラフィック、スプラ 
イト、独立3画面設計、 2M バイトの大容量メモリ籲フレンドリー OS、 
Human 68k 搭載 • 連文節変換、マルチフォントをサボートした強力 
日本語処理 • 1024 x 1024ドット（最大表示エリア 768X512 ドット） 
の実画面エリアを装備した高解像度表示能力 * 512 x 512ドット、 










65,536色同時発色籲水平32、1画面128のスプライト機能参オー 
ノ くースキャン機能を採用した512 x 512ドットレベルのスーノ、。ー イン 
ポーズ春テキストビットマップ方式採用參8重和音ステレオ FM 音 
源搭載春音声デジタイズ記憶 AD PCM 春新開発マウス • トラック 
ボール • 1 M バイト 5”FDD 2基搭載 •X-BASIC、 日本語ワードプロ 
セッサ、グラディウス同梱 

豊富な周辺機器が 

クリエイティブワークをサポート。 


• 15型カラーディスプレイ 
• カラーイメージユニット 
參カラービデオプリンタ 

• 24 ピン漢字プリンタ （80 桁） 

• 24ピン漢字プリンタ （ 136桁) 

• 24 ビン漢字プリンタ （80 桁） 

籲熱転写カラー漢字プリンタ 
•ハードディスクユニット （10 MB ) 
•増設用ハードディスクユニット （10 MB ) 
籲ハードディスクユニット （20 MB ) 
•モデムユニット 

• RS-232C ケーブル(平行接続型） 

• RS-232C ケーブル（クロス 接続型） 
• 1 MB 増設 RAM ボード（内蔵用） 

籲拡張 I/O 对•(ックス 

• 2MB 増設 RAM ポード* 

• 4MB 増設 RAM ポード* 

• GP- 旧ポ ーK 

參ユニバーサル I / O ボード 

• 增設用 RS-232C ボード (2 チャンネル） 

• 数値演算プロセッサボード 
•アンプ内蔵スピーカ‘ 

• ジョイカード 


CU-15M1(E*B) 標準価格99,800円 
CZ-6VT1 標準価格69,800円 
CZ-6PV1 標準価格198,000円 
CZ-8PK7 標準価格122,000円 
CZ-8PK8 標準価格152,00◦円 
CZ-8PK9 標準価格89,800円 
CZ-8PC2 標準価格69,800円 
CZ-500H 標準価格348,000円 
CZ-501H 標準価格258,000円 
CZ-620H 標準価格178,000円 
CZ-8TM2 標準価格49,800円 


〇 Z-8 し M1 
CZ-8 し M2 
CZ-6BE1 
CZ-6EB1 
CZ-6BE2 
CZ-6BE4 
CZ-6BG1 
CZ-6BU1 
CZ-6BF1 
CZ-6BP1 

システム (2 本1組） AN-160SP 標準価格59,800円 
CZ-8NJ1 標準価格1,700円 

※ご使用の際には CZ -6 BE 1 が必要です。 


標準価格7,200円 
標準価格7,200円 
標準価格35,000円 
標準価格88,000円 
標準価格79,800円 
標準価格138,000円 
標準価格59,800円 
標準価格39,800円 
標準価格49,800円 
標準価格79,800円 


ノ ーソナルワークステーション 

日000 


籲本体+キーボード CZ-600C(E.B) 標準価格369,000円 

»15型カラーティスブレイテレヒ CZ -600 D ( E * B ) 標準価格129.800円 
•チルトスタント CZ -6 STKE •日）標準価格5,800円 
•拡張|/〇ボックス CZ - BE 巳1標準価格88,000円 



•お問い合わせは…シャープ㈱電子機器事業本部システム機器営業部〒545大阪市阿倍野区長池町22番22号 0(06)621-1221( 大代表） 
- 電子機器事業本部テレビ事業部第4商品企画部〒162東京都新宿区市谷八幡町8番地 0(03)260-1161( 大代表）へ 














表紙絵 ： Nagasawa Shigeru 


UNIXUAT&T BELL LABORATORIES の OS です 

CP/M.P-CP/M^CP/M Plus, CP/M-86. CP. M-68K, 

CP/M- 800 0. C-DOS は DIGITAL RESEARCH 

XENIX, MS-DOS. Macro 80. Multiplan は f^CROSOFT 

SONY Filer は SONY 

MSX-DOS はアスキー 

SI-OS(i MULTISOLUTIONS 

OS-9, OS-9/68000 は MICROWARE 

UCSD p-system はカリフォルニア大学理事会 

FLEX は TSC 

Word Star, Word Master は MICRO PRO 

TURBO PASCAL, Sidekick は BORLAND INTERNATIO 

NAL 

HuBASIC はハドソンソフト 

SUPER BASE. WICS はキャリーラボ 

の登«商標です。その他ブログラム名. CPU 名は 

一舱に各メーカーの登録商標です。本文中では， 

” R ". “TM” マークは明紀していません.、 

本 K に揭敝されたすべてのブログラムは著作播法 
上，個人で使用するほかは無断複製することを禁 
じられています。 
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SHARP 


パソコンフリークたちへ 


パソコンとじ r の確かな伝統 


コンザ*設計__レ端子， 



XI シリーズの高機能を継承したコンバチブ 
ル設計、蓄積された豊富なソフトウヱァ資 

産•が利用できます0 ♦ヵセットテ-フソフトは利用できません 
* 伝統を受け継いだ多彩なグ 
ラフィック機能や スーハー インポ 
—ズ機能、サウンド機能 *JIS 
第1水準漢字 ROM 内蔵（漢子 
ユーテイリテイソフトイ寸） •yFDD 
1基内蔵、別売の CZ-53F (標 
準価格19,800円)の増設でデ^ 

アルドライブも可能參ューザー 
定義のキャラクタゼネレータ機能 


コンピュータ画面をビデオ録画できる - 一一〇 
ビデオやビデオ入力端子つきテレビとダイ 
レクトに接続、マルチビジュアル端子がパソ 
コンシーンを鮮やかに彩ります。たとえば 
ゲーム、ブレイしながらその過程をそのまま 
録画、後で再生すれば攻略法も研究でき 
るし、隠れキャラクタやウラ技も 確認できる。 
またベストスコアの達成や最終面をクリアし 
た決定的瞬間もバッチリ残せます。 



どちらから始めるか。ニューエンター 


HE システム 搭載] 

リアルなキャラクタで迫力あふれるゲームが 
楽しめるホームエンターテイメントシステムを 
XI に搭載しました。 HE システム専用カスタ 
ム CPU や高機能多色化スフライト1 C 、6重 
和音のサウンド機能、さらにマルチビジュア 
ル端子接続による鮮明画像、ソフトはコン 
パク トな専用 1 C カード。この新しさがオモシ 
口さ、もう遊び心はトッブギア•••。次世代ゲ 
一厶が思いっきり楽しめます。 


■鮮やかな画像/マルチビジュアル端子に 
よる鮮明画像。ゲームブレイをビデオに舍录 
画も OK 。 

■リアルなキャラクタ/最大 32 X 64 ドットの大 
迫カキャラクタで、よりリアルなゲームブレイ。 
■多彩なカラー表現/表示色は512色中 
256色同時表示、キメ細かな色彩で表現力 
がさらにアップ。 

■迫るサウンド/6オクターブ6重和音のサウ 
ンド機能でさらにひろがる臨場感。 

■ 1 C カード/ソフトは手のひらに入る専用 
1 C カード、遊び心が一気に加速する新しさ。 


次世代ゲームマシンの高感度 























楽しみ。テレビやビデオの映像をカラー静 
止画で瞬時に取り込めるカラーイメージボ 
ー ド※ 1 、ステレオタイブの FM 音源* 2 、話題 
のネットワークにアクセスしたり、仲間同士で 
データ やメ ッセー ジを交換できる パソコン 
通信 w もサポートします。 


これが XI 誕生 

5年目の 

解答です。 


们カ ラーイ 〆 ージ ボード II CZ -8 BV 2 橡準 価格39,800円 
熱転写カラー潠字プリンタ C 2-8 PC 2 摞準価格69,800円 
*2 ステレオタイフ FM 音源ボート •（スピーカー 2本1組標準装備 •ミュージック ツール同梱） 
CZ -8 BS I 標準価格23,800円 

*3 モデムユニット （300 ポー） CZ -8 TM 1 摞準価格29,800円 •モデムユニット 
(30 帥一/1200ポー 自動切換） GZ -8 TM 2 摞準価格49,800円 


テイメントマシン登場。 



専用パッド 

■専用パッド/ he システム専用のパッドを 



には、このマークのついている 
ic カードをご使用ください。 



•ハーソナルコンヒュータ+キーボード CZ -830 C - 巳 K (ブラック）標準価格 99. BQQ 円 


新登場 


XWtiuin 


籲ソフトはコンハクトな 

専用 1 C 力ード 



參14 型カラーディスプレイテレビ CZ - B 30 D - BK (ブラック）標準価格98,000円 

•チルトスタンド CZ -6 ST 卜巳（ブラック）標準価格5.800円 


淡株式会《 


♦お問い合わせは…シャーフ ㈱ 電子機器事業本部システム機器営業部〒545大阪市阿倍野区長池町22番22号 0(06)621-1221( 大代表） 
電子機器事業本部テレビ事業部第4商品企画部〒〗62東京都新宿区市谷八幡町8番地 0(03)260-1 161 ( 大代表）へ: 
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SHARP 


ノ 、ードの余裕がフレンドリーなオペレーション 
インテリジ^ントな機能に「 PRO 」 と称され 
そしてなによりも、あふれるクリエ 


マウスを使った簡単操作の浆，濟ワープロ 


MUSIC PRD-60K 


■ CZ -213 MS 標準価格18,800円 

メロデ f 譜、ピアノ譜、 iii 人8パートのス 
コア（総譜）を自凼なレイアウトで窬き込 
んだ譜而を、内蔵の FM 皆源で演奏 
できる楽譜ワープロ &演奏用ミュー 
ジックツールです > 音符データの入 
力/編集（複写.削除.柿入）はマウ 
スでとても簡単0フ。ルダウンメニューか 
ら皆符や記号を選んで五線譜に置い 
ていくだけで楽譜が入力できま1■。この 
「MUSIC PRO -68 K 」 で作曲し、その 
音色を 「SOUND PRO -68 K 」 で自 
Ill に設定して演奏するといった連力も 
可能。またコードとリズムを指定すれば、 
自動的に伴奏をつけて演秦してくれま 
1；伴奏リズムは200音色がプリセット 
され、自作も可能。1曲中50種類まで 
使用できます> もちろん、 mm 金体やパ 
一卜をプリントアウトしたり、演奏データ 
を BASIC 上で利用することもできます> 
クラシックカ*らジ'ャズ、ロック、歌 c 詰 Ulli ま 
で幅広いジャンノレの音楽をマウスを使 
って架鹋入力/演奏できる、作曲もアレ 
ンジもプロ感覚。最新のスタジオワーク 
をあなたのデ'スタで’ご体 i •険くだ'さい。 



サウンド•アートも、通信も 
ハードの機能を活かした 

\ ^/ /オリジナルソフト 


FM 音源をフ^サポ H ' するサウンド:^デ(夕 


SOUND PRO-60K 


■ CZ -214 MS 標準価格15,800円 

まるで スタジオのコンソールパネルを操 
作する感覚で音作りが架しめるサウン 

ドエテ^テイングツール。マウスを使つて 
FM 音源のパラメータを I 直接指定し 
たり、エンベロープやビブラートを音の 
イメージ：たとえば明るい/暗い v 銳い/ 
やわらかいなど、 n 葉による指定で思い 
どおりの音色が作成できます。さらに、 
サンプリングシンセサイザでおなじみ 
の波形とその時叫変化を3次元表示 
.するモードも装備。パラメータや波形を 
プリントアウトしたり、 BASIC や 「 MU ¬ 
SIC PRO -68 K 」 でデータを利用する 
こともできます。また作成した音色を50 
[ H 1の自動演奏で試聴できるモニタ機 
能や200音色のデータを膂理できる 
ファイル機能など、プロ感觉と使いやす 
さを両立させたゾフトで i -〇エデ f ットモ 
—ドでは、ヘルプ機能とじ CFM 音源 
の各パラメータ について 解説表示され 
ていま1-。これまで_しかった FM 音源 
の設定もこのツールで比較的簡】は(二0 
誰 { こでも扱える感党的なサウンドクリエ 
イトを実現しました0 



グラフィックツール（ X 1 turbo シリーズ用） 


turbo Z’ s ッフ 


■ 2 D ‘5" FD 版 CZ -137 SF 摞準価格丨9.800円 

グラフィックツール（ X 1/ X 1 turbo シリーズ用） _ 


V A -7 »s ジ—ス•スタッフ 

ハ I ム STAFF _ 


■ 2 D *5 "FD 版 CZ -138 SF 摞準価格13,800円 

クラフィックライブラリー( X 1 turbo シリーズ用ノ _ 


ヴラフイツクライブラ 1 J — 


■ 2 D *5 "FD 版 CZ - I 40 SF 標準価格 9,800円 


イージーオペレーションの統合型表計算ソフト 



■ CZ -212 BS 標準価格68,000円 

スプレッドシート（表計群:)、データべ一 
ス、グラフ作成機能を緊密に-•体化さ 
せた統合ビジネスッールです0マウス 
対応のやさしいオペレーション、最大 
16個のマルチウインドウ、高度なェデ f 
夕機能、蹚寓な関数群など、初心者 
からプロフェッショナルまで幅広く お 使 
いし、ただ I ナるソフト。定型業務、各シミュ 
レーションにも対応できるよう集計、再 
計算もスピーデ(で 

|スプレッドシート孫^] • 9999行 x 255列の 

巨大なカルクシート • 1つのフアイルを簡丨1*-に 

4分割*苋術関数、統計関数、財務関数、論 
现間数、文卞列閲数など116個の関数群籲 M 
人16個のマルチウインドウ • 13種類の罪線种 
斜体文字、横倍灼文字、網かけ、下線、打ち 
消し線など、多彩な及视力 • 覧表の中から 
閲数の遵択"了能*セルの非表示機能籲商 
速再計算機能*昇顒、降順、五十音陬の 
ソート(整列）機能 ……等 
「データベース機能1 •データの編衆-、フォー 
ム作成、フォーム变 UL •がスムースに行える力ード 
型 データベース •データをカルクシ_卜 やテキ 
ストェ デ; (夕にペースド" f 能•锫列機能、検索 
機能、枧め込み機能……等 
[グラフ作成機能1 • カルクシートカ >らワンタッ 
チでグラフ作成 • 25柯類以上のグラフと1 6 M 
類の表示パターンを選択可能鲁カルクシートの 
データを変えるとグラフもリアルタイムに変化-..等 



通信ホストソフト（ X 1 turbo シリーズ用） 


コスモステーション 


■ 2 D *5 "FD 版 C 2-136 SF 標準価格9.800円 

通信ソフト （ X 1/ X 1 turbo シリーズ用） _ 


モデムターミナル 


■ 2 D ，5 _ FD 版 CZ -133 SF 播準価格25.800円 

ミュージッククリエイタ （ X 1/ X 1 turbo シリーズ用）（モデムポード付） 


一トピア 


■ 2 D ，5 下 D 版 CZ - I 39 SF 標準価格12,800円 



















































を生みだ UC いる。 
る理由がわかる。 
イテイブマインド…0 



ソフトウェア開発に役立つ0=^パイラ 



■ CZ -211 LS 標準価格39,800円 

X68000 の ソフトウェア開発に 役立つ C 
コンパイラ (XC) 、 BASIC-C コンバータ 
(XBAStoC) 、 アセンブラ （ XAssem- 
bler) 、 リンカ （ XLinker) 、 デ、バッガ （X 
Debugger ). アーカイノ ぐ (X Archiver )、 
コン ^ く、 ータ (XConverter) からなる ツー 
ル。 Human68K 上における プログラム 
開発を効率良くサポートします> 

• X-BASK ： のソースフ。ログラムを XC 
のソースプログラムに変換する BASIC 
-C コンパ、ータで X-B ASIC によるマシン 
語開発をサポート。 

• XC は C 言語の最も基本的なイ I: 様 
(K&R) に準拠し、 ANSI 仕様も取り入 
れた最新バージョン。また標斯ライブ 
ラリ、日本語ライブラリ、 IOCS ライブラリ、 
DOS ライブ'ラリ、 BASIC ライブラリなど、 
ハードウェアをサポートした髖 V ;;;なライ 
ブラリ(約700種)が川总されて l 、ます。 

シュー ティング ゲーム 


ツイン ヒー 


■ CZ -217 AS 標準価格7,800円 

平和な島にスパイス大王の攻幣が .. .〇シナモ 
ン博士の子供たちは、2連射のミサイルで空中 
戦にいどみます。ゲームセンターでおなじみの 
「ツイン ビ ー 」が X68000 で楽しめます。 

ブロックケしム 


アルカノイド 


■ CZ -222 AS 標準価格7,800円 

64利 i: 類のブロックレイアウト。ゲームセンター 
を興餅の嵐に巻きこんだ、あのアルカノイドが 
X68000 で架しめます>「バウス j を操作して、ェ 
ナジーボールでスペースウォールを破壊して 
ください。 


(各システ^ノ、ウスのアプリケーションも続々登場〇) 

癱ク、、ラフィックツ——ノレ 


Z，s STAFF PRO -68 K 

58,000円 

陶ツァイト 

• 統介嘲 スプレッドシート 

Kamikaze (神風） 

68,000円 

㈱ サムシンググッド 

•リレーシヨナル デー タ ベース 

ビジレス AD 68 K 

98,000円 

マツ シユシステ厶 

籲 BBS ターミナノレ 

X し ink PRO -68 K 

19,800円 

シスポート ㈱ 

•オーデ f オ • ビジュアル統介ゾフト 

Hyper UD 

16,800円 

イースト ㈱ 

籲 IHJ 発ツール 

BASIC 拡張関数パッケージ 

9,800円 

㈱ 計測技研 

•開発 ツール 

CP / M -68 K エミュ U ^— 夕 

19,800円 

㈱ 計測技研 

• IUj 発ツール 

アイコンェデ f ター 

4,800円 

㈱ 計測技研 

•開発 ツール 

デ f スクキャッシャー 

6,800円 

㈱ 計測技研 

• CP/M 

CP / M -68 K 

110,000円 

有)ニューヮェーブ 

• シューテイング'ゲーム 

ゼビウス 

6,800円 

電波新聞社 

• 3 D シューデ f ングゲーム 

(ジョイステイック f 8,8001 »]) 


スぺースノ、リアー 

6,800円 

電波新聞社 

• アクシヨン•口ールフ。レイングゲ、ーム 

レリクス 

7,200円 

ポーステック ㈱ 

參口-ノレフ°レイング'ゲ'-ム 

魔神宮 

7,800円 

(株)サイン•ソフト 

•ミステリー•アドべンチヤーゲーム 

マン ✓、ッ タン•レクイエム 

7,800円 

( ㈱ リバーヒルソフト 

テープンレゲーム 

上海 

6,500円 

㈱ システムソフト 

籲統合 型ビジネスソフト 「1 如,リシリーズ」 

青色申告用会計 

48,000円 

日本マイコン販売 ㈱ 

金銭出納帳 

38,000円 

日本マイコン販売 ㈱ 

資金繰計画 

18,000円 

日本マイコン販売 ㈱ 

目標管理 

18,000円 

日本マイコン販売 ㈱ 

売上伝票発行 

28,000円 

日本マイコン販売 ㈱ 

売掛金管理 

28,000円 

日本マイコン販売 ㈱ 

買掛金管理 

28,000円 

日本マイコン販売 ㈱ 

商品在庫管理 

28,000円 

日本マイコン販売 ㈱ 

DM 発行 

18,000円 

日本マイコン販売 ㈱ 

顧客管理 

38,000円 

日本マイコン販売 ㈱ 


AV 指向の高水準 BASIC(X UurboZ .X Iturbo * シリーズ用） 


NEW Z-BASIC 


■2 HD /2 D .5' FD 版 CZ -141 SF 摞準価格18,800円 

□ゴ（ XI シリーズ用） 


XI LOGO 


■ 2 D ，5 ^D 版 CZ -134 SF 棵準価格 9,800円 

ロゴ（ XI turbo シリーズ用） 


turbo LOG 〇（漢字版） 


■ 2 D ，5 'FD 版 CZ -117 SF 標準価格18,800円 


CP / M ® 


參 turbo CP/M R V 2.2( 漢字版) <川—シリ-ズ用〉 

■ 2 D ，5 "FD 版 CZ -130 SF 標準価格14.800円 

春ランゲージマスター < X 1/ X 1 turbo シリーズ用〉 

■ 2 D ，5 _FD 版 CZ -128 SF 標準価格 9,800円 


ランゲージシリーズ Od XHurbo シリ-ズ用〉 


■各 2 D *5' FD 版_各棵準価格13,800円 

FORTRAN ( cz - ii 5 lf ) 


C 

( CZ - H 6 LF ) 

COBOL 

( CZ - H 8 LF ) 

LISP 

( CZ -120 LF ) 

FORTH 

( CZ -121 し F ) 

PASCAL 

( CZ -125 LF ) 

APL 

( CZ -126 LF ) 


•ランゲージシリーズの使用にあたっては CZ -130 SF 、 CZ -128 SF . 
または CZ -5 CPM が必要です。 ^ CP / MU 米国デジタルリサーチ社の 
登 I 李商標です。※メインメモリ 128 KB への拡張、 FM 音屈8音同時演 
奏 ( CZ -8 BS 】 使用時)をサポート。 


株式会《 •お問い合わせは…シャープ㈱電子機器事業本部テレビ事業部第4商品企画部〒162東京都新宿区市谷八幡町8番地 0(03)260-1 161(大代表)へ„ 








































































SHARP 


シリーズ用 


周辺機器 


本格実務からパーソナルまで、多彩にニューラインアップ。 



24ピン漢字プリンタ （80 桁） 

CZ -8 PK 7. 標準価格122,000円 

• フッシュノ / A のトラクタ ユニット （内蔵型） 
を標咿装備し t こコン， ぐクト設計馨単票用紙と 
連続)紙の取り扱いが簡単*漢字 47 文卞 
/秒（商速モード時 94 文字/秒〉の高速印字 
春 JIS 第1/第2水準漢'ド標準装備籲ハガキ 
印卞吋能•セミオートローデ{ング機能装備 
籲ハガキモード、縦書きモード、高速印字 
モードの設定が操作パネル I - でワンタッチ 
•影文字、袋文字印字可能(しりケーブル I .糊〉 


1^24 ピン漢字プリンタ （ 136桁） 

CZ -8 PK 8. 標準価格152,000円 

• ，太:務ニーズに応える 136 桁*プッシュ A の 
トラクタユニット （ 内蔵 M ) を標咿装備したコン 
パクト,没,す|籲取票川紙と座続川紙の取り扱い 
が簡中- • 浼卞 47 文す/秒（办速モード時 94 
文卞/秒)の，•::;速印卞* J IS 第 1/ 第 2 水準漢 
卞標咿装備籲ハガキ印卞 " f 能籲セミオート 
ローデ f ング機能装備•ハガキ、縦#•き、商 
速印字のモード設定がパネル I •.でワンタッチ 
•影文’?:、炎义字印卞能 a ; ケーブル Mtitn 


24ピン漢字プリンタ （80 桁） 

CZ -8 PK 9. 標準価格89.800円 

• 軽： lit コンノ、。クト設計鲁手蛏に使えるハイ 
コストパフオーマンスを尖视 • 漢字32文字/ 
杪（ぼ速モード時64文字/秒）の W 速印字 
• JIS 第1/第2水咿漢字標準装備*ハガキ 
印字" J* 能籲⑴紙のセットが手軽なセミオート 
ローデ< ング機能♦連続用紙の使用可能な 
トラクタユニット標寧装備春高速印字のモー 
ド切り涔えは操作ノ、。ネル上でワンタッチ•影 
文字、袋文字印字可能奶；•ケ-プ權> 


淡24ピン漢字プリンタ (80 桁) CZ-8PK5 標準価格129,000円、24ピン漢字プリンタ (1 36衔) CZ-8PK6 標準価格159,000円もあります。 


システムづくりに応える多彩な周辺機器群 (価格は標準価格） 



ブリンタ 

參カラービデオブリンタ 

CZ -6 PV 1 

198, 000円 

•熱転写カラー漢字フリンタ 

CZ -8 PC 2 

69, 800円 

參24ピン漢字ブリンタ (80 折） 

CZ -8 PK 5 

129, 000円 

•24 ビン漢字プリンタ (136 桁） 

CZ -8 PK 6 

159, 000円 

争ドットフリンタ 

CZ -8 PD 3 

59,800円 


|_ FM 音源_ 

•ステレオタイフ FM 音源ポード CZ -8 BS 1 23,800円 

.レスヒーカー （2 本〗組〉摞準装備、ミュージックツール同梱 


ファイル装置 

#ミニフ a ッヒーテ V スクユニット (2 HD .2 DD ) CZ -520 F 

118,000円 

參ミニフ□ッヒーデ{スクユニット (2 D ) CZ -502 F 

99,800円 

• ミニフ□ッヒ-ディスクユニット (2 D . 1ドライブ） CZ -503 F 

49,800円 

參ハードディスクユニット （10 MB ) CZ -500 H 

348,000円 


•增設 用ハードディスクユニット （10 MB ) 

CZ -501 H 

258,000円 

#カセットデータ レコー ダ 

CZ -8 RL 1 

24,800円 

•ミニフ□ッヒーディスク CZ -5 M 2 D / CZ -5 M 2 HD (各10枚入） 

#コンパクトフロッピーディスク 

CZ -3 FBD 

1,300円 

ビデオ編集装置 

•カラーイメージホード II 

CZ -8 BV 2 

39,800円 

•立体映像セット 

CZ -8 BR 1 

29,800円 

參パーソナル テロ ッハ ； 2 

CZ -8 DT 2 

44,800円 


拡張ポード•その他 

•320 KB 外部メモリ 

CZ -8 BEZ 

29,800円 

• RS -232 C •マウスボード： 3 

CZ -8 BM 2 

19,800円 

• JIS 第1水準漢字 ROM 

CZ -8 BK 2 

19,800円 

♦ JIS 第2水準漢字 ROM &ターボ博士レキシコン.日本語 

百科ワードパワー※ 5 

CZ -8 BK 3 

13,800円 


• JIS 第2水準漢字 ROM 6 

CZ -8 BK 4 

6,800円 

鲁フロッピーテ V スクインターフェイス 7 

CZ -8 BF 1 

14,800円 

參 RS -232 C 用ケーブル(平行接続型） 

CZ -8 LM 1 

7,200円 

參 RS -232 C 用ケープ;レ(ク□ス接続型） 

CZ -8 LM 2 

7,200円 

•拡張 I / O ボート 8 

CZ -8 EP 

11,800円 

•拡張 I / O ボックス 

CZ -8 EB 3 

33,800円 

籲 RF ビデオコンノ《一夕* 9 ★ 

CZ -8 VC 

15,800円 

# RF コンバータ ：10 

AN -58 C 

2,980円 

#モデムユニット （ 300ボー） 

CZ -8 TM 1 

29,800円 

#モデムユニット (300/ 1200ボー自動切換） CZ -8 TM 2 

49,800円 

•マウス 

CZ -8 隱 

6,800円 

參チルトスタンド 10 CZ -6 STKB - E ) 

5,800円 

•チルトスタンド* 11 CZ -81 T ( S * R ) 

8,500円 

暑システムスタンド 

CZ -8 SS 2 

5,500円 

•ジョイカード 

CZ -8 NJ 1 

1,700円 


聚 '、 

瓣 


•品番中の （） 表示 AS くメタリックシルパー〉 ， R < ローズレッド〉 . E くオフィスグレー〉 . B くブラック〉を示します。糸 1 X 1 ターボシリーズ用》202-8620には接続できません。*3ズ1シリーズ用*4 CZ -802 C , 803 C , 811 C , 
820 C 用 *5 CZ -850 C .851 C .852 C .862 C 用 *6 CZ -856 C 用 *7 CZ -850 C で CZ -520 F を使用する場合、また CZ -803 C . 804 C . 811 C , 820 C , 850 C で CZ -300 F を使用する場合に必要余8 CZ -800 C , 802 C 用 *9 CZ - 
862 C には接統できません。※10 CZ -600 D , CU -15 M 1 用※丨丨 CZ -801 D . 802 D . 811 D , 850 D , 855 D . 870 D 用★在*僅少•接絞等の詳細につきまじ T は、周辺檐器総合カタログをご参照ください。 



w x «.— •お問い合わせは…シャーブ W 電子機器事業本部システム機器営業部〒545大阪市阿倍野区長池町22番22号〇(06)62卜1221(大代表） 
m 子機器事業本部テレビ事業部第4商品企画部〒162東京都新宿区市谷八幡町8番地 0(03)260- 1161(大代表） 
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更に SUPER 




絶賛発売中 



■640 X 200 ドットの高解像度により 、 MSX 
2のレイドックに勝るとも劣らない美しい 
グラフィックスを実現/ ( XI turbo のハイ 
レゾリューションにも対応） 

■ 8 重和音の F M 音源から奏でる B GM は、 
全16曲で大迫力。 

■ステージ 数は14。 

■オプ ションウエボンは増えて11種類。 

■ 2 人で共同出擊。2機のネオ•ストーミー 
ガンナーは、それぞれ縦•横に合体可能。 

(1 人でもプレイ可能） 

_ オプションウエボンの使用は、2人プレイ 
時はもちろん、1人プレイ時でも可能。 

■自機 （ネオ•ス——ミーガンナー）のスピ 
ードを最大3段階に調節〇 K 。 

■途中 ゲームデータは、データディスクにセ 
—ブ〇 

■スーパー レイドック全14 ステージを クリア 
した方にはもれなく、階級章を進呈します。 




▲ファイアー ▲ウイング ▲ダブル ▲アルファ 





▲ソレイユ基地に侵入 


■通信販売ご希望の方は現金書留で料金と商品名 • 锇播名と電話番号を 
明記の上、当社宛お送りくたさい（送料ザーヒス.逢溧希3!の方は300円フラス） 
■マガシン Nol 6 こ希望の方は、100円切手2枚 (200 円分）を同封の上銪求券 
をお送りください（菜書ての it 求はお断わりします） 

■ 88 年カタロクご希望の方は.100円切手同封の上.カタロク請求券を 
お送りください；（葉*ての M 求はお断わりします〉 





製造•販売株式会社ティーアンドイーソフト 

〒465名古屋市名東区豊か丘1810番地 PHONE ：052-773-7770 


当社はソフトレンタルに対する许可は一切しておりませんのてこ注*くたさい 


: TaE マガシン 

i No 16請求券; 

；' Oh ' x 2月号： 

: ‘88終.合カタロク 

:請求券 

: Oh'X 2月好 


' レンタルや*断コヒーを行なうと、15作梅法により雇しく処 3 R されます 











































( p ^) あなたは X - 68000 をワークステーション 
| EJ 一 — として生かしていますか。 

®™ J |- 大獅に〇き獅値下げ.グ 

旧定価198,000円_新定価 158,000円 
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HDD UNIT PS-HD 68000 
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20 M * HD □はあなたのワークステ 
ーシヨンを存分にパワーアップ/ 

グラフイックスは、フロッピーディスクに2面しか入り 
ません0また、すべての標;準ソフトをビジュアルシヱ 
ルできませんでしたが、この 20 M ハードディスクが 


X - 68000本体と同色。 


X - 68000の人気の秘密に、すぐれたデザインもあり 
ます。本 HDD は、その美的感覚をそこなうことな〈、シ 
ステムアツフ。します。 








あれば、 グラフィックスや、ビジネスデータを大量に 
保存できます。使いかた次第で、存分にパワーア 
ップできます0 


格安で高性能。 


20 M で、プリンター程度の価格におさえました。 

X - 68000のユーザーのシステムアップに、心よりお 




はじめての入でもセツテイング 
可能なアブ 1 J ケーシヨンソフト 
を同梱しました。 

どなたにも HDD が簡単にセットできるようにしました。 
安心してご使用いただけます。 

専用インターフェイスケーブルもついています。 


手伝いします。 


お串し込み方法一全国通信販売 一 

ご注文の際は、在庫の確認の上、現金書留または 
銀行振込でお申し込み下さい。 

送料は、ご注文の際にお問い合わせ下さい。 
商品はすべて新品、保証書付きです。 


、商品内容、） ^ I / F ケーブル •アプリケーション HDD . MAKE ソフト •ニュー 福袋ソフト 

* 保証書 


籲 お問い合わせ•お申し込み/バソコンショップ八ドソン札幌市中央区南 1 条西 2 丁目丸井今井 3 f a ( oii )241-5367 











































籲オープニング 

軽やかな音楽が流れて、上海の幕開け 
です。上海に興じる2人のイラストが、 
X 68000 ならではの美しい画面であら 
われます。 



〈 X 6 日 □□□> 、 一 

■X68000 _5"-2HD ん如ポスタ-«^丫 

•アナログ RGB(31kHz 対応)テ V スプレイが必要です。 
_入力装置として、 X68000 添付のマウスを使用します。 

定価6,500円 

新感覚パズルゲー厶〈シャン八イ〉 


♦ポイント 

端から取っていくのがルール。上下左右 
の形をバランスよく取っていくことがコッ。 
同じ絵柄の牌が3個取れる状態のとき 
ばどの組み合せで取るかをよく考えて。 



〈好評発売中〉 


Shanghai ts a trademark of Activision , Inc . 
Original game designed by Activision (C) Activision 1986 

Source code for the System Soft Computer designed 
by System Soft S)1987 System Soft 


<X トンリーズ》 

_ Xl / X 1 turbo シリーズ _5"-2 D 
•ゲーム中はマウス （ CZ -8 NM 1 または MZ -1 X 10) 
だけでも操作できます。 

• ジョイスティック （2 トリガ）も使用可能です。 

糸 XI シリーズでマウスをご使用の場合は、 

RS -232 C •マウスポード ( CZ -8 BM 2) が必要です。 

定価6,500円 



•ishow all moves 
どの牌も取れなくなったように見える時、 
取れる牌の組み合わせをすべて教えて 
くれます。意外に見落とした所があるもの 
ですよ。 


商品のお申し込みおよび発売日に関するお問ぃ合わせは… 

営業部専用電話 092 -752-5262 

第2•第3土曜日、日曜日、祝祭日は営業いたしておりません。 


商品に関する技術的なお問 L 、合わせは… 

ユーザーサポート専用電話 092-752-5278 

月〜金9：00~12：0013：00~17：00 (祝祭日を除く） 


■ユーザーズ•ポスト：商品の詳しい資料請求、お問い合わせ、ご要望などがございましたら、ハガキに製品名、佺所、氏名、年令、 
職業、使用機種を明記のうえ、弊社までお寄せください。 

■商品のお申し込み方法：現金書留、郵便為替、または郵便振替（福岡 3-37311) で、商品名、機種、メディア名、および連絡先 
の電話番号を明記のうえ、送料を添えて弊社までお申し込みください 
■送料に ついて： 400円。送料は切手も可„ 

※製品の仕様は、機能•性能の改善のため将来予告なしに変更することがあります。 


@ SystemSoft 


株式会社システムソフト 

〒810福岡市中央区天神5丁目 7-2 
TEL 092-714-6236 , 


海は、肩こりしない頭の刺激1一： 


る人ぞ知る麻雀牌を使つたパズルゲ—ム「上海」。 X 68000 版が登場しました。ル—ルは簡単積まれた牌 
個 I 組で、絵柄の同じものを端から取つていきます。全部取り終えたら、あがり。楽しいメ Q ディとともに 
ラゴンが祝福してくれます。 しかも 操作は、キーボ—ドを全く使わずに済むという手軽さ。7ウスだけで遊べ 
から、軽快なリズムでクリックしてください。でも毎回違う牌の配列や、取り方にょつては手詰まりになつ 
しまう。そこで悔しい からもう j 回。親しみやすくて、あなどれない。そんなゲ I - ^なのです ね、 上海つて。 
























〈その他機能〉 

参アンドウ，リドウが複数回可能。 

•プルダウンメニューにより、各種機能が選択可能。 

• rCTRL l ， 「 SH]Fn ， IXFll ， -rXF^jGPTTMGPTgl 

を除く他のキーに、機能定義が可能。 


•ユーザーが設定した各種モードをエディツト終了時 
に保存し、次に起動したとき設定されたモードが復 
兀される。 

•エディツト可能なテキスト数、アンドウ可能な数は、 
ユーザー定義が可能。 


技神渚がエディタを選ぶとき、操作が簡単で処理スビードの速いこと 
が条件となります。 WINDEX は、この条件を満しながら強力なマクロ 
機能を持っています。まさに初心者からプロフェッショナルまで力強 
い味方になるでしよう。 


Kamikaze (神風）の開発で知られる(株)サムシンググッ 


資料請求券 
Oh ! X 
2)1 


株式会社ジ エー •ず ー エル 


問い合せ • 資料請求先は〒 166東京都杉 並区高円寺南卜丨9-8竹嶙ビル 
㈱ ジ エー•イー •エル サポート 係 〇03-3 12-732 lift ) 

※製品の仕様および画面デザイン等は予告なく変更する場合がありますのでご了承ください- 


定価 28 , 000 円 


FOR 


プロフェツシヨナル 
マルチウィンドウエディタ 


サーチ&リプレース 


俊数のテキストに対してサーチ8リブ 
レースが可能なため、効率的なテキス 
卜の変更が行えます。 


カット&ぺ —スト 


逸続あるしヽは矩形のカツト S ペースト 
が可能なため、エディト作業が大幅に 
効率彳匕します。 


マルチウィンドウ、 

マルチテキスト 

1大16個のウィンドウが開け、 fg 大256 
テキストまで扱うことができるため、 
大規模のブログラムの開発が可能でも 


マーク&ジャンプ 


複数テキストに対してマーク S ジャン 
プが可能なため、目的の部分をいつで 
も呼び出せます口 


ネスティング可能なマクロ 


マクロ実行中に他のマクロを複数^行 
することが可能です0 


フリーカーソル 


カーソノレは表示されてし\るキャラクタ 
の衝 i にかかわらず、自由に移動させ 
ることができます。 


sharr^yb 8000 


旧 II 

__ I 


〈6大機能〉 




■ ，似•抑!!! 

いまマニアに最も注目されているマシン X 68000 のために 
WII は、 開発されたマルチウィンドウ I ディタです。 

プロフェッシヨナ)レのニーズに応えて装備された強力なエディト機能はプロクラミンク環境を 
大幅にパワーアップします。まさに、 X 68000 プログラマーにとって最強、最新のユーザーイン 
ターフェースの登場です。 
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グラフイツク画像の冒険 


Z’sSTAFF PRO 68 K の文字表示機能と 
トランスフォーム機能。果たして画像 
の行方は？ 



素晴しき CG の世界 

冒険の序章 


パーソナルコンピュータにとってグラフィック 
はドラゴンである。とりわけビットイメージに 
よるグラフィック画像ともなれば，たった1枚 
の画像で何十 K バイト，何百 K バイトというデ 
一夕を扱うことになる。どんなに長い文書やプ 
ログラムよりもヘビーなものであろう。しかし， 
それでもコンピュータによって作られた画像は， 


ほかのいかなる方法によって得られる画像より 
も自由であり，片隅の彳ドットに至るまで君の 
思いのままであるはずだ。そもそもコンピュー 
夕がデイスプレイに表示する画像というものは， 
ドットごとに色情報を持った点の集合にすぎな 
い 0 だからこそ，熱意あるユーザーの創意とエ 
夫がなによりも大切なのである。 


XI /turbo CG アニメーシヨ ンフイルムの 制作 

RHYTHMS TO TRACE ……柴田淳 16 

XI で400ラインの画像入力 

カラーイメージツール写楽 . 古川公彦 3 2 


XI turbo 3□デザインに挑戦 

トリフオニーで立体のモデリング… 英理人 3 8 


X 68000 グラフィックデータ考 
広く小さく豊かなデータ … 

•…加藤質哉 中 野修一 

42 

XB 8000 複素平面紀行 

幻想のフラクタルワールド… 

•…飯島匡史丸野正治 

45 

MZ - 2500グラフィックツール 

门 1 HOI / IV/I フ DA 1 MT "... 

. 由 ま 

53 

LJUI し！^ IVIZ . MAIIM 1 

林 1 +* 夫 



RHYTHMS TO TRACE 柴田淳 



ソリツドモデルで作成されたオリジナルアニメーションフイルム （8 
ミリ）。丨秒間24コマのフルアニメーションで約2分半にも及ぶ超大 
作。スムーズでコミカルな追い掛けつこがなかなかの傑作だ。 
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グラフィックは楽しい。それはもう，目に 
見えてクリエイティブである。もちろんグラ 
フィック機能はハードウエアによって制約が 
ある。色が出なければできないこともあるか 
もしれないし，大きなメモリが必要な場合も 
あるだろう。しかし，もしもあなたにコンビ 
ュータグラフィックを楽しみたいと思う心が 
あるとすれば，本当に必要なものは僅かばか 
りのイマジネーションと大いなる冒険心であ 
るはずだ。 

さて，あなたにとってコンピュータグラフ 
ィックとは，いったいどのような意味を持つ 
のだろう。ひと昔前には，パソコンで絵を描 
くというだけで驚異であった。それが今では， 
パソコンのグラフィックの可能は実に多岐 
にわたっている。 

ある人にとっては CRT ディスプレイがキヤ 
ンバスであるかもしれない。グラフィックツ 
—ルによって描かれた1枚の絵が画像の目的 
というわけだ。 XI , Xlturbo にはそれぞれに 
対応した Z ’ sSTAFF がシャープからサボート 


されているし ( Z / ZII にも本格的なものが早く 
欲しい）， X 68000 にも Z ’ sSTAFFPRO -68 K と 
いうほとんど無敵のグラフィックツールがあ 
る。また，ある人にとっては CRT はエディッ 
卜のための仮想画面であり，プリントアウト 
されたハードコピーが画像の目的地となる場 
合もあるだろう。今回発表した 「QUICK MZ P 
AINT 」 などは，そういう人にぴったりのツー 
ルである。 

そして画像はさらに冒険する。アニメ•ーシ 
ョンである。ここでも全く異なったタイプの 
アニメーションが考えられる。たとえば，下 
の写真に示されるようなケース p 物体が動く 
のではなく，静止した物体を少しずつ視点を 
変えて描き，それを画面切り換えによって表 
示したものである。入力する画面データも1 
枚分ですみ，数秒のデモンストレーションと 
しては効果的だろう。また，前ページで紹介 
している 「RHYTHMS TO TRACE 」 の場合，2 
分半にも及ぶストーリーを持ったアニメーシ 
ヨンであり，表示される絵は実に3000枚にも 


なる。もちろん1枚1枚描くわけにはいかな 
いが，動画を流れとして管理するブ D グラム， 
シナリオを作るプログラム，表示のためのプ 
ログラムなどによって自動的に各画面を作成 
し， 8ミリフイルムにコマ撮りするというま 
さに画期的な手法が取られている。 

さらにコンピュータグラフイツクを利用す 
れば，三次元の立体を正確に描ぐといった人 
間にとって苦手なものも容易になる。また， 
人知を超えた画像を描き出すことだって可能 
である。今月は幻想的なフラクタル図形を描 
くプログラムを2作品ほど紹介することがで 
きた 。 

そして……，もうおわかりだろう。あなた 
の番が回ってきたのである。黙って見ている 
だけではグラフイツクは楽しめない。 

ところで，天才には2つの条件が必要であ 
るという。ひとつは「天才であること」，もう 
ひとつは「自分が天才であることを知ること」 
である。ひとつ目は 「ハツタリ」 で， 2つ目 
は「思い込み」でなんとかされたい。 
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協力：近畿学生コンピュータ連合 DOGA PROJECT 










カラーイメージツール 写楽 古川公彦 


X 丨で400ラインの画像取り込み， 640 X 800 ド 
ットのモノクロハードコピーが可能。 



ケンダマのモデリング 英理人 

トリフォニーによる3 D モデルのデザイン 



トランスフォームテーブルを 見ながら制作 



カラー表示(輪郭なし） 



カラー表示（輪郭あり） 



X 68000 で画像ファイルを扱うための手法を考えてみた。デジタイズされた複雑な画像でも， 
色データの変換により I 枚のディスクに19枚までファイルすることができる。ここで使用 
したイラストは，きたのじゅんこ画集「夢の中で」から GT -30 ㈤ で取り込んだもの。同系色 
の256色を集めることで原画のもつ抒情性を再現することが可能となる。 

夢の中で —— en reve ——きたのじゅんこサンリオ 1,800円 



超拡大図 


QUICK MZ PAINT 森中実 


MZ - 2500用グラフィックツール。 MacPaint ライクなモノ 
クロ仕様で，機能も操作性もかなり完成度が高い。 



特集グラフィック画像の冒険 




































Shibata Jun 

柴田淳 


XI/turbo CG アニメーションフイルムの制作 

RHYTHMS TO TRACE 


これはまぎれもな <CG アニメーションフィルムと呼べる作品です。それも上映時間 
3 分弱，総画面数 3000 枚にも及ぶ超大作。いかにしてこれだけの作品が XI で作られ 
だのでしよラ。さあ，これを読んで皆さんも才 1 J ジナルアニメに挑戦して<ださい。 



MAN (人間）と TRACER (追跡者）が追し'!卦けつこを 
する。動画はすべてブログラムで管理。 


今回，とりあえずオリジナル3 D ソリッ 
ドモデルアニメーションフイルム 「RHYT 
HMS TO TRACE 」 の完成に至った。そこ 
で X 1/ X 1 turbo シリーズでこの作品を制作 
するために使用したプログラムをここに発 
表したいと思う。 

8ミリフィルムで撮った動网を誌上で発 
表するのだから，•洗名の哲さんにどれだけ 
わかってもらえるか心配ではあるが，とに 
かく 4年も前に発衣された機视（ XI D ) で， 
そこそこ兄るに耐える（と思う）ものを作 
ったのである。「ほお一，すげ一な一 j と言 
うもよし，「なんだ，いちいち騒ぐなよ」と 
言うもよし。ただ炎:際のところは， 8ビッ 
卜機と BASIC で アニメーションフイルムな 
んてできるはずはない，と思っていた人が 
太平なのではないだろう力*。 

なにしろ，雑誌などに発表されているプ 
ログラムを見ると PC -9801 に数値演算プロ 
セッサ， MS - DOS ， C 言語，といった使う 
知識も値段もストロングタイプのシステム 
構成となっている。それでも，レイトレー 
シングで1_而作るのに何時問，いや何日 
もかかるというの た "〇ハ 0 ソコンでアニメな 
んてと思う背景には，こういったグラフィ 
ックの持っ人•袈裟な イメー ジがあるためだ 
ろぅ。 

しかし， アニメーションを 作るためには， 
描画と動画がともに未熟な場合，後者に重 
きが置かれるべきであるはずだ。道行〈人 
はなぜ， レイトレーシングを 使った リアル 
な_像やダラ フィ ック エディ タで Wi いた1 
枚ものの絵にこだわるのだろう力*。おそら 
〈彼らは靜止圃にしか興味がないのだろう。 

今回のメインプログラムにあたる TRACE 
7 (リスト 9) を見てもらえばわかると思う 
が，4つの物体を勋かすルーチンはほとん 
どたわいのない「追い掛けゲーム」である。 
ところが，一度ソリッドモデル表示ルーチ 
ンを組み込むと，それはほとんど魔法にで 
もかかったかのように奥行きを増し，独自 
の宇宙を作り上げてしまうのである。実際 
はその上に工夫が必要なのだが，アニメー 
シヨンの持つ芸術的可能性は計り知れない。 


往年のディズニ_のアニメーションを兄れ 
ばわかるように，1 コマ 1 コマは 特に緻密 
な絵で成っているわけではない。むしろ， 
できる限り簡略化された線で構成されてい 
る。もちろんそれは，卓越したデッサンカ 
に裏打ちされたものなのだが，それ以1-.に 
特筆すべきは，あの自然な動きである。 

このような衍針においては， レイトレー 
シングも， 1600 万色のフレームメモリも必 
要ない。逆にいえば，いまの自分の持って 
いる システム でだつて CG アニメ ができるの 
では，と思わないだろうか。 

動画を流れとして管理 


さて，ずいぶんと偉そうな理論をぶちま 
けてしまったが，僕®身も作る前からこの 
ような兄解に達していたわけではない。そ 
もそもこの作品を作ろうと考えだしたのは 
1年以上も前のことなのだ。 

XI の BASIC のフリーエリアは MZ - 2000 
のそれに比べてとても小さく，あまり大き 
な作品はできないのではと残念に思ってい 
た。ところが，あるひらめきが僕の頭をよ 
ぎったのだ。 

雑誌に 攸っ ているゲーム プロ グラムをパ 
ラパラと兄ているとき，ふとした好奇心か 
ら，もしこれらのゲームの1画面ずつをデ 
ータとして保存したらどれくらいになるか 
計算してみたのだった。1分間のゲームか 
ら1秒ごとに画面のデータを取り出すとし 
よう。1画而が2 K パ'イトで )1 义まるとして， 

2 K バイト X 60 秒 = 120 K バイト 
となる。これだってかなり少な〈見積もっ 
ているほうだ。 

ところが，実際にこれだけの画面を出力 
するプログラムはほんの5 K バイトほどで’ 
ある。凄まじい圧縮効率だ。とすれば，ァ 
ニメの動きをゲームのように流れとして管 
理すればデータは効率よく圧縮され，なお 
かつ工夫次第でかなり複雑な動きが実現さ 
れるのではない力、，という考えに至ったの 
である。 

結局，使い勝手の点からそれぞれのオブ 
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ジエクトの動きを 1 サイクル（％秒）ごと 
に方向データとして抜き出して使うことに 
した。 

それではどのようなゲーム（シナリオ？） 
にするか。あまり複雑なものは避けて，な 
るべ〈無難かつ古典的なものがいいのでは 
と思い，「追い掛けゲーム」にすることにし 
た。迷路の中に任意に動く人間を走らせ， 
それを追い掛ける追跡者を3つ置く。それ 
を流れとして制御するのである。メモリの 
わりには深みのある作品になる。それを8 
ミリ フイルムにコマ 撮りし，今回の作品に 
至ったのである。 

WE MAKE C_G. 

先の米ソ首脳会談での名言である。 

We make history . 

この先はどうなるかわからないが'，とにか 
<名言である。 

われわれは CG を作る。本当を言うと，僕 
はみんなでワイワイやりたいのである。だ 
から，親切な僕はこの作品の制作過程を織 
り交ぜながら，開発に携わったプログラム 
の解説をしてしまうのである。もちろん， 
僕のオリジナル作品である 「RHYTHMS TO 
TRACE 」 のデ'ータも參考として掲載する。 
ただひとつ言わせてもらうと，ここに書い 
てあることをそのままやるだけではなんに 
もならない。それぞれの創意と工夫と健全 
な思考回路（なんのこっちや）に期待した 
い。僕は誰の挑戦でも受ける。同志よ，頑 
張っていただきたい。 

というわけで，以下に説明するプログラ 
ムはすべて XI の NEW BASIC (ディスク 
バージョン）で書かれている。実行時間の 
記述も NEW BASIC を使用する場合である。 
旧バージョンの標準 BASIC でも動くが，グ 
ラフイックを使っているので実行速度にか 
なり問題がある。また， XI turbo の BASIC 
でも問題な〈作動する。なお，一部のプロ 
グラムにはデ イス クドライブが必要である。 
カセットでも使えなくはない 力 5 ', 出力され 
たデータの変換がままならないのである。 
どうしても使いたい人は各自で対応してい 
ただきたい。 

プログラムの解説 

-_ 

先にも書いたように，この 「RHYTHMS 
TO TRACE 」 の動画の基本は追い掛けっこ 
であり，画面に登場するキャラクターとし 
て MAN (人間）と TRACER (トレーサー，す 
なわち追跡者）がいる。これらのキヤラク 


ターのことをオブジェクトと呼ぶことにし 

ょ 

オブジェクトの動作 

まずはじめに，それぞれのオブジェクト 
の動作を決定するプログラムを紹介しよう。 
これらのプログラムは，ここに並べて％る 
順番に作成したものである。だいたいの制 
作過程は察していただけると思うが，簡単 
にまとめておくことにする。 

最初に， ROAD (リスト1 ) によって® J き 
のデータを作る。あらかじめ相手の動きが 
先読みできるようになっているので，どう 
動かせば良く見えるか，飽きのこないもの 
になる力、，などを考えながら進めていく。 
なにしろアニメは動きが命なのである。 

だいたい動きが決まったら ， MAKE (リ 
スト 2) により ， ROAD で 出力された デー 
夕を データ 文に変換する。その データを 今 
度は DATA PRINT 2 (リスト 3) によって 
ワイヤ フレームで 表示させてみる0ワイヤ 
フレームと いうのは，出来上がりを予想す 
るのには都合がよい。ここでもう一度検討 
し，気に入らない点があればまた前に戻っ 
て修正を加えるわけである。 

この時点でそれぞれの動きに合わせた味 
付け（トレーサーの曲がり方，壊れ方など） 
を色々と考えておく。じっくり，そして綿 



まずはオブジェクトの動作を決める 

密にいけば勝利はもう目の前である。 

ROAD 


この プログラム は 一番 最初に作ったもの 
で，ステップごとの各オブジヱタトの座標 
を各 デバイスに 出力する プログラム である< 
走らせると プログラムの 最後の デー タ文 
によって迷路を表示し， M (人間）， T (トレ 
ーサ ー） が それぞれ動き始める。人間が別 
れ道に差しかかるとキー入力を求めてくる 
ので，2, 4, 6, 8のどれかを入力すると， 
その方向に曲がるようになっている（どの 
オブジェクトも方向を変えるのには1ステ 
ッブを要する）。ただし気をつけていただき 
たいのは，道のない方向のキーを柙しても, 
チェックを行っていないためその方向にい 
ってしまう。また逆戻りも厳禁だ。あなた 
の紳士的行動に期侍する。 

プログラムを走らせながらこれを読んで 


それはジンマシンから始まった 


それは，ある晴れた夏の日の出来事である。 
その日は朝から，なんだか体がかゆかった。な 
にぶん夏場のことである。どうせ蚊にでも刺さ 
れたのだろうと，ムヒなど塗ってほっておいた 
のが間違いだったのだ。 

当時はかなり暇な生活を営んでいたのだが， 
その日はそれに輪をかけて暇であった。するこ 
とがない。ふと財布を開けると，大蔵省造幣局 
発行の聖徳太子の似顔絵がニッコリ。自ずと僕 
の思考はそれを使用することに向けられていっ 
たのである。「レンズマンを見に行こう」。 

レンズマンといえば，読者の中にも観た方が 
多いのではないかと思うのだが，日本の CG 制作 
スタジオで最高の機材を誇る JCGL の手がけた 
CG アニメーションが話題となった映画である。 
最近でこそ CG はテレビ番組のタイトルや CF に 
かなり頻繁に使われているが，3年前の日本で 
はほとんど未開拓の分野であった。それだけに， 
映画に CG が使われるとなると「これは珍しい， 
ぜひ観なければ」ということになったのだ。 

映画館に着くとただ今上映中であったが，待 
つのもいやだったので途中から入ることにした。 
ちようど，小林克也が声をやっているおっちゃ 
んがダミ声でなにやらどなっていたが，その回 
は上の空で背中をかきかきしたりしていた。や 
がて，アルフイーが 「Star ship ……」と歌い始 
めたころ，虫刺されに姿をやつしたジンマシン 


はとうとう本性を現したのである。 

背中のかゆみは肩に，首に，腕に，おなかに 
とどんどん広がり，かゆみ自体も増してくる。 
まるで，宇宙服を着て，その中にノミとダニを 
500匹ずつぐらい入れたような，とでもいえばわ 
かってもらえるだろうか。それはそれは筆舌に 
つくしがたいかゆみなのである。おかげで休憩 
時間はかいかいかいかいとかきっぱなし。それ 
でも一向におさまる気配もなく，再びレンズマ 
ンは始まってしまった。 

レンズマンの見物は，レンズの継承のシーン 
と銀河連邦本部の CG である（と，その筋の雑誌 
に害いてあった）。ちなみにこの部分はニューヨ 
ークエ科大学の CG 研究室で作られたものだそう 
だが， そんなことよりも，とにかくかゆいので 
ある。結局まともに観るどころではなく，それ 
でもきっちり終わるまでは映画館の中にいて， 
終わると同時に飛んで帰って近くの内科に駆け 
込んだのであった。 

ああ，うらめしやジンマシン！ 何が原因で 
発疹したのかは未だにわからない。だが，計ら 
ずも，第3の映像革命とまでうたわれたものは 
僕の心にただならぬインパクトを与えることに 
なった。僕の CG アニメーションに対する異常な 
までの執着は，ジンマシンへのあくなき鬪争心 
とともに深層心理に刷り込まれてしまったので 
あった0 


清水和人のはみ出し超グラフ イ ックシステム——「ベらんめい J 仕様公開 

なになに，原稿が遅れた人はハミダシだって？え！どこにもスペースがない？てやんでい。 特集 RHYTHMS TO TRACE 17 

こちとらちやきちやきの江戸っ子よ。そんじよそこらのグラフイックツールたあわけが違うんでい。 

目ん玉ひんむいてよおっく見やがれ。 






いる人は， T のあとに数字が出て〈るので 
不思議に思っているのではないだろ•うか。 
実は，この数字が0のときは，曲がり角に 
きても人間を追い掛ける方向に曲がらない 
ようになっていて，それを知らせるための 
ものである。あらかじめ相手の動きが予測 
できるので，執抛な動作制御ができる。 

実際の作品では，半ばごろから人問の回 
りをピカピカ光るボールが回りだし，今ま 
で追い掛けられた分の反撃に出るのだが， 

このプログラムでは最初から人間が優位に 
立っている。要するに追い掛けられる振り 
をしているのである。試しに T にぶつかっ 
ていただきたい。あっけなくも迷路外に飛 
ばされる（やられたの意）のである。 

また T には色分けがしてある。それぞれ 
カラーコードに 相当する番号をも らっ てい 
て，作品内では1番が視点になっている。 
そこからいつも人間を真ん中に見据えなが 
ら動いているのである。 

終わりたいときは曲がり角で “ E ” を入 
力0すると，ファイルネーム “ ASC ” でデ 
イスク，またはカセットに出力が始まる。 
これですベての作業がおしまい。 

それともうひとつ，プログラムの最後の 
データ文はそのまま迷路のデータになって 
いるので，書き換えれば違う迷路での実行 
も可能なのである。色々遊んでほしい。た 
だしこのプログラムで出力されたデータを 
他のプログラムで使うときは，そちらの迷 
路データも変更しなくてはならないので気 
をつけてほしい。 

MAKE 

ROAD で出力されたデータをデータ文に 
置き換えてデバイスに出力するプログラム0 
デ ー タはァ スキー 形式で出力される。 

このプログラム はただ RUN させるだけで 
結構0勝手に ROAD で作成されたファイル 
tt ASC ” を開いて， アスキーファイル“ MOVE 
DATA ” を出力するようになっている。 

プログラム中， 2 つのファイル “ ASC ” 

と “MOVE DATA ” は同時に開かれる。つ 
まりマルチアクセスを行っているので，こ 
のプログラムはデイスクなしでは使用でき 
ない。カセットしかお持ちでない方は，配 
列に “ ASC ” を全部読み込んでから “MOVE 
DATA ” を出力するなどの方法で対処して 
いただきたい。 

なお，出力されるファイルは10000行より 
始まる。 

DATA PRINT 2 

MAKE で出力されたデータを1ステップ 
ごとに3 D のワイヤフレームで出力するプ 
ログラム。 
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リスト1 ROAD 


1000 WIDTH 40：DEFINT A-Z 

1010 IN'IT：DIM A(300) ,A$(14) ,B(300,3) ,C(30O,3) 

1020 COLOR 7：FOR 1=0 TO14 : READ A$(I) 

1030 FOR J=1 TO 15：POSITION J 拿 8-8,1 拿 8:PATTERN-8,STRING$(8,255 本一 <M1D$<A$<I>,J,1 > = 
.. ..)) : NEXT ： NEXT 

1040 X(0)=-7 ： V(0)=-7 ： X(1)=-7 ： Y(1)=7 ： X(2)=7 ： V(2)=-7 ： X=7:Y=7 ： R=1 
1050 XX(0)=-1 ： VY(0)=0:XX(1)=0:YY(1)=-l:XX(2)=1:YY(2)=O ： XX(3)=0 ： YY(3)=1 
1060 R(0)=2 ： R(1)=2 ： R(2)=3 
1070 GOSUB "INPUT" 

1080 GOSUB..MOVE" 

1090 LOCATE 0,20：PRINT COUNT 
1100 GOTO 1070 
1110 LABEL*'INPUT" 

1120 H(COUNT,0)=X ： C(COUNT,0)=Y 

1130 F=0：FOR J=0 TO 3 ： XX=X+XX(J)+7 ： YY=Y+YY(J)+7:F2(J)=0 
1140 IF XX=-1 OR YY=-1 OR XX=15 OR YY=15 THEN 1170 
1150 IF MID$(A$(YY) ,XX+1,1)<>••：-- THEN 1170 
1160 FI(F)=J ： F2(J)=l : F=F+1 
1170 NEXT 

1180 HE=(R-2) : RE=RE-(RE<0)*4 
1190 IF FE=0 THEN 1280 
1200 IF F<>2 THEN 1230 

1210 IF FI(0)=RE THEN RR=F1(1)ELSE RR=F1(0) 

1220 GOTO 1270 

1230 LOCATE 20,5:PRINT"INPUT"; 

1240 I$ = INKKY$(1) ： RR=-( I$ = *'8" )-( 1$ = "6" )«2-( I $ = M 2 M ) *3 : IF 1$ = " THEN RETURN "EXIT" 
1250 LOCATE 20,5 ： PRINT" "； 

1260 IF RE=RR THEN BEEP：GOTO 1230 

1270 IF RROR THEN R=RR : A(COUNT) =R+ 1 : FE=0 : COUNT=COUNT+ 1 : RETURN 
1280 A(COUNT )=0 ： COUNT=COUNT+1 
1290 LOCATE X+7,Y+7 ： PRINT"" 

1300 X=X+XX(R) ： Y=Y+YY(R) 

1310 COLOR 4 : LOCATE X+7 , Y+7 ： PRINT ,, M M 
1320 FE=1 : RETURN 
1330 LABEL..MOVE” 

1340 FOR 1=0 TO 2 

1350 IF X(I )=9 THEN 1530 

1360 B(COUNT-1,1 + 1)=X(I) : C(COUNT-l,1 + 1)=Y(I ) 

1370 F=0：FOR J=0 TO 3 ： XX=X(I)+XX(J)+7 ： YY=Y(I)+YY(J)+7 ： F2(J)=0 
1380 IF XX=-1 OR YY=-1 OR XX=15 OR YY=15 THEN 1430 
1390 IF MID$(A$(YY),XX+1,1)<> ,, » M THEN 1430 

1400 FOR H=0 TO 2 ： IF HOI ANI) XX-7=X(H) AND YY-7=Y(H) THEN 1430 
1410 NEXT 

1420 FI(F)=J ： F2(J)=l:F=F+1 
1430 NEXT 

1440 IF F(I )=1 THEN 1470 

1450 IF(COUNT+I)MOD 3=0 AND F2(R(I))=1 THEN 1470 
1460 ON F GOTO 1550,1560, 1610,1750 
1470 LOCATE X(I)+7,Y(I)+7 ： PRINT"" 

1480 X(I)=X(I)+XX(R(I)) : Y(I)=Y(I)+YY(R(I)) 

1490 F(I )=0：LOCATE X(I)+7,Y(I)+7 ： PRINT"t"：GOTO 1510 
1500 F(I )=1 : LOCATE X(I)+7,Y(I)+7 ： PRINT"T" 

1510 IF X(I)=X AND Y(I) = Y THEN X(I )=9 

1520 IF XX(R(I))*XX(R)=-1 OR VY(R(I))*YY(R)=-1 THEN IF X(I)-X=XX(R(I)) AND Y(I)- 
Y=YY(R(I)) THEN X(I )=9 
1530 NEXT 

1540 FOR 1 = 0 TO 2 : LOCATE X(I)+7,Y(I)+7：COLOR 1+1 ： PRINTRIGHT$(STR$((COUNT+I)MOD 3 

),1) ； : NEXT：RETURN 

1550 R(I)=F1<0) : GOTO 1500 

1560 RE=R(I)-2 ： RE=RE-(RE<0)*4 

1570 IF F2(R(I))=1 THEN RR=R(I) : GOTO 1470 

1580 IF F1(0>=RE THEN RR=K1(1)ELSE RR=F1(0) 

1590 IF R(I)=RR THEN 1470 
1600 R(I)=RR：GOTO 1500 
1610 RF=0 ： RE=R(I)-2:RE=RE-(RE<0)*4 
1620 XE=X-X(I) : YE=Y-Y(I) 

1630 IF ABS(XE)<ABS(YE) THEN 1690 
1640 RR=-(XE>0)*2 

1650 IF F2(RR)=0 OR RR=RE THEN IF RF=0 THEN RF=1：GOTO 1690 ELSE GOTO 1720 

1660 IF XE=0 THEN 1720 

1670 IF R(I)=RR THEN 1470 

1680 R(I}=KR:GOTO 1500 

1690 RR=1-(YE>0)»2 

1700 IF F2(KR)=0 OR RR=RE THEN IF RF=0 THEN RF=1：GOTO 1640 ELSE GOTO 1720 
1710 GOTO 1670 

1720 IF F2(R(I))=1 THEN 1470 

1730 FOR H = 0 TO 3 ： IF FI(H) ORE THEN R( I )=RE：GOTO 1500 
1740 NEXT 

1750 XE=X-X(1) : YE=Y-Y(1) : FK=0 

1760 RE=R( I )-2:RE=RE-(RE<0) *-1 

1770 IF ABS(XE)<ABS(YE) THEN 1830 

1780 RR=-(XK>0)*2 

1790 IF XE=0 THEN 1720 

1800 IF R(l)=RR THEN 1470 

1810 IF HR=RE THEN 1830 

1820 H(I)=RR：GOTO 1500 

1830 RR=1-(YE>0)»2 

1840 IF RR=KH THEN 1780 

1850 GOTO 1800 

1860 I.ABEI/'EXIT" 

1870 IN PUT "FILE NAME*',F$ 

1880 OPEN"O m , I , K$ ： l J RINT #1.COUNT 
1890 FOR 1=0 TO COUNT-1 

1900 FOR J=0 TO 3:PRINT #1•B(l,J>,C(I,J ) ， 

1910 NEXT：NEXT 
1920 CI.OSE 
1930 DATA..,. — 

1940 DATA.. .. 

1950 DATA" 

1960 DATA" " 

1970 DATA*'- " 

1980 DATA.. ず， 

1990 DATA'* 

2000 DATA". . .‘" 

2010 DATA" 二 " 

2020 HATA M 

DATV' ‘二 ^ 

2040 DATA" 

205M DATA*' - 

20fi0 ノ： 

207M DATA". 11 •• 


1) CCD 写真取り込みでいつ 

なんたって w 初の n 玉は ccDYrt 取り込みでい。どう兄たって竹り! n のカメラと冏じ機械でまる ui 
中バシャバシャ报 りまくった w (を来の パソコンに 入力してやれば，あっという叫 に 映 m が俗祝する 
ってわけよ。もう¥典屋なんていらないね。 






ワイヤフレームでシユミ レー シヨン 


リストにあるものは作品で使われている 
データを持っているが， MAKE で新しいデ 
ータを作った人は，プログラム中のデータ 
文を削除してから新しいデータを MERGE 
してほしい。 

入力後 RUN すると，迷路のデータを配列 
に 読み込み，ワイヤ フレームの _面を出力 
する。1画面描〈のに4秒ほどかかる。前 
にも記したが，1ステップ4分の3秒なの 
で大体5分の1のスピードである。これで 
もかなり速いほうで，この速度を得るため 
にかなりの簡略化が行われている。 

画面に出てくる3色の四角はそれぞれ青 
:人間，赤：トレーサー2，シアン：トレ 
ーサー3を表している0トレーサー1はど 
こに行ったのかというと，なんだ君の傍に 
あるじやないか，つまり視点なのである。 

さて， ROAD で迷路のデータを変えてし 
まった人についてだが，当然このプログラ 
ム中の迷路の3 D データも変えなければな 
らないことに気づくはずである。迷路のデ 
ータは2010行から始まっているのだが，そ 
の場合データの フォーマッ トに気をつけて 
いただきたい。 

まず最初に点のデータが並ぶ。 X ( 横)魄 
標 ， Z (奥行き）座標の順である。迷路は縦 
横の大きさがそれぞれ1400，中心が（0， 
0) となるので，左奥は（一 7 〇0， 700) と 
なる。入力し終わったら，点の数を数えて 
1010行中の DIM 文の XA %， YA %， XX %, 
YY % の括弧のなかにぶっ込んでいただきた 
い。それと，その数より1引いた値を1020行 
の FOR 文の TO の後ろに入れる。 

そして今度はその点をつなぐデータも変 
えなければならない。まず，座標点のデー 
夕を，方眼紙などに描いてもらいたい。1 
つひとつの点に番号をふってである。1番 
から始める。そしてそれをじっと見つめ， 
どこの道をつなげば求める迷路に見えるか 
考える。そして，つなぐ点が見つかったら， 
2つを並べて座標データのあとに入力して 
いくのである。その数も数えておいて，や 
はり1010行の DIM 文のなかの， U T %( 1 
の次に1を引いた値をぶち込む。当然，1030 

2) アナログ CRT でいつ 


U スト2 MAKE 


1000 ON ERROR GOTO 1080 

1010 INPUT"FILE NAME" ： OPEN"O m ,#1,F$ 

1020 OPEN"I ",#2, "MOVE DATA" : E=1 0000: INPUT#1,COUNT 
1030 INPUT #2,A 

1040 IF D=0 THEN PRINT# 1,STR$ (E )； "DATA **；： E=E+10 

1050 IF D<>22 THEN PRINT#1,RIGHT$(STR$(A),2)；", M ； : GOTO 1070 

1060 PRINT#1,RIGHT$(STR$(A),2) ： D=-1 

1070 D=D+1：GOTO 1030 

1080 CLOSE：END 


U スト 3 DATA PRINT 2 


1000 S1=O:C1=0 ： XXX=0 ： ZZX=O ： YYX=O ： X1%=0 ： X2X=O ： Z1%=O ： Z2X=O ： MX=O ： N%=G 
1010 WIDTH 40 ： INIT：DIM XAX(44 ) ,ZAX(44 ) ,T%(1,31),XXX(44 ) ,Z7.X(44 ) 

1020 RESTORE 2010 ： FOR IX=0 TO 43 ： RHAI) XAX( IX) , ZA%( 1%) ：NEXT 
1030 FOR IX=0 TO 31:FOR JX=0 TO1 : READ TX(JX,1%) : NHXT ： NE\T 
1040 RESTORE 

1050 TIME=0 ： SCRHENSC,-(SC=0) 

1060 SC=-(SC=0) 

1070 HKAD X%(1),ZX(1) : READ XX(0),Z%(0) : FOR 1=2 TO 3：READ X%(I),Z%(I) : NEXT 
1080 FOR 1=0 TO 3:XX(U=XX(I> 本 1O0:ZX( I い ZX(I>*100:NEXT 
1090 FOR 1 =1 TO 3 ： XX( I)=XX( I )-XX(0) : ZX( I )=7.X( I »-Z%(0) ：NKXT 
1100 IF ZX(1)=0 THHN R=-(XX(1)<0)*RAD(180) : GOTO 1130 

1110 C=X%(1)/SQR(XX(1)~2+ZX(1)*2) 

1120 R=( (ZX(1)>=0)-(ZX(1)<0) )«ATN(C/SQR( 1-C~2) )+n/2-(ZX(1)<0)«RAI)( 180) 

1130 R=RAD(90)-R:S1=SIN(R) ： Cl=COS(R) 

1140 FOR 1=1 TO 3 

1150 XX=ZX(I) ： Z*(I)=XX(I)*S1+Z*(I)*C1 : XX(I)=-XX*Sl+XX(I)*C1 
1 160 NEXT 

1170 FOR I*=0 TO 43 ： XXX=XA%(IX)-X%(0) ： ZZX=-ZAX(1%)-ZX(0) 

1180 YYX=ZZX ： ZZX(IX>=XX%*S1+ZZX 本 Cl : XXX(IX>=-YY%*S1+XXX 本 C1 
1190 NEXT ： CLS0 

1200 FOR IX=0 TO 31 : T1X=T*(0,1X)-1 : T2X=TX(1,1X)-1 

1210 X1X=XXX{TIX) : Z1X=ZZ%(T1X) : X2X=XX%(T2X) : Z2%=ZZX(T2X) 

1220 IF Zl%>99 AND Z2X>99 THEN 1250 ELSE IF Zl%< 100 AND Z2X< 100 THEN 1260 

1230 IF Z1X<100 THEN MX=(Z2X-10O) : NX=(100-Z1X) : X1X=(NX*X2X+MX*XIX)/(MX+NX) : Z1X=1 

00：GOTO 1250 

1240 IF Z2X<100 THEN MX=(Z1X-100) ： NX=(100-Z2X) ： X2X=(NX*X1X+M%*X2X)/(MX+NX) : Z2X=1 
00 

1250 LINE(1604XlX»250/ZlX,50+20000VZlX)-(160+X2X*250/Z2X,50+20000YZ2%),PSET,7,&H 

1111 

1260 NEXT 

1270 FOR 1=1 TO 3 

1280 IF ZX(I)<10 THEN 1320 

1290 X=160+XX(I)*250/Z%(I) : Y=50+10000¥ZX(I) 

1300 R2=25 拿 250¥ZX<I> 

1310 LINE(X-R2,Y-R2) - (X+R2,Y+R2),PSET,I,B 
1320 NEXT 


1330 LOCATE 0,0：PRINT COUNT+1 
1340 COUNT=COUNT+1 : GOTO 1050 
1350 DATA 7, 7,-7,-7,-7, 7, 7 
1360 DATA-5, 7, 4,-4,-7 
1370 DATA 7,-2, 7,1,-1 
1380 DATA 7, 7,1, 5,1 
1390 DATA 4, 7, 5,1, 5 
1400 DATA-5, 5, 6, 5,-1 
1410 DATA 5,-5, 5, 3, 7 
1420 DATA-5, 5,-2, 3, 3 
1430 DATA 7,-7, 6,-1, 3 
1440 DATA-7, 4,-7, 7,-2 
1450 DATA 4,-7, 1,-7, 7,-5 
1460 DATA 7,1,-7, 1,-5, 7 
1470 DATA 1, 7,1,-5,-1 ,-5 
1480 DATA-7, 4, 7,-1,-5 
1490 DATA-1,-7, 5, 6,-1 
1500 DATA-2,-3,-7, 5, 3 
1510 DATA 2,-1,-3,-4, 3 
1520 DATA-1, 3, 0,-3,-1 
1530 DATA 3, 0, 2,1,-1 
1540 DATA 5, 2,1,1, 2 
1550 DATA-1, 7,1, 2, 0, 3 
1560 DATA 2,1, 7, 0, 3,-3, 3 
1570 DATA 0, 3, 4, 7,-3, 3,-3 
1580 DATA-1,-3, 3, 7, 7,-3, 2 
1590 DATA-5,-1 ,-3, 5, 7, 5,-3 
1600 DATA-3,-7,-1 ,-5, 5, 5, 5 
1610 DATA-5,-3,-7, 2,-5, 3, 5 
1620 DATA 3,-5,-5,-7, 5,-5 
1630 DATA 3, 4,-5,-7,-7, 7,-7 
1640 DATA 3, 2, 5,-7,-7,-4, 7 
1650 DATA-7, 5,-1, 5,-7,-4 
1660 DATA 7,-4, 5 
1670 DATA 4, 7,-3, 4,1, 7 
1680 DATA-1, 7, 7,-2, 3, 4 
1690 DATA-1,-1, 7, 5,1, 3 
1700 DATA 6,-1,1, 5 
1710 DATA 6, 5,-1,1, 5, 7 
1720 DATA 0, 5, 6,-1,-1, 3 

1730 DATA 2,-1, 4 

1740 DATA 7,1,-2,1, 7,-3 
1750 DATA-5, 7, 0,-3,-2, 7 
1760 DATA 5,-7, 7,-3,-3,-5 
1770 DATA-6, 5,-7 , 5,-3 
1780 DATA 5, 0, 0,-5, 5,-3, 2 
1790 DATA-5, 5, 0, 0,-5, 2,-3 
1800 DATA 5,-5, 3, 0, 0,-6 
1810 DATA-5, 4,-5,1, 0, 0,-7 
1820 DATA-2,-5, 1,-7, 1,0,0 
1830 DATA-7,-5,-7, 1,-7,-2 
1840 DATA 0 

1850 DATA 0 
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写典と同等の _ 像を得るにはすごいドット数だろうつて？ 1024 X 1021 ドット？ 冗談でしょ。こ 
ちとら江戸つ丫％けちけちしないで4096 X 409 G ドット。色は 26" 色なんか丨丨じゃ ない， アナログ CRT 
でい つ。 どんな色で出すことができる 0 ドット ごとに 無限色で い。 


特集 RHYTHMS TO TRACE 
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GOSUB 


ij スト 4 MAKE 2 


I) : NEXT：NEXT 
IF X(J,I)<>0 OR YU, 


1000 DIM X(3,187),Y(3,187),A(3,187) 

1010 FOR 1=0 TO186 : FOR J=0 TO 3：READ X(J,I),Y(J 
1020 FOR J=0 TO 3：FOR 1=1 TO186 

1030 IF X(J,I)=X(J,I-1) AND Y(J,I)=Y(J,I-1) THEN 

"input" 

1040 IF X(J,I)=0 AND Y(J,I)=0 THEN A(J,I)=5 
1050 NEXT：NEXT 
1060 GOTO 1140 
1070 LABEL"INPUT" 

1080 X1=X(J,I)-X(J,I-2) ： Y1=Y(J,I)-Y(J,1-2) 

1090 X2=X(J,I+1)-X(J,I) : Y2=Y(J,1+1)-Y(J,I) 

1100 R1=-(Y1=-1)-(X1=1)*2-(Y1=1)*3 
1110 R2=-(Y2=-l)-(X2=l)*2-(Y2=l)*3 

1120 RR=R2-R1 : IF ABS(RR)=3 THEN RR=-SGN(RR) ELSE IF RR=-2 THEN RR=2 
1130 RR=RR+2 : A(J,I)=RR：RETURN 
1140 0PEN"0",#1,"ASC" ： E=10000 
1150 FOR 1=0 TO187 : FOR J=0 TO 3 
1160 A=A(J,I) 

1170 IF D=0 THEN PRINT# 1,STR$ ⑻； . .DATA" E = E+10 

1180 IF D<>22 THEN PRINT#1,RIGHTS(STR$(A),1)；","； : GOTO 1200 

1190 PRINT#1,RIGHTS(STR$(A),1) ： D=-1 

1200 D=D+1 : NEXT：NEXT 

1210 CLOSE：END 


1220 DATA 7 
1230 DATA-5 
1240 DATA 7 
1250 DATA 7 
1260 DATA 4 
1270 DATA-5 
1280 DATA 5 
1290 DATA-5 
1300 DATA 7 
1310 DATA-7 
1320 DATA 4 
1330 DATA 7 
1340 DATA 1 
1350 DATA-7 
1360 DATA-1 
1370 DATA-2 
1380 DATA 2 
1390 DATA-1 
1400 DATA 3 
1410 DATA 5 
1420 DATA-1 
1430 DATA 2 
1440 DATA 0 
1450 DATA-1 
1460 DATA-5 
1470 DATA-3 
1480 DATA-5 
1490 DATA 3 
1500 DATA 3 
1510 DATA 3 
1520 DATA-7 
1530 DATA 7 
1540 DATA 4 
1550 DATA-1 
1560 DATA-1 
1570 DATA 6 
1580 DATA 6 
1590 DATA 0 
1600 DATA 2 
1610 DATA 7 
1620 DATA-5 
1630 DATA 5 
1640 DATA-6 
1650 DATA 5 
1660 DATA-5 
1670 DATA 5 
1680 DATA-5 
1690 DATA-2 
1700 DATA-7 
1710 DATA 0 
1720 DATA 0 
1730 DATA-7 
1740 DATA-2 
1750 DATA-6 
1760 DATA-5 
1770 DATA-5 
1780 DATA 1 
1790 DATA 0 
1800 DATA 0 
1810 DATA 0 
1820 DATA 0 
1830 DATA-7 
1840 DATA 7 
1850 DATA 1 
1860 DATA 5 
1870 DATA 0 


3, 7, 

-3,-1 

-3 t 0, 

7,-3 

-1,-3, 

-3 t 7 

6,-3, 
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3)3 D 処理でいつ 

3 D も朝メシ前でレイトレーシングと Z バッファの両アルゴリズムを採用，彩•明暗•反射•屈折 • 
透明感•材質感•雰囲気など，すべての视觉イメージをサポート。「との粉とニスで仕上げたベニヤ板」 
「牛乳をこばしたカシミヤの布地 j などの指定も可能。もちろん究極のホログラフィでいつ。 
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700, 100,700 ,300, 700,700 
100 


700,-300 

300,50 0,500,500,700 ,500, -500 ,300, -300,300 
-100 
-100 


700,-100 


500, 100,500 
300,500,300, -700, 100 

100 , 100,300,100 , 100,300,100, 500,100,700,100,-700 ， -100 ， - 500 ，-100 
- 100 , 300 ， -100, 500 ， -100,700,-100, 100,-100,-300,-300,100,-300 
300500, -300 ,-700 ,-500 ,-500,-50 0,-300,- 500 1-100, -500 ,300,-500 
500,-500, 700, -500,-700,-700, -100,-700,50 0,-700,700,-700: ' 44 max 

1,6, I ,41 ,H ,14,44,6,16,17,3,36,12,15,37,38,30,31,25,26,34,36 
9,11,7,8,23,24,32,33,19,20,21,22,27,28,39,40,10,27,24 ,35,2, 12 
4,8,5,9,7,11,18,19,17,25,20,26,29,31,32,38,33,43,37,42 : 1 32 max 


行の最初の FOR 文の TO のあとにも同じ値 
を入れる。 

これでいいのだが，方法としては前者と 
後者を同時に進めるのが望ましいだろう。 
ちなみに迷路の大きさは固定されており， 

1ブロックは100である。 

ところで，特に3 D グラフィックに興味 
をお持ちの方は，1200行以降の表示ルーチ 
ンを解析してみてほしい。ここには，ワイ 
ヤフレームで最低限必要な二次元投射，ク 
リッビングの手法が含まれているのである。 

画面の ホーム 位置のあたりに出力される 
数字についてである力 5 '，これは左からステ 
ップ数，トレーサー1(つまり視点）と人 
間との相対角度（どれくらいの角度に向け 
ば人間がちょうど真ん中にくるか）である。 
たまに相対角が，“4 • 6566129 E —10” など 
となるが，これは HuBASIC の関数の扱う 
数値のうち0の次に小さいもので，つまり 
は0のことである。 

MAKE 2 

MAKE で作られたファイル “MOVE DA 
TA ” を MERGE して走らせると，それを圧 
縮してファイルネーム “ ASC ” でデイスク 
に出力する。 

このプログラムによって作られたデータ 
が作品中に使われているわけだ。 

なお，出力されるファイル ネームが ROAD 
で出力されるものと同じなので，必要なら 
ばディスケットを換えていただきたい（実 
際，僕自身も必要でないと判断したから同 
じファイルネームにしたのだけれど)〇 

DATA PRINT 3 

MAKE 2で出力されたデータを1ステッ 
プごとに， ROAD と同じように出力するプ 
ログラム。リストにあるものは，作品中に 
使われているデータを持っている。 

走らせると，まずキー入力に関係なく表 
示を進める力、またはイ可か押されるごとに 
進めるかを聞いて〈る。前者なら1，後者 
なら2をそれぞれ押していた5^ごきたい。 

表示される0から3までの数字は，もう 
だいたい察しがつくと思うが，〇が人間， 

1から3がそれぞれトレーサー1から3に 
あたる。当たり前だが，非常に高速である。 

やはりこれも迷路のデータを変えた人， 
移動のデータを変えた人は不要なデータを 
書き換えていただきたい。 

RUN DATA 

人間は考える足である。だから，逃げる 
ときは足を使って走る。その走るときの股 
関節，膝関節の角度のデータを座標になお 
してラインで表示するプログラムである。 

走らせると配列に座標のデータを読み込 

20 Oh ! X 1988.2. 
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足の動作を表示 


んで，足だけが右から左へと走りだす。高 
速化のためラインを消す手間を省いている 
が，どうしても気になる人は 『’』（ REM ) で 
囲ってある LINE 文を復活させてやってい 
ただきたい。 

データは，1周期（同じ角度に戻るまで） 
36コマ分で構成されている。 

動画を仕上げる 

_ 

では次に，今まで作った動きのデータを 
作品として仕上げるためのプログラムを紹 
介する。 

TRACER & MAN 

作品中のキャラクター， 「 TRACER 」 と 
「 MANj の 3 D データを，ポリゴン，または 
ワイヤフレームで画面に表示するプログラ 
ム〇 

入力後走らせると，まず MAN を扱うか T 
RACER を扱うかを聞いてくる。どちらか 
必要なほうを MAN ， TRACER と入力して 
いただきたい。 

まず MAN と入力した場合だが，次に R 2 
( YZ 平面での回転角 ）， R 3 ( XZ 平面での回 
転角）を人力する。ちなみに， Y 方向は高 
さ， X 方向は幅， Z 方向は奥行きを表して' 
いる。数学の二次元の座標に奥行き Z を加 
えた座標系である。 


U スト5 DATA PRINT 3 


1000 WIDTH 40： INIT 

1010 PRINT"What mode do you need ? 1)Real time step. or 2) Push and step :.’； 

1020 IF INKEY$(1)="2" THEN M%=1 ELSE M%=0 
1030 CLS 

1040 FOR IX=0 TO14：READ AS：PRINT A$：NEXT 

1050 XX(0)=7:Y%(0)=7:XX{1)=-7:YX(1) =-7 ： XX(2) =-7 :Y%(2)=7 ： X%(3)=7:VX(3) =-7 
1060 XX%(0)=-1:YY%(1)=-1:XXX(2)=1:YY%(3)=1 
1070 RX(0)=1 ： R%(1)=2:R%(2)=2:RX(3)=3 
1080 READ A%,A%,A%,A% 

1090 FOR IX=0 TO186 

1100 FOR JX=0 TO 3 

1110 READ AX：IF A%=0 THEN 1150 

1120 IF A*=5 THEN 1180 

1130 RX(J%)=RX(J%)+AX-2：IF R%(JX)>3 THEN R*(J%)=R%(J%)-4 ELSE IF RX(J%)<0 THEN R 
%(JX)=RX(JX)+4 
1140 GOTO 1180 

1150 LOCATE X%(J%)+7,Y%(J%)+7：PRINT " 

1160 X%(JX)=XX(J%)+XXX(R%(JX)) : YX(J%)=YX(JX)+YY%(RX(J%)) 

1170 LOCATE X%(JX)+7,Y%(J%)+7 ： PRINTRIGHT$(STR$(J%),1) 

1180 NEXT 

1190 IF MXO0 THEN IF INKEYS (1)< > M THEN 1200 
1200 NEXT：END 

1210 DATA” f n .> く 、》ンへ 、.*" 

1220 DATA " 軀钃 P 通 **" 

1230 DATA" ； w *4* ヤ w : 

1240 DATA" 鐺 5* 炉、 羅 

1250 DATA". 守 ”: 卜 . ， •— 曲 " 

1260 DATA " 霧 < 讎麗 " 

1270 DATA"»»u ， ね〜ザ , 

1280 DATA"* 9 
1290 DATA M, ^ i- 
1300 DATA"* ， 

1310 DATA .、 :ゎ 
1320 DATA" is *> - i •" 

1330 DATA"d • ☆-- 、 ' " 

1340 DATA"? 覦 ® *" 

1350 DATA" *v か ,'::: メ .,').. ■ ，分 ...: 

1360 DATA0 ， 0 ， 0 ， 0 ， 0,0,0,0,0,0,0,0,0,0 ,0,0,0 ， 0,0,0,0,0,0 
1370 DATA0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,3 
1380 DATA0,0 ， 0 、 0,0,3,3,0,1,0.0,1,0,0,0,0, 0 ， 3, 1,0,0,0,0 
1390 DATA3,0,0,0,0, l,1,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0 
1400 DATA1,0,0,0,0,0,3,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0 
14 10 DATA0,0,0,1,0,1,0,0,0,0,0,0,0,0,1,1,1,3,0,0,0,0,0 
1420 DATA0,0,0,0,0,3,1,0,0,0,0,0,0,0,0,0,0,1,1,0,1,0,0 
1430 DATA0,0,0,0,0,0,1,3,0,0,0,0,1,0,0,0,0,1,3,1,0,0,0 
1440 DATA0,0,0,0,0,0,1,1,3,0,0,0,0,0,0,0,0,1,3,3,3,0,0 
1450 DATA0 ,0,0 ,0,0,0,3,0,3,1,0,0,0,0,0,1,0,0,1,0,1,3,0 
1460 DATA0,0,0,0,1,0,0,3,0,3,0,0,0,0,0 ,0,0 ， 0,3,3 ， 0 ,0,0 
1470 DATA0,0 ， 0,0 ， 0,0 ， 3,0,0 ， O ， 0 ， 0 ， O,0 ， 2 ， 1 ,1,1,0,0,0,0,0 
1480 DATA0,0,0,0,0,3,1,0,0,0,0,0,1,0,0,1,0,3,3,0,0,0,0 
1490 DATA0,0,0,0,3,0,0,1,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0 
1500 DATA0,1,1,1,0,0,0,0,3,0,0,0,0,1,0,0,0,0,0,0,0,0,0 
1510 DATA 1,0,0,0,0,1,0,0,0,0,0,O.G.O.O.O.Q,1,1,0,1,0,0 
1520 DATA0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,1,0,0,0,0,0,0 
1530 DATA3,0,0,0,0,1,1,1,0,0,0,0,1,0,0,0,0,1,3,1,4,0,0 
1540 DATA0,0,0,0,0,3,3,1,1,0,0,0,0,0,0,0,0,1,0,1,3,0,0 
1 550 DATA0,0,0,0,0,0,1,0,3,0,0,0,0,0,0,0,0,0,0,0,1,0,0 
1560 DATA0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,1,0,0,0,0,0 
1570 DATA0 ,3, 0,3,5,0,0,0,5,0,0,0,5,1,0,3,5,0,0,0,5, 0，0 
1 580 DATA0,5,0,0,1,5,0,3,0,5,1,0,0,5,0,0,0,5,0,3,0,5,3 
1 590 DATA0,1,5,0,0,0,S.O.e.O,5,0,0,3,5,0,1,0,5,0,0,0,5 
1600 DATA0,0,0,5,0,3,0,5,0,0,0,5,3,0,0,5,0,0,0,5,0,0,0 
1610 DATA5 ， 0,0 ， 3,5, 0,0 ， 0 ， 5, 3 ， 0,0,5,0,0,0,5,0,3,0,5,0,O 
1620 DATA0,5,O,0,0,5, 1,3,0,5, 0,0, 0,5,0,0,3,5,1,0,0,5,0 
1630 DATA0,0,5,0,1,3,5,3,0,0,5,0,0,5,5,0,0,5,5,1,0,5,5 
1640 DATA0,1,5, 5 ， 0 •0,5,5,3,0 ， 5,5 ， 0,3,5,5,0,0 ， 5,5|0 ， 0，5 
1650 DATA5,0,1,5,5,0,0,5,5,0,0,5,5,3,3,5,5,0,0,5,5,0,0 
1660 DATA5,510.0. 5,5 ， 0,0, 5,5, 0,0,5,5,0,0, 0,3,5,5,0 
1670 DATA0,5,5,3,O^^.O.O,5,5,0,0,5,5,3 I 0 I 5 I 5 I 0 I 0,5,5 
1680 DATA0,3,5,5,3,0,5,5,0,5,5,5,0,0,0,0, 


U スト 6 RUN DATA 


あたしは幾^!は苦手なのという人には， 

R 2に[30 ]， R 3に [-20] をそれぞれ入力 
していただきたい。すると，なかなかの角 
度で表示してくれる。ちょうど，正面に向 
かって左斜め上から見たような感じである。 

その後， FORM (格好）を入力する。値を 
変えることで走っている人間の格好が色々 
に変わるのである 。 RUN DATA に使われて 
いる データの おかげである。 

さらに，ワイヤ フレームで 出力す るか， 

ソリツドモデルで出力するかを入力するの 
である。前者なら LINE と，後者なら POLI 
G 0 N と入力していただきたい。 

TRACER を選ん;^場合も同;)策にして進め 
るのである。 

すべての入力がすんだなら， コン ピュー 


1000 WIDTH 40 ： INIT ： IXr0 ： X%=0 

1010 PALET 1 ,7:PALET 2,7 

1020 DIM XX(35,1),YX(35 I 1),RX(35 > 1) 

1030 GOSUB 1340 

1040 LINE(0,120)-(319,120),PSET,2 
1050 SCREEN "1 
1060 XX=320 

1070 ， COLOR 0 ： LINE(XX,100)-(X%+XX(IX,1),YX(IX,1))-(XX+XX(IX,3),YX(I%,3)) 
1080 ， LINE(XX,100)-(XX+XX(IX,0),YX(IX,0))-(XX+XX(IX,2),YX(IX,2)) 

1090 IX=IX+1 : IX=-IX* (1X035) : JX=IX-17-(IX< 18 ) >35 
1100 XX=XX-3：IF X%<0 THEN XX=320：CLS 1 

1110 COLOR 7:LINE(XX,100)-(XX+XX(IX,0),YX(IX,0))-(XX+XX( 1% ,1),YX(IX,1)) 
1120 LINE(XX,100)-(X%+XX(JX,0),YX(JX,0))-(XX+XX(J%,1),YX(JX,1)) 


1130 

1140 

* LOCATE 0 
GOTO 1070 

• 0: 

PRINT 

TIME 

1150 

DATA -80, 

90 

, 8, 

96 

1160 

DATA -71, 

72 

,0, 

102 

1170 

DATA -60, 

54 

，- 9, 

108 

1180 

DATA -47, 

36 

， - 18, 

114 

1190 

DATA -35, 

18 

， - 30, 

120 

1200 

DATA -21, 

27 

， - 44, 

113 

1210 

DATA -12, 

44 

， -57, 

107 

1220 

DATA - 3, 

61 

， -69, 

100 

1230 

DATA 3, 

82 

， -75, 

94 

1240 

DATA 8, 

96 

,-80, 

90 

1250 

DATA 0, 

102 

， -71, 

72 

1260 

DATA - 9, 

108 

， -60 ， 

54 

1270 

DATA -18, 

114 

， -47, 

36 

1280 

DATA -30, 

120 

， -35, 

18 

1290 

DATA -44, 

113 

， -21, 

27 

1300 

DATA -57, 

107 

， -12, 

44 

1310 

DATA -69, 

100 

，- 3, 

61 


4) アニメ処理でいつ 

たとえば，大好きな岬太郎の全身画を1枚人力したとすると，あとは人物アニメ処理で銳ぃドリブ 
ルでもへデイングシュートでも好きな勋きをさせられる。 t ちろんセリフだって好きな声で音声合成， 
「行くぞ翼くん，シュナイダーをぶっ飛ばせ！ J 。 


特集 RHYTHMS TO TRACE 































3, 82 
8, 96 



ワイヤ フレーム 表示の MAN 



ポリゴンで表示する MAN 


夕は描_を始める0当然ワイヤフレームを 
選んだほうが速く描き上がり，ソリッドモ 
デルを選んだ場合はかなりの時間待たされ 
ることになるだろう。しかし待ったものは 
恃ったなりの報酬があるのである。8色と 
はいえ陰影付きで而の向く方向が明確にな 
っているソリッドモデルは，なかなかに美 
し〈見えるのである。ぜひこのプログラム 
を入力して堪能していただきたい。 

ここで使われているソリッドモデル表示 
サブルーチンは，作品を撮影したプロダラ 
ムのなかのものとほぼ同じである。したが 
って，表示の手法についてはのちほど触れ 
ることにする。 

CHARACTER 

作品中で使われているロゴタイプを PCG 
に定義するプログラム。 

本当ならばこんなことはせずにストリン 
グ配列にでも代入しておけばいいのだろう 
が，なにぶんメモリが足りないのである。 
PCGft 体で 2 K バイトも容置があるので使 
わせてもらったのだ。 

16 x 8ドットのアルファベットと数字， 
それに， 32 X 16 のタイトルロゴを定義して 
いる。ご丁寧にも定義が終わると，“ SETT 
ING UP IS OVER ” などと，定義された文 
字で出て〈るようになっている。実は，僕 
は凝り性なのである。 

TRACE 7 

いよいよ本命のプログラムである0プロ 
グラムサイズ 16 K バイト， NEW 0 N 4 を実 
行したあとでないとメモリオーバーが出て 
しまうのである。 

実際，僕自身もよく作ったなと思うほど 

22 Oh! X 1988.2. 


1320 DATA -75, 94, 

1330 DATA -80, 90, 

1340 RESTORE 1430 
1350 FOR 1=0 TO 35 
1360 READ A,C 
1370 XX(I,0)= COS(RAD(A -90) )*10 

1380 YX(I,0)=100 -SIN(RAD(A -90))*10 

1390 XX(I,1)=XX(I,0)+COS(RAD(A+C-90))»10 
1400 YX(I,1)=YX(I,0)-SIN(RAD(A+C-90))*10 
1410 NEXT 
1420 RETURN 

1430 DATA -80,90,-76,81 ,-71,72,-66,63,-60,54,-54,45,-47,36,-41,27,-35,18,-28,22, 
-21,27,-17,35,-12,44 ,-8, 52 ,-3 ,61,0,71,3,82,5,89 

1440 DATA 8,96,4,99,0,102,-4,105,-9,108,-13,111 ,-18,114,-24,11 7,-30,120,-37,117, 
-44,113,-50,110,-57,107,-63,104 ,-69,100, -72,97,-75,94,-77,92 


リスト 7 TRACER a MAN 


1000 WIDTH 80：INIT 

1010 LOCATE 38,12：PRINT "WAIT" 


1020 X=0 ： XX=0 ： YY=0 ： ZZ=0 ： MX=0 ： MY=0 ： MZ=0 ： C=0 ： S=0 ： F=0 ： J1=0 ： IX=0:JX=0 ： HX=O ： XA=O ： Y1X= 


0 ： XB=0 ： M1=0 ： M2=0:YYX=0 ： X1=O ： X2=0:Y1=0 
MZX=0 ： MAZ=0 ： RSS=0 ： AX=0 ： BX=O ： C%=0 ： CO=0 
1030 DIMXAX(3),YAX(3),Z(75),LRX(64),X 
BR$(15),RURX(3,35) 

1060 RESTORE5470 


Y2=0 ： Z1=0:Z2=0:FX=0 ： FY=0 ： FZ=0 ： TRX=0 ： TRZ=0: 
KAITEN$="" 

3),Y(3) ,LX( 107),LY(107),LZ(107),LT*(3,64), 


1070 FOR I% = 0TO13 ： READA$,B$ ： BR$( IX)=HEXCHR$( A$ + A$+A$ + B$ + B$+B$) ".NEXT 
1080 BR$(14 )=HEXCHR$( "00FF00" ) : BR$(15 ) =HEXCHR$ C*00FF55 *') 

1090 RESTORE"RUD M ：FOR I%=0 TO 35：FOR J%=0 TO1 : READ RURX(J%, 1% ) ： NEXT : NEXT 

1100 FOR IX=0 TO 35：FOR J%=2 TO 3 ： RUR%(JX,I*)=RURX(JX-2, 1%- 17-(IX<18)*35) : NEXT：N 

EXT 

1110 LP$ = •，し INE" :CLS 

1500 INPUT"WHICH DO YOU NEED 'MAN* OR 'TRACER* : " ,NE$ 

1510 IF NE$<>"MAN" AND NE$<>"TRACER" THEN BEEP：GOTO 1500 

1520 IF NE$=”TRACER" THEN 1700 

1530 INPUT"R2 :” ， SR2 : INPUT..R3 : " ,SR3 

1540 MR0=SR2 ： MR1=SR3 

1550 INPUT f, FORM (0 - 35)",FO 

1560 INPUT"LINE OR POLIGON :", LP$ 

1570 FX=-30000:FY= 30000 ： FZ=- 30000 
1600 GOSUB..MAN PRINT" 

1610 CLS : GOTO 1500 


1700 INPUT"R2 : ",SR2 : INPUT"R3 ,SR3 
1710 TR0=SR2 ： TR1=SR 3 
1715 INPUT"FORM (0 - 90)",TFO 
1720 INPUT"LINE OR POLIGON :", LP$ 

1730 FX=-3O000 : FY=30000 : FZ=- 30000 
1740 GOSUB"TRACER PRINT" 

1750 CLS ： GOTO 1500 

2060 LABEL"MAN PRINT":CLS0 

2065 MR2 = -COS(RAD({FO+9)* 10))*65 ： MR3=RURX(0,FO) ： MR4=RURX(1,FO) : MR5=RUR%(2,FO) : MR 
6=RURX(3,FO) 

2070 IX=0：RESTORE "MAD":YA=ABS(SIN(RAD(COUNTDC10-10>>*7}:IF WA(0) <>0 THEN YA=0 
2080 READXX,YY,ZZ：IF XX=-9999THEN IX=0 ： GOTO2200 

2090 IF IX>18 AND IX<45 THEN R2=MR2 本 （（ IX< 32 } ■ ( IX> 31 M :MX=0 : MY=26 : MZ=1:KAITEN$ = •• 3 
2" ELSE2110 


2100 F=(IX>31)-(IX<32) : MX = 8.5*F ： MZ=1 : R3= (MR2/2.5 ) ： GOSUB ,, KAITEN M 

2110 IF IX>54AND IX<63THEN R2=MR4:MX=0:MY=-7:MZ=0:KAITEN$="2":GOSUB"KAITEN" 

2120 IF IX>50AND IX<63THEN R2=MR3:MX = 0:MY= 6 ： MZ=0:KAITEN$ = "2":GOSUB"KAITEN" 

2130 IF IX>66AND IX<75THEN R2=MR6 ： MX=0:MY=-7 ： MZ=0 ： KAITEN$="2" ： GOSUB"KAITEN" 

2140 IF IX>62AND IX<75THEN R2=MR5 ： MX=0 ： MY= 6 ： MZ=0 ： KAITEN$="2" ： GOSUB"KAITEN" 

2150 R2=MR0 ： R3=MR1 : MY = 0 : MX = 0：MZ = 0: KAITEN$ 二 . ， 23” ： GOSUB. ， KAITEN" 

2160 IX=IX+1 

2180 LX(IX)=XX ： LY(IX)=YY ： LZ(IX)=ZZ+100 
2190 GOTO2080 

2200 READ AX,BX,CX f DX：IF AX=-2 THEN 2240 

2210 LTX(0,IX)=AX ： LTX(1,IX)=BX ： LTX{2,IX)=CX:LTX(3, 1% )=DX 

2220 IF AXO-1 THEN Z(IX)=(LZ(AX)+LZ(BX)+LZ(CX)+LZ(DX))/4 ELSE Z(I%)=LZ(BX) 

2230 LR%(IX)=IX ： IX=IX+1 : GOTO2200 

2240 IF LP$="LINE" THEN COUX=62 ： GOTO"LINE" 

2249 FOR IX=0 TO 62 ： F=-999：FOR JX=IX TO 62 

2250 IF F<Z(JX) THEN F=Z(JX) : J1=JX 

2260 NEXT:SWAP LR%(IX),LRX(J1) : SWAP Z(IX),Z(J1) : NEXT 
2270 DEZ=5 

2280 FOR COU%=0TO62 ： IFLTX(0,LRX(COUX))=-l GOSUB"CIRCLE" ： GOTO2360 

2290 FOR IX=0 TO 3 : X(IX)=LX(LTX(IX,LRX(COUX))) : Y(IX)=LY(LTX(IX,LRX(COUX))) ： Z(IX) 

=LZ(LTX(IX.LRX(COUX))) : NEXT 

2300 X1=X(0)-X(1) ： Y1=Y(0)-Y(1) ： Z1=Z(0)-Z(1) 

2310 X2=X(2)-X(1) ： Y2=Y(2)-Y(1) : Z2=Z(2)-Z(1) 

2320 XX=Yl*Z2-Zl*Y2 ： YY=Zl*X2-Xl*Z2 ： ZZ=XltY2-Yl*X2 
2330 CO=(-50*ZZ)/(50*SQR(XX~2+YY^2+ZZ^2)) 

2340 IF CO<0 THEN2360 ELSEGOSUB2660 
2350 COL$=BR$(BRIGHT) : GOSUB"PRINT" 

2360 NEXT:RETURN 

2370 LABEL "TRACER PRINT" ： CLS0 

2380 IX=1 : RESTORE"TRD" 

2390 READXX,YY,ZZ：IF XX=-9999THEN I*=0:GOTO 2510 

2400 IF IX>8 AND IX く 17 THEN MY = -1:MZ=-9 : KAITEN$ = "2" : R2= TFO:GOSUB'.KAITEN" 

2410 IF IX>16 AND IX<25 THEN MY= 0 ： MZ=11 : KAITEN$="2" ： R2=-TFO:GOSUB"KAITEN M 
2415 IF IX>26 THEN MY=-3 ： MZ=3 ： KAITEN$="2" : R2=-TFO ： GOSUB"KAITEN M 
2420 R2=TR0:R3=TR1 :MX = 0:MY = 0:MZ = 0:KAITEN$ = "23_. :GOSUB"KAITEN" 

2450 LX(IX)=XX ： LY(IX)=YY ： LZ(IX)=ZZ+100 ： IX=IX+1 ： GOTO2390 
2510 READ AX,BX,C%,DX：IF AX=-2 THEN 2550 

2520 LTX(0,IX)=AX ： LTX(1 t IX)=BX ： LTX(2,1%)=C% ： LT%(3,IX)=D% 

2530 IF AXO-1 THEN Z( IX ) = ( LZ ( AX)+LZ ( BX )+LZ ( C% )+LZ ( DX) )/4 ELSE Z( IX)=LZ(BX) 

2540 LRX(IX)=IX ： IX=1X+1 : GOTO2510 

2550 IF LP$="LINE" THEN COUX=20：GOTO "LINE" 

2555 FOR IX=0 TO 20 ： F=-999：FOR JX=IX TO 20 
2560 IF F<Z(JX) THEN F=Z(JX) : J1=JX 

2570 NEXT：SWAP LRX(IX),LRX(J1) : SWAP Z(1%),Z(J1) : NEXT 

2580 DEZ=20：FOR COUX=0TO20：IF LTX(0,LR%(COUX))=-1G0SUB"CIRCLE" ： GOTO2630 

2590 FOR IX=0 TO 3 ： X(I*)=LX(LTX(I%,LRX(COUX))) : Y(IX)=LY(LT*(IX,LR%(COUX))) ： Z(IX) 

=LZ(LTX(IX.LRX(COUX)))：NEXT 

2600 X2=X(0) - X(1) ： Y2=Y(0)-Y{1) ： Z2=Z(0)-Z{1) 

2610 X1=X(2)-X(1) ： Y1=Y(2)-Y(1) ： Z1 = Z(2)-Z(1) : GOSUB.'BRIGHT INPUT" 

2620 COL$ = BR$(BRIGHT) : GOSUB"PRI NT" 

2630 NEXT：RETURN 

2640 LABEL"BRIGHT INPUT" 


5) 大画家モードでいつ 

CCD 人力した|山|像はリアルな次:像よ。ところがぎっちょん，人_来モードを通ればII もくらむよう 
な芸術作品風に早変わりでえ一い。曾舟をダブルクリツクすれば兑事な水爾画に，ピカソを選べば狂お 
しいほどピカソ調に，㈣本人郎を選べば……，もちろん堪発でえい。 











で，一番苦労したし，それだけに思い入れ 
も，賭けるものも多いプログラムである0 

このプログラムのなかには MAKE 2で作 
ったデータ（案はさらに圧縮してあるのだ 
が )， TRACER & MAN の三次元のキャラ 
クターデータと ， DATA PRINT 2で使った 
迷路のデータを元に作った，迷路の_デー 
夕 ， RUN DATA の走るときの関節の角度の 
データが含まれている。ここにきてはじめ 
てそれぞれのデータたちはおのおのの関係 
を知るに至るのである。 

それではねっとりとした説明に入る。 

1000行はいうまでもない。画面設定とユ 
ー ザ ー エリアの確保である。1010行でマシ 
ン語サブルーチンを書き込んでいる。ここ 
は XI D 専用。リモートを ON / OFF するた 
めのもので， NEWON によって CMT 命令が 
削られてしまったためである。 X 1 D 以外の 
方は変更点のとおりに入力してほしい。 

1020行を不思議に思われた方が多いので 
はないかと思うのだが，これは高速化のた 
めである。 BASIC の変数は基本的に宣言型 
でないため，使われた順に システムの ほう 
で定義していく。それを参照するときは一 
番最初に使われた時間が速いほうから順に 
捜す，という作業をしているのである。だ 
から，はじめのうちによく使う変数を使っ 
ておく （定義させる）と，場合によっては 
かなり実行速度が速くなるのである。 

1040行から1100行までは動きのデータ， 
面の明度ごとのタイルパターンなどを読み 
込んでいる。 

それから3行は各オブジェクトの出発点 
などの定義，その後ろからが MAN，TRAC 
ER を動かしている部分である。かなりごみ 
ごみしているが，僕自身はこれでもかなり 
まとまっているつもりなのである。文句が 
あるなら，僕は誰の挑戦でも受ける。興味 
がある人は頑張って解析していただきたい。 

1500行からはメッセージ表示ルーチンで 
ある。まずホーム位置に表示するメッセー 
ジを仮に表示し， 1 ドット X 8 ラインずつ 
GET @ で読み込む。そして ，あらかじめだ 
んだん明るくなるようなカラーコードを持 
つ行列のなかの1数を呼び出しておいて， 
その色が0でなければ，センタリングの行 
われた実際の表示位置に，読み込んだデー 
夕を PRESET モード，カラー7で PUT す 
る。その上から，呼び出したカラーコード 
で改めて PUT するのである。 

これを行うことで，メッセージがフェー 
ドインして，そして消えていくという映画 
のような効果が得られるのである。この部 
分もかなり独り善がりなプログラムだとは 


2650 XX=Y1*Z2-Z1*Y2 ： YY=Z1*X2-X1*Z2 ： ZZ=XI*Y2-Y1*X2 

2660 CO=(FX*XX+FY*YY+FZ*ZZ)/(SQR(FX^2+FY"2+FZ~2)#SQR(XX"2+Yy"2+ZZ A 2)) 

2670 IF STRS(ABS(CO) > = •• 1..THEN BRIGHT=0:GOTO2690 
2680 BRIGHT=IMT( <-ATN(CO/SQR(l-CO /> 2) )+n/2)«4 .4) 

2690 RETURN 

2700 Z=LZ(LTX( 1,1*)): X=320+LX(LTX(1,IX))*500/Z:Y=1G0-LY(LT%( 1,1*) )*250/Z 
2710 IF ZZ=0THEN R=-(XX<0)*RAD(180) : GOTO2740 
2720 C=XX/SQR(XX*2+ZZ~2) 

2 7 30 R=((ZZ>=0)-(ZZ<0) )*ATN(C/SQR(ABS{1-C"2)) )+t/2-(ZZ<0)»RAD(180) 

2740 HSS=-90+K#180/n:RETURN 
2750 LABEL "KAITEN" 

2760 XX=XX-MX ： YY=YY-MY ： ZZ=ZZ-MZ 
2770 FOR PX=1 TO LEN(KAITEN$) 

2780 ON VAL (MI D$(KAI TEN'S, P%,1))GOSUB2820,2850,2880 
2790 NEXT 

2800 XX=XX+MX : YY=YY+MY : ZZ=ZZ+MZ 
2810 RETURN 

2820 S=SIN(RAD(R1)) ： C=COS(RAD(R1)) 

2830 X=XX:XX=C»XX_S«YY:YY=S«X+YY«C 
2840 RETURN 

2850 S=S1N(RAD(R2)) ： C=COS(RAD(R2)) 

2860 X=ZZ:ZZ=C»ZZ_S»YY:YY=S»X+YY^C 
2870 RETURN 

2880 S=SIN(RAD(R3)) ： C=COS(RAD(R3)) 

2890 X=ZZ:ZZ=C 拿 ZZ-S 聿 ） CX 拿 C 

2900 RETURN 

2910 LABEL"CIRCLE" 

2920 COL$ = BR$(5) ： Z=LZ(LTX(1,LRX(COUX))) ： X=320 + LX(LTX(1,LR%(COUX)))*500/Z ： Y=100-L 
Y(LTX(1 f LRX(COUX)}> 家 250/Z 

2930 IF LTX(1.LRX(COUX))=25 OR LTX(1,LRX(COUX))=26 THEN COL$=BR$(11-TFO/9) 

2940 IF LTX(1.LRX(COUX))=27 OR LT%{1,LRX(COUX))=28 THEN COL$=BR$(14-(TFO MOD 2 )* 
(TFOO0)) 

2950 IF ABS(X)>3000 OR ABS ⑴ >3000 THEN RETURN 
2960 R=LT%(2,LRX(COUX))*250/Z：FOR 1=0 TO R 

2970 XX = SQR(IT2-K2} *2 :LINE(X-XX, Y + I}-<X+XX, Y+I} , PSET, BF ， COL$ 

2980 LINE(X-XX,Y-I)-(X+XX,Y-I),PSET,BF,COLS : NEXT : RETURN 
2990 LABEL "PRINT" 

3050 FOR I%=0 TO 3:XQ( 1% >=320+X<IX}*500/Z(IX}:YQ(IX>=100-Y{IX)*250/Z(IX):NEXT:GO 

SUB3270 

3060 RETURN 

3270 FOR IX=0 TO 2 ： XAX(IX)=XQ(IX) : YAX(IX)=YQ(IX) : NEXT：GOSUB 3310 
3280 FOR IX=2 TO 3 ： XAX(I%-2)=XQ(IX) : YAX(IX-2)=YQ(IX):NEXT 
3290 XA%(2)=XQ(0) : YAX(2)=YQ(0) : GOSUB 3310 
3300 RETURN 

3310 IF XA%(0)=XAX(1)AND YA%(0)=YAX(1)THEN RETURN 
3320 IF XA%(l)=XAX(2) AND YAX(1)=YAX(2) THEN RETURN 
3330 FOR IX=0 TO 2 ： Y=9999：FOR JX=IX TO 2 
3340 IF Y>YAX(JX) THEN Y=YAX(JX) ： J1=JX 

3350 NEXT：SWAP XAX(IX),XAX(J1) : SWAP YAX(1%),YA%(J1) : NEXT 

3360 IF YA%(0)<0 AND YAX(2)<0 THEN RETURN 

3370 IF YAX(0)>199 AND YAX(2)>199 THEN RETURN 

3380 IF XAX(0)<0 AND XAX(1)<0 AND XAX(2)<0 THEN RETURN 

3390 IF XAX(0)>639 AND XAX(1)>639 AND XA%(2)>639 THEN RETURN 

3400 IF YAX(0)=YAX(2) THEN LINE(XAX(0),YAX(0))-(XAX(1),YAX(0)),PSET,BF,COLS：LINE 
(XAX(1),YA%(0))-(XAX(2),YAX(0>),PSET,BF,COLS : RETURN 
3410 A=0 ： B=2:GOSUB 3592 
3420 M2=M 

3430 IF YAX(0)=YAX(1)THEN XA=XAX(0) : Y1X=YAX(0) : XB=XAX(1) : GOTO 3520 

3440 A=0 ： B=1 ： F=1：GOSUB 3592 

3450 YYX=YAX(B) : MUM 

3460 XA=XAX(0) : Y1%=YAX(0) ： XB=XA 

3470 FOR Y1X=Y1X TO YYX 

3480 XA=XA+M1 ： XB=XB+M2 

3490 LINE(XA,Y1%)-(XB,Y1X),PSET,BF,COL$ 

3500 NEXT 

3510 IF Y1X-1=YA%(2) THEN RETURN 
3520 A=1 ： B=2：GOSUB 3592 
3530 M1=M 
3540 YY%=YAX(2) 

3550 IF YAX(0)<>YAX(1)THEN 3570 
3560 SWAP Ml,M2:FX=0 
3570 FOR Y1X=Y1% TO YYX 
3580 XA=XA+M1 ： XB=XB+M 2 

3590 し INE(XA,Y1X>-(XB,Y1X),PSET,BF,COL$ 

3591 NEXT-.RETURN 

3592 M=(XAX(B)-XAX(A))/(YAX(B)-YAX(A)+1) : RETURN 
3600 LABEL M LINE" 

3610 FOR IX=0TO COUX：IF LTX(0,IX)=-1 THEN 3700 

3620 FOR JX=0 TO 3：Z = LZ(LTX(JX,IX)) : XAX(J%) = 320 + LX(LTX(JX, 1% ))*500/Z ： YAX(JX)= 100 
-LY(LTX(JX,IX))*250/Z：NEXT 

3630 LINE(XAX(0),YAX(0))-(XAX(1),YAX(1)) ， PSET,7 
3640 LINE(XAX(2),YAX(2))-(XAX(1),YA%(1)),PSET,7 
3650 し INE<XAX(2>,YA%(2))-(XAX(3),YA%(3)),PSET, 7 
3660 LINE(XAX(0),YAX(0))-(XAX(3),YAX(3)),PSET,7 
3670 NEXT：RETURN 


3700 Z=LZ(LTX(1,I%)) : X=320+LX(LTX(1,IX))*500/Z ： Y=100-LY(LTX(1,IX))*250/Z 

3710 R=LTX(2,IX)*250/Z 

3720 CIRCLE(X,Y),R,7,l:GOTO 3670 

5000 し ABEL"TRD" 


5010 DATA4,4,-8,-4,4,-8,5,-2,-8 f -5,-2 t -8,7,7,8,-7, 
5020 DATA4,3,-10,-4,3,-10,4 ,-2, -12 ,-4, -2,-12,2,-4, 
12 

5030 DATA6.6,14,-6,6,14,6,-1,17,-6,-1,17,3, -5,40,- 
5040 DATA0, - 1 ， - 9,0,-0,11,11,-4,9,-11 ， - 4,9 


7 | 8|8 | -5 | 10,-8,-5,1C 
-35,-2,-4,-35,4,-2,-12, 


,40, 6,-1,17,-6,-1,17 


5 ,.7 ,3 


5050 DATA6,-3,-4 f 5,2,-2,12,-5,4 
， - 4 ,-5,2 ,-2,-12,- 
, 0,0 

,5,1,5,3,1,3 
,13,9,13,9,1 
,22,21,19,17 
,4,0,-1,26,7 
,32,31,32,30 
•38, 37,36,38 


12,-1,6,8,-8,10,7,-1,10 
-12,-1,6,-8,-8,10,-7, 


21,21 
0 , 
34,34 
40,40 


1,10 


2,4,8,2,6, 


, 8,6 


,13,14,12, 10,14 


5060 DATA-6 
5070 DATA- 
5080 DATA1,2,6, 

5090 DATA 10,14, 

5100 DATA17,18, 

5110 DATA-1,25, 

5120 DATA29.30, 

5130 DATA35.36, 

5140 DATA-2,0,0,0 
5150 LABEL M RUD 

5160 DATA -28,22,-21,27,-17,35,-12, 44,-8,5 2,-3,61,0,71,3,82,5,89 
5 170 DATA 8,96,4,99,0,102,-4,105,-9,108,-13,111,-18,114,-24,117,-30,120,-37,117, 
-44,113,-50,110,-57,107,-63,104,-69,100,-72,97,-75,94,-77,92, -80,90,-76,81,-71, 
72,-66,63,-60,54 ， -54,45,-47,36,-41,27 ,-35 ,18 
5180 LABKI/'MAD" 


18,20,22,22 

27,3,0,-1,28,3,0 

29,31,33,33 

37,35,39,39 


6) 音声入力でいつ 

r irt : 線でいっ。短く短く……そうそのぐれえ。もうちっとはすっはに桃えてくんな。色は坑色っと。 

次は球でぃっ。なで半透明，材質は色ガラスにしてくんな。上から t をあてちまえ。もちっと叫るく， 特集 RHYTHMS TO TRACE 

そうそれぐれえ …… j 









思うが，解析してみて損はないと思う。 

1580行からは画面表示ルーチンで，動作 
制御のルーチンで定義された諸々の値を， 
迷路表示， MAN 表示， TRACER 表示の各 
ルーチンに渡す掛け橋となる部分である。 

迷路は常に一番最初に表示され，その他 
の3つのオブジェクトは Z 方向の視点との 
相対的（座標と向いている角度による〉な 
距離によって，遠いほうから順に表示され 
る。これによって，物体同士が重なっても 
奥行きを保って表示されるのである。 

1890行からが迷路の表示ルーチンである。 

まず座標データとつなぎ方のデータを配 
列に読み込む。座標データは読み込むと同 
時に，視点の位置と向く方向による回転， 
移動が行われる。 

視点の位置による移動，回転とはどうい 
うことかというと，絶対座標系（ある点「原 
点」を中心とする，客観的かつ普遍的な座 
標系）にあるそれぞれの物体の座標を，相 
対座標系（視点を中心とする主観的な座標 
系）に変換するのである。つまり，視点の 
絶対座標系の原点からの各軸の距離分だけ 
物体の絶対座標からマイナスし，さらに視 
点の向いている方向の角度のマイナス分を 
回転させるのである。これにより主観的な 
画面を得られるのだ。三次元グラフィック 
の基本理論である。 

なお，迷路の各面は四角形によって構成 
されて いる。データのフォーマットは のち 
ほど記す。 

2090行からは人間の表示を行っているル 
—チンである。 

ここでは座標を読み込むとき，腕の部分 
と足の部分を選び出して ， RUN DATA で作 
った関節の角度データによって回転させて 
いる。足のように2つ関節があるところは， 
まず外側の関節（膝関節）を回転させ，そ 
の後内側の関節（股関節）を回転させてい 
る。こうしないとあとでややこしいことに 
なるか，妙な回転をしてしまうのである。 

迷路の場合はそれ自体が動かないので視 
点による回転および移動は比較的楽なのだ 
が，人間の場合はちょっと趣が違う。ちょ 
こまかと逃げ回り，挙げ句の果てには方向 
まで変えるのである。 

したがって人間の座標変換は，まず固有 
の方向による回転を行い，その後視点座標 
が中心にくるように座標を変化させ，そし 
て視点の方向による回転を行うという，な 
んだか訳のわからないことをやっているの 
である。なぜそうするのかがわからなくて， 
それでもどうしても知りたいという人は幾 
何の先生にでも聞いてみてほしい。 


24 Oh! X 1988.2. 


5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 


DATA 6,25 ， -3 ， -6 丨 25 ， -3,6,25 丨 5 丨- 6,25 丨 5 丨 5,20 丨 - 5 丨 -5 丨 20，-5 
DATA 5,10 ， -3,-5,10, -3,5, 10,4, -5, 10 ， 4,2,27, -2,-2 ,27,-2,2 
DATA 2.25,-2,-2,25,-2,2,25,4,-2,25,4,0,32,.3 


27,4, -2, 27,4 


,7,14,-1,10,12, 
13, -9. 5 

• -7 » 14 , - 1 , - 
, 13,-9. 5 


， - 22,-1 


-22,3,1,-22,3 


-22,-1 ，-1，—22| — 1 
-3,-24,3,-1, -24,3 


DATA 9,24, -1,6, 25, -1,9, 24,3,6,25,3,10,15, 

DATA 10,15,-8,7,14,-8,10,12,-8,7,11,-8,8.5 
DATA-9, 24 ,-1,-6,25,-1 ,-9,24,3, -6 ,25,3, -10, 15, 

DATA -10,15,-8,-7 ( 14,-8,-10,12,-8|-7,11 t -8,-8 
DATA 5|8| — 3|~5|8» — 3|5j3|5| — 5|3|5>0|8, — 3|0)3|5 
DATA 4,-10,-2,1,-10,-2,4,-5, 4 ， 1, -5,3,4 ,-22 
DATA 3,-24,-4 , 1 ， - 24,-5,3 l -24 l 3,1 ,-24,3 
DATA-4 ， - 10,-2,-1,-10,-2,-4,-5,4,-1,-5,4,-3 
DATA -3, -22,3,—1,-22,3 ,-3,-24 ， — 4,-1,—24, -5 
DATA -9999,0,0 
DATA2,1,3 
DATA8,6,2 
DATA-1,19 
DATA 20,21 
DATA24,25 
DATA 36,35 
DATA38,37 
DATA7,8,4 
DATA46,50 
DATA52,53 
DATA56,57 
DATA 50,47 
DATA 65,64 
DATA69,68 
DATA-2,0,0,0 

DATA FF,FF,FF,F7,7F,F7,BD•F7,DD,77,AD,77,AD,B5,55,B5,55,AA,55,92 
DATA 29,92,4A,11,44,11,08,21 


,4, 

6,5 

1 ， 

2,8 

,7, 

5,6 

• 9, 

10,4 

,3, 

3,1 

i,5 

,7,3,7 

9, 

9 




,4, 

8,4 

10 

,10 

,11 

,12 

•16 

il5 f 

13, 

11, 

15 

,17, 

,14 

13 

,17, 

,18, 

12, 

14,18,16 

»6, 
,23 

,22 

20 

,21 

,25 

,24 

,22 

,20, 

24 , 

26, 

,23 

,22, 

,26 

27 

,21 

,23, 

,27, 

• 25 

,29 

,28 

26 

,24 

,28 

,30 

,27 

,26, 

30, 

31, 

力 

,27, 

,31 

29 

1 - 1 | 

,32, 

,1 

5,0 

,33 

,34 

34 

,33 

,37 

,38 

, 33 

,35, 

39 , 

37, 

,35 

,36, 


39 

,36, 

,34, 

,38 

,40 

,41 

,42 

37 

,39 

,43 

,41 

, 39 

,40, 

44 , 

43, 

,40 

,38, 

,42 

44 

，-1 I 

,45, 

,1 .* 

5,0 

7.46,9 

7, 

46, 

18. 

10, 

9,48,49 

,49 

,4 r 

し 8 

,10 







,53 

,52 

48 

,46 

,52 

,54 

• 51 

,48, 

54 , 

55, 

,50 

,51, 

,55 

53 





,57 

• 56 

54 

,52 

,56 

,58 

,58 

,59, 

55, 

54, 

,53 

,55 1 

,59 

57 





,61 

,60 

58 

• 56 

,60 

,62 

,59 

,58, 

62, 

63, 

,57 

,59, 

,63 

61,60, 

,61, 

63, 

62 

,64 

,65 

47 

,49 

• 66 

,64 

,49 

,51, 

67 , 

66, 

,51 

,50, 

,65 

67 





,68 

,69 

64 

,66 

,70 

,68 

,71 

,70, 

66, 

67, 

,67 

,65, 

,69 

71 





,72 

,73 

68 

,70 

,74 

,72 

,70 

,71, 

75, 

74 

,71 

,69 

,73 

75 

,73, 

,72, 

74, 

,75 


1,3 


,11，3 


U スト 8 CHARACTER 


1000 WIDTH 80 ： INIT：CLS 4:CGEN 1 
1010 FOR 1=0 TO 7：FOR J=0 TO 31 

1020 LOCATE 9+J 拿 2,I:PRINT#0,CHR$(I♦32+J);:PRINT "； 

1030 NEXT ： NEXT：CGEN 
1040 GOSUB "PCG" 

1050 CLS0:INIT 

1060 POSITION 63, 90 

1070 = I — ■■■} ]l I ■/} }l I 卜 " 

1080 FOR 1=1 TO 32 

1090 PATTERN-8,MID$(CGPATS(ASC(MID$(A$,I,1))-18),9,16) 

1100 NEXT 

1110 POSITION 63, 98 

1120 = I "liil I l/iil I 卜 " 

1130 FOR 1=1 TO 32 

1140 PATTERN-8,MID$(CGPAT$(ASC(MID$(A$,I,1))+2),9,16) 

1150 NEXT 

1160 POSITION 175，110 
1170 FOR 1=1 TO18 

1180 PATTERN -8,MID$(CGPATS(ASC(MID$("SETTING ： UP ： IS ： OVER",I,1))-44),9,16) : NEXT 
1190 END 

1200 LABEL "PCG" 

1210 FOR 1= 0 TO 255 : DEFCHR$(I)=STRING$(24,0) : NEXT 

1220 FOR 1= 0 TO 47:READ A$,B$ ： DEFCHRS(I)=HEXCHR$(A$+B$+A$) : NEXT 

1230 FOR 1=112 TO151：READ A$ : DEFCHR$(I)=HEXCHR$(A$+B$) : NEXT 
1240 RETURN 

1250 DATA 000000000003 0103.0000000000C0C 000,000000 IF 00000000,000000 F 000000000 
1260 DATA 0000000000030100,0000000000 C0C 000,0000000106186000,0618608000000000 
1270 DATA 0718707376 1C0700.C070DC9C1C30C 000,030 F 030303030 F 00,808080808080 E000 
1280 DATA 0F 3870000 F3C7F00.E0381CF0800CFC00,IF 7000070070 1F00.F01C1CF81C1CF000 
1290 DATA 00030 E187F 000000 ,F0F 07070 FC70F 800,3 F383F 0070380 F00.F800E0381C38E000 
1300 DATA 0F 38707 F70701F00.E 03800 F01C1CF 000,7 F 700001030303 00,FC1C70C 080808000 
1310 DATA IF 70703 F70701F00.F01C1CF81C1CF 000,0 F3870IF 00380 F00.E03C1CFC1C38E000 
1320 DATA 0000000000000000,0000000000000000,0000000000000000,0000000000000000 
1330 DATA 0000000000000000,0000000000000000,0000000000000000，0000000 000000000 
1340 DATA 0000000000000000,0000000000000000,0000000000000000,000000000 @000000 
1350 DATA 0000000000000000,0000000000000000,030508103 F40E 000,8 0C0Ee70F81C3E0e 
1360 DATA FF 70707 F7070FF00.F80E0EF80E0EF 800,0738 E0E0E 038070 0,E6IE 06000618 E000 
1370 DATA FF 7070707070 FF00,E0380E0E0E38E000.FF 70707 F7070FF00.FE0220E 02002 FE00 
1380 DATA FF 70707 F7070F800,FEO220E 02000000 0,0738E0E0E 038070 0.G01C00FE0618E000 
1390 DATA F 870707 F7070F800,3E1C1CFC1C1C3E 00 ， 0703030303030700,008080808080 C000 
1400 DATA 00000038783 C0F00.7C 3838383870 C000,F 870717 F7170F 800,7 E70C080C0707E00 
1410 DATA 7C 38383838387 F 00,000000000006 FE00,FC7C7E7E7777FB00,3E7C7CDC9C9C3E00 
1420 DATA FC7E 77737170 F 800,3 E1C1C9CDCFC7E 00,0738 E0E0E 038070 0,C0380E0E0E38C000 
1430 DATA 7F 38383 F 38387 C00.F80E0EF 800000000,0738 E0E0E 038070 0.C0380E0EEE38CE00 
1440 DATA 7F 38383 F 38387 C00,F80E0EF8E0383E00 ( 0F787O1F00F03F00,E03C00F80E1EF800 
1450 DATA 7F 430303030307 00,FC 8480808080 C000.F 870707070380 F00.3E1C1C1C1C38E000 
1460 DATA 70201008040 30 100, 3E1C3870E0CC8000,FB 77773 E3E1C1C00,3E9C9CD 878703000 
1470 DATA 7018060306 1C7C00,3E38E0C0C0301E00,7018060303030700,3C70C 0808080 C000 
1480 DATA 7F400E0 107 1C7F00.FE1C70C 07002 FE 00,0000000000000000,0000000000000000 
1490 1 

1500 DATA FF3F3F3F3F3F3F3FFF 000000000000 FF.FC0F 010000010 FFC00E0FC7E7EFCE000 
1510 DATA FF3F3F3F3F3F3F3FE 0000000000000 FF,0F 010101010101 FFFEF8F8F8F8F8F8F8 
1520 DATA 3F 07030100000000 F0E0F0F8FC7E3F1F, 00000001070 C38F0FE30E 08000000000 
1530 DATA 3F78C 00000000000 FF0F0F0F0F0F0F0F,FFC0C0C0C0C0C0C0F83C 060000000000 
1540 DATA FF3F3F3F 373333310080 C0C0E0F0F0F8.03070F0F1F3B3363FCF0F0F0F0F0F0F0 
1550 DATA 00071E3CIF 0700007 FE 0000000 F0FF0F.F0IE 01000000 C0FE0030F 03000000000 
1560 DATA 00030 F3E7CFCFCFC3FE 00000000000 00,F80F 0100000000000080 E0F87C7E7E7E 
1570 DATA 00000000000001010 F1F1F3B71E0C080.F0F8F8FCFEFF7F3F 0000000000008080 
1580 DATA 00000 F3E7CFCFCFC0FF 8800000000000 ,FC 07000000000000008676 IE 06000000 
1590 DATA FF3F3F3F3F3F3F3FFF 000000000000 FF,FF 000000000206 FEFE0E 020000000000 
1600 DATA 3F3F3F3F3F3FFF 00030000000000 C000.F8FC7F1F 0701000000000080 E0FB3E00 
1610 DATA 3F3F3F3F3F3FFF 00000000000000 E000, 010 1010101010F00F8F8F8F8F8F8FE00 
1620 DATA 00000000000000000 F 07070707073 F00.E0E0E0E0E0E0FC 000000000000000000 
1630 DATA 00000000000000000 F0F0F0F0F0F7F 00,00 C0C0C0C0C0F 8000000000000000000 
1640 DATA 303030303030 FC00FCFF7F3F3F1E0C00.C3C 3830303030 F00F0F0F0F0F0F0FC00 
1650 DATA 0000006078 FFC0 000000000000 E03F00,1F010000000FF800E0F87C3CF8E 00000 
1660 DATA FCFC7C3E0F 0300000000000000 E03F00 ,000000000 10FF8007E7E7CF8E 0800000 
16.70 DATA 03070 F1C1838FC0 00000 FF 0000000000 ,3F1 FFF 0703030 F00C0E0F0F8F8FCFF00 
1680 DATA FCFC7H3F0F 0000000000000080 F80F00, 000000000003 FC 000000 061C70C 00000 
1690 DATA 3F3F3F3F3F3FFF 00000000000000 FF 00,060200000000 FF 0000000000020 EFE00 
1700 1 


7) フルカラー プリンタで いつ 

ドットパターンで ディ ザリングしての疑似 フル カラーなんかでは満足できねえ。こちとらインクを 
混合してまさ に その色を出す フル カラープリント対応よ。これはもうカラー写典感覚でいつ。 














その後，2370行からはトレーサーの表示 リスト 9 TRACE 7(X1D) 

を行つている。 


だいたい人間の表示と同様のことをやっ 
ている。違うところといえば，回転移動の 
結果として，もしトレーサーが画面に表示 
されない（つまり画面の右，もしくは左に 
すべての点がはみ出す）場合は表示を行わ 
ないということくらいだろう力、 

そしてこれから先に重要なサブルーチン 
が並ぶ。心して解析してほしい。 

2640行からは，その面の明るさを求める 
ルーチンである。 

( FX , FY , FZ ) に光点の視点との相対座 
標，（ XI ， Yl ， Zl )，（ X 2, Y 2, Z 2) 
にそれぞれ明るさを求める平面に含まれる， 
ある一点を基準にした2つのべクトル成分 
をぶち込んで呼び出すと，変数 BRIGHT に 
0から13までの明るさ （0 が明るく13が喑 
い）を返して〈るようになっている。 

ここでは，まず2650行でべクトルの外積 
(わからない人は数学の先生に聞くなり百科 
事典で引くなりしてほしい）を求め，その 
点と光点との内積を求め，さらにそれをア 
ークコサインによって角度に変換して明る 
さを得ている。わかってもらえたであろう 
か。 

ただしコサインの値が1になるときはデ 
イバイジョン.ゼロのエラーが出てしまう 
ので，特別な措置をとらなければならなか 
った。それが2670行である。 

次の2700行からは原点（0, 0) と，( XX , 
ZZ ) の XZ 平面に投射された角度を求めて 
いる。 

実際にはトレーサー1と人間との相対角 
度を求めるときに使われていて，その角度 
のマイナス分だけ X Z 平面での回転を行う 
ことによって，いつも視点の真ん中に人間 
がいるという状況を作り出している。 

2750行からは，座標の回転サブルーチン 
である。 

( XX ， YY ， ZZ ) に回転させたい座標を入 
れて呼び出すと， （ MX ， MY ， MZ ) を中心 
に回転を行う。 

KAITEN $ に1，2，3のどれかをいく 
つか代入することによって回転する平面お 
よび順番を指定することができる。 

1は XY 平面，2は YZ 平面，3は XZ 平 
面を表していて，回転角はそれぞれ R 1， 
R 2 ，R 3である。 

二次元の回転と違い，三次元座標の回転 
には色々とバリエーションがあって，回転 
させる順番によって動きが変わってくるの 
である。ちょっと考えてみてほしい。意外 
I :面白いはずである。 


1000 WIDTH 80 ： INIT：CLEAR &HFEEF 
1010 MEM$(iHFEF0,10)=HEXCHR$("3E02CDEC0D3E00C3EC0D") 


S=0:F=0 ： J1=0 ： IX=0 ： J%=0 ： HX=0 ： XA=0:Y1X= 
Z1=0 ： Z2=0 ： FX=0 ： FY=0 ： FZ=0 ： TRX=0 ： TRZ=0 ： 
KAITEN$= 


1020 X=0 ： XX=0 ： YY=0 ： ZZ=0 ； MX=0 ： MY=0 ： MZ=0 ： C=0 ： 

0:XB=0 ： M1=0 ： M2=0 ： YY%=0 ： X1=0 ： X2=0 ： Y1=0 ： Y2=0 ： 

MAX=0 ： MAZ=0 ： RSS=0 ： AX=0 ： BX=0 ： CX=0 ： DX=0 ： CO=0: 

1030 DIMXAX(2>,YA%(2),Z(75),LR%(64),X(3),Y(3),LX(107),LY( 107 ),LZ(107) ,LT%(3,64), 
TX(192),BR$(15),RURX(3,35) 

1040 RESTORE "MOVD" 

1050 FOR 1=0 TO 192：READ A$ ： TX(I)=VAL("&H"+A$) : NEXT 
1060 RESTORE4490 

1070 FOR I=0TO13 : READA$,B$ : BR$(I)=HEXCHR$(A$+A$+A$+B$+B$+B$) : NEXT 
1080 BR$(14)=HEXCHR$( M 00FF00") : BR$(15)=HEXCHR$("00FF55") 

1090 RESTORE"RUD"：FOR 1=0 TO 35：FOR J=0 TO1：READ RUR%(J,I) : NEXT：NEXT 
1100 FOR 1=0 TO 35：FOR J=2 TO 3 : RURX(J,I)=RURX(J-2,I-17-(I<18)»35) ： NEXT : NEXT 
1110 WX(0)=700 ： WZ(0)=700 ： WX(1)=-700 ： WZ(1)=-700:WX(2)=-700 ： WZ(2)=700 ： WX(3)=700：WZ 
(3)=-700 

1120 WR(0)=180 ： WR(l)=90 ： WR(2)=90 ： WR(3)=0 ： WY(2)=-36 ： WY(3)=-36 
1130 COUNTA=1 : COUNTB=0 

1140 IF COUNTB=0THEN FOR I=0TO3 ： WA(I)=VAL(MID$(RIGHTS("000"+HEX$(TX(COUNTA)),4), 
1+1,1)) : NEXT 

1150 FOR I=0TO3：IF WA(I)=5GOSUB"DOWN" ： GOTOl240 

1160 IF 1=0 THEN IF COUNTA>110 THEN WB(0)=WB(0)+25：GOTO 1180 

1170 IF 1=0 THEN WB(0)=0 

1180 IF WA(I)O0THEN1220 

1190 IF I=0THEN MR2=-COS(RAD((COUNTD+9>»10> >*65 :MR3=RURX<0,COUNTD>:MR4=RUR%<1,CO 
UNTD) : MR5=RURX(2,COUNTD) : MR6 = RURX(3,COUNTD) 


1200 IF WWS (1)00 THEN WWS ( I ) =WWS ( I )-10 

1210 WX(I)=WX(I)+SIN(RAD(WR(I>))* 100/ 18 ： WZ(I)=WZ(I)+COS(RAD(WR(I))) *100/ 18：GOTOl 
240 

1220 WR(I)=WR(I)-(WA(I)-2)*5 
1230 IF IO0THEN WWS ( I ) =WWS (I)+5 

1240 IF IO0THEN WR2 (I) =SIN (RAD (WWS (I) ) ) *90 ： WY (I) =-36+SIN (RAD (WR2 (I) ) )*14 
1250 NEXT 

1260 LOCATE 0,0：PRINT COUNTA,COUNTB 

1270 COUNTB=COUNTB+l：IF COUNTB=18THEN COUNTB=0 : C0UNTA=C0UNTA+1 

1280 IF WA(0)=0 THEN C0UNTD=C0UNTD+1：IF COUNTD=36 THEN COUNTD=0 

1290 IF COUNTA>127 AND COUNTA<138 AND WWS ⑴ <>0 GOSUB..ALL PRINT" ELSE 1140 

1300 MFF=0 

1310 IF (COUNTA¥2)=3THBN M$="PLODUCBR ： : A.SHIBATA" ： MFF=1 ： MYX=96 
1320 IF (COUNTA¥2)=5THEN M$="CALCULATER ： : CZ-802C" ： MFF=1 ： MYX=96 
1330 IF (COUNTA¥2)=7THEN M*= M AND ： THE ： TITLE:IS... ": MFF=1 ： MYX=96 

1340 IF (COUNTA¥2> = 10THEN M 拿 : i" w 八 • N •• ヲア ： r j イ〇 : r j り x オヤ i ■ ツ .. ： MFF=1:MYX=92 : GOSUB 
"M PRINT" : M$ = "- アイウェオカキイウタケコ，：ヵキシス：カキーア t ソタチツテ " ： MYX=100 


1350 IF MFFO0 GOSUB..M PRINT" 


1360 LINE(0,0) -(639,7 ),PSET,0,BF 
1370 CLS：CALL &HFEF0 
1380 IF C0UNTAO192G0T01140 
1390 RUN"KNOCK DOWN.CG" 

1400 LABEL"DOWN" 


1410 IF WC(I)=-1 THEN 1490 

1420 IF WB(I)=0THEN WC(I)=0 

1430 IF WB(I)=66THEN WC(I)=-1 ： GOTOl490 

1440 IF WB(I)<8 THEN WX(I)=WX(I)-100/18 ： WB(I)=WB(I)+1：GOTO 1490 
1450 WR(I)=WR(I)+20 ： WX(I)=WX(I )+7 ： WB(I)=WB(1) + 1 
1460 IF WB(I)<14 THEN WY(I)=WY(I)+SIN(RAD((WB(I)-8)*45))*5 
1470 IF WB(I)<30THEN1490 


1480 WC(I)=-SIN(RAD((WB(I}-30>.5)> 拿 50-2 

1490 RETURN 

1500 LABEL..M PRINT" 

1510 XX=(639-LEN(M$)*16) ¥ 2：POSITION 0，0 

1520 FOR IX=1 TO LEN(M$) : PATTBRN-8,MID$(CGPAT$(ASC(MID$(M$,IX,1))-44) ,9,16) ：NEXT 
1530 M=COUNTA MOD2 ： COL(1)=VAL(MID$( M 111555777777777777M=1)*19-(COUNTB+1)*( (M 
=0)-(M=l)),l)) 

1540 COL(0>=VAL(MID 拿 < "01 1155557777777777",-( 的 1 }*19-(COUNTB+l ”（ <M=0>-(M=1)},1)) 
1550 FOR JX=0 TO LEN<M$>*16-l:COL=COL<J% MOD 2) 

1560 IF COLO0 THEN GET# ( J*, 0 ) - ( JX, 7 ) , LX , 7 ： PUT® ( JX+XX, MYX) - ( J%+XX, MYX+7 ) , LX , PRES 

ET,7 ： PUT*(JX+XX,MYX) - (J%+XX,MYX+7),LX,OR,COL 

1570 NEXT：RETURN 

1580 LABEL"ALL PRINT" ： CLS0 

1590 XX=WX(0)-WX(1) : ZZ=WZ(0)-WZ(1) : GOSUB"R PUT" 

1600 SSX=WX(1) : SSZ=WZ(1) : GOSUB"ROAD PRINT" 

1610 XX=5000 ： YY= 10000 :ZZ=-30000 ： R3=RSS ： KAITEN$="3":GOSUB"KAITEN" : FX=XX ： FY=YY ： FZ= 
ZZ 

1620 FOR IX=0 TO 3 ： XX=WX(IX)-WX(1) : ZZ=WZ(IX)-WZ(1) : GOSUB"KAITEN" 

1630 OX(IX)=XX ： OZ(IX)=ZZ ： NEXT : FOR OX=0 TO 2 ： F=-999:FOR IX=0 TO 3 
1640 IF F<OZ( 1%) AND 1X01 THEN F=OZ( IX) : I1 = I%+1 

1650 NEXT：IF WC(11-1) <>-1 AND OZ(11-1)>0 THEN ON II GOSUB1690,1670, 1760, 1770 
1660 IF WC(11-1) <-1 GOSUB 1780 
1670 0Z(I1-1)=-9999:NEXT 
1680 RETURN 

1690 IF WB(0)=0 THEN1750 
1700 MX=0 ： MZ=0 

1710 XX=WX(0)-WX(1) : ZZ=WZ(0)-WZ(1) : KAITEN$ = "3 " : R3=RSS : GOSUB..KAITEN" : Z1=ZZ 
1720 XX=WX(0)+SIN(RAD(WB(0)))>50-WX(1) : ZZ=WZ(0)-COS(RAD(WB(0)))*50-WZ(1) : G0SUB"K 
AITBN" : BALX=XX ： BALZ=ZZ 

1730 IF BALZ<Z1 GOSUB1750 ： GOSUB1850：RETURN 
1740 GOSUB1850 ： GOSUB1750：RETURN 

1750 MAX=WX(0) : MAZ=WZ(0) : MR 1=WR(0)- 180 ： GOSUB"MAN PRINT"：RETURN 

1760 TRX = WX(2) : TRZ=WZ(2) : TRY = WY(2) : TR1=WR (2)-180 ： TR2 = WR 2 ( 2 ) : GOSUB"TRACER PRINT '*： 
RETURN 


1770 TRX=WX(3) : TRZ=WZ(3) : TRY=WY(3) : TR1=WR(3)-180 ： TR2=WR2(3) : GOSUB"TRACER PRINT": 
RETURN 

1780 COL=VAL(MID$( ,, 423242" , (COUNTB MOD 6 )-)-1,1)) 

1790 ZZ=WZ( 11-1 )-WZ(1) : XX = WX( 11-1 )-WX(1) : KAITEN$ =.. 3” ： R3 = RSS : GOSUB'.KAITEN •. 

1800 X=320+XX*500/ZZ:Y=60-(WY(11-1)-WY(1)-36)*250/ZZ 
1810 R = -WC( 11-1)*250/ZZ：FOR 1=0 TO R 

1820 XX=SQR(R~2-K2)*2 ： LINE(X-XX,Y+I)-(X+XX t Y+I),XOR,COL,BF：IF 1=0 THEN 1840 
1830 LINE(X-XX,Y-I)-(X+XX,Y-I>,XOR,COL,BF 
1840 NEXT：RETURN 


1850 COL=VAL(MID$("423242",(COUNTB MOD 6>+1,1>>:Z=BALZ:X=320+BALX 拿 500/Z:Y=60+(45 
-WY(l>-36>*250/Z 

1860 R=<5+COS<RAD(WB(0> 拿 2>1 拿 5| 拿 250/Z:FOR 1 = 0 TO R 


1870 XX=SQR(R~2-I"2)*2 ： LINE(X-XX,Y+I)-(X+XX,Y+I),PSET,COL,BF 
1880 LINE(X-XX,Y-I)-(X+XX f Y-I),PSET,COL,BF : NEXT : RETURN 
1890 LABEL"ROAD PRINT" 

1900 RESTORE "ROD” ： R3=RSS:KAITKN$="3" : 1%=0 
1910 READ A%,BX：IF AX=-9999 THEN1940 


8) マルチウインドウでいつ 

当然マルチウインドウ対応よ。ふたつの絵を明ぃて，切ったり貼ったり重ねたり。二次元座標の絵 
と三次元の絵を混在させることもできる。 TV から入力した画像を2枚合わせれば猪木の頭を馬場の胴 
体にくつつけてジャントニオ猪場を作るのにわずか5秒もかからないんでい。 


特集 RHYTHMS TO TRACE 



今までは幾何系のサブルーチンであった 
が，次からは画面表示に関するサブルーチ 
ンである。 

3 D グラフィックというのは，内部で扱 
われている三次元の座標データを平面に 
投射して見せるという性質上，どうしても 
三次元座標を扱う部分と二次元の部分とを 
別々に用意する必要がある。しかも基本的 
にそれら2っはなんの関わりも持っていな 
いので，ここら辺が実にややこしいところ 
だ。 

2910行からは塗りっぶされた円を表示す 
るサブルーチンである。 

これ以下のサブルーチンは人間などを表 
示するところから主に呼ばれているので， 
座標の受け渡しが局地的な方法で行われて 
いる。 COU % というループカウンタ によっ 
てである。したがってこの部分を解析する 
前には前のサブルーチンを解析しておく必 
要がある。 

まずこの中では，二次元に投射された（見 
挂卜けの）座標および半径を求め，スキャン 
コンバージョンと呼ばれるガ法によって塗 
りつぶされた円を表示している。 

スキャンコンバージョンとは， ある図形 
の1ラインごとの線の長さ，位置（円の方 
程式は，円の位置を原点に定めると X 2 + Y 2 
= R 2 であるから，長さはノ R 2 _ Y 2 x 2と 
なる）を求める作業を繰り返し，図形を書き 
上げる手法である。 

XI □で自動撮影 

なにより嬉しいことに私の使用している 
X ID にはリモート端子が付いているのであ 
る。これはなにを意味するのかというと， 

「8ミリカメラでの自動撮影ができる j とい 
うことなのだ。 

たとえば， I 分間の C G アニメを8ミリ 
カメラの18コマモード（ I 秒間に18コマ映 
写するモード）で撮るとする。ひとつの画 
面を作るのに2分かかるとして（実際には 
もっとかかる）撮影を終えるにはどのくら 
いの時間がかかるかというと， 

60 秒 x 18 フレーム x 2 分 = 2160 分 
2160+ 60分= 36時間 

だから，自動撮影ができなければ，36時間 
もカメラの傍らについて画面ができるごと 
にシャッターを押してやらなくてはならな 
い。少なく見積もってこれだけであるから， 
実際にやると実に大変である。何日もか 
けてこつこつと撮影を続けるしかない。そ 
もそも アニメー シヨンを作るというのは大 
変なことなのだ。 X ID には電磁メカのカセッ 
卜が使えないということで辛い思いをした 
ユーザーもいると思うが，まさに災い転じ 
て福となす，あの普通のカセット用のリモ 
—卜端子はとても便利なのである。 


1920 XX=AX-SSX ： YY=0 ： ZZ=-B%-SSZ ： GOSUB"KAITEN" 

1930 LX(I%)=XX ： LY(IX)=-60:LZ(I%)=ZZ ： I%=IX+1 : GOTO1910 
1940 IX=0 

1950 READ A%,BX,CX,DX:IF AX ニー 2 THEN1980 

1960 LT%(0,IX)=AX-1 ： LTX(1,IX)=BX-1 : LT%(2,IX)=C%-1 : LT%(3,IX)=DX-1 
1970 I%=I%+1 : GOTO1950 

1980 RESTORE 2000 :C$ = ”0000 ":LINE<0 ， 63>-(639 ， 199),PSET,BF,HEXCHR$("002200008800") 
1990 FOR I%=0 TO 15：READ A$,B$,D$,E$ ： LINE(0,63-IX*4)-(639,63-I%*4-3),PSET,BF,HEX 
CHR$(A$+C$+B$+C$+D$+C$+E$+C$)：NEXT 

2000 DATA 55,92,55,29, 55,92,29,92, 29,92,29,92, 4A,11,4A,92, 4A,11,4A,11 

2001 DATA 44,11,4A,11, 44,11,44,11, 04,21,44,11, 04,21,04,21,04,40,04,21 

2002 DATA 04,40,04,40, 40,00,04,40, 40,00,04,00, 00,04,00,00, 00,40,00,00 

2003 DATA 04,00,00,00 

2010 COL$=HEXCHR$("00FF00"> : DEZ=70 
2020 FOR COUX=0 TO 31 

2030 FOR I%=0 TO 3 ： X(IX)=LX(LTX( 1% ,COUX)) : Y(IX)=LY(LTX(IX.COUX)) ： Z(1%)=LZ( LTX(IX 
,COUX)) 

2040 NEXT ： GOSUB"PRINT" 

2050 NEXT：RETURN 
2060 LABEL"MAN PRINT" 

2070 IX=0：RESTORE ” MAD":IF WA(0) <>0 THEN YA=0 

2075 IF COUNTB>2THEN YA=(3*(COUNTB-2>/24-4.9*(<COUNTB-2>/24> 办 2 }* 15 ELSE YA=0 
2080 READXX,YY,ZZ：IF XX=-9999THEN IX=0 ： GOTO2200 

2090 IF IX>18 AND IX<45 THEN R2=MR2* ( (IX<32 ) - (IX>31)) : MX=0 ： MY=26 ： MZ=1 : KAITEN$ = '*3 
2" ELSE2110 

2100 F=(IX>31)-(IX<32) : MX = 8.5 拿 F:MZ=l:R3=(MR2/2.5> : GOSUB..KAITEN" 

2110 IF IX>54AND IX<63THEN R2=MR4 : MX=0 : MY=-7 : MZ=0 : KAITEN$ = *'2" : GOSUB M KAITEN" 

2120 IF IX>50AND IX<63THEN R2=MR3 ： MX=0 ： MY= 6 ： MZ=0 ： KAITEN$ = "2 ••: GOSUB"KAITEN , ' 

2130 IF IX>66AND IX<75THEN R2=MR6:MX=0:MY=-7:MZ=0:KAITEN$="2":GOSUB"KAITEN" 

2140 IF IX>62AND IX<75THEN R2=MR5 ： MX=0 ： MY= 6 :MZ=0 : KAITEN$ = ”2" :GOSUB'.KAITEN" 

2150 R3=MR1 :MX=0:MZ=0:KAITEN$ = "3" :GOSUB"KAITEN_. 

2160 XX=XX+MAX-WX(1) ： ZZ=ZZ+MAZ-WZ(1) ： IX=IX+1 
2170 R3=RSS ： MX=0 ： MZ=0 ： KATEN$="3":GOSUBMKAITEN" 

2180 LX(IX)=XX ： LY(IX)=YY-36+YA ： LZ(IX)=ZZ 
2190 GOTO2080 

2200 READ AX,B%,C*,DX：IF AX= — 2 THEN 2240 

2210 LTX(0,IX)=AX:LTX(1,IX)=BX:LTX(2,1%)=CX ： LTX(3,IX)=DX 

2220 IF AXO-1 THEN Z(I*)=(LZ(AX)+LZ(BX)+LZ(CX)+LZ(DX))/4 ELSE Z(I%)=LZ(BX) 

2230 LR%(IX)=IX ： IX=I%+1 : GOTO2200 

2240 FOR IX=0 TO 62 ： F=-999：FOR JX=IX TO 62 

2250 IF F<Z(JX) THEN F=Z(JX) : J1=JX 

2260 NEXT:SWAP LRX(IX),LRX(J1)：SWAP Z( 1*) ,Z(J1) : NEXT 
2270 DEZ=5 

2280 FOR COUX=0TO62 : 1FLTX(0,LRX(COUX))=-1 GOSUB"CIRCLE":GOTO2360 

2290 FOB IX=0 TO 3 ： X(IX)=LX(LTX( 1% ,LRX(COUX))) : Y(1%)=LY(LTX(IX,LR%(COU%))) ： Z(IX) 
=LZ(LTX(IX,LRX(COUX)))：NEXT 

2300 X1=X(0)-X(1) ： Y1=Y(0)-Y(1) ： Z1=Z(0)-Z(1) 

2310 X2=X(2)-X(1) : Y2=Y(2)-Y(1) ： Z2=Z(2)-Z(1) 

2320 XX=Y1 拿 Z2—Z1 本 Y2:YY=Z1 拿 X2-X1 拿 Z2:ZZ=X1»Y2-Y1 拿 X2 

2330 CO=(-X(l)*XX-Y(l)*YY-Z(l)*ZZ)/(SQR(X(l) < '2+Y(l)"2+Z(1)*2}*SQR(HT2+YTT2+ZZ A 2 

)) 

2340 IF CO<0 THEN2360 ELSEGOSUB2660 
2350 COL$ = BR$(BRIGHT) : GOSUB ,, PRINT" 

2360 NEXT : RETURN 

2370 LABEL "TRACER PRINT" 

2380 IX=1 : RESTORE"TRD M 

2390 READXX,YY,ZZ：IF XX=-9999THEN 2460 

2400 IF TR2O0 AND IX>8 AND I%<17 THEN MY=-1:MZ=-9:KAITEN$="2":R2= TR2 ： GOSUB M KA 
ITEN" 

2410 IF TR2O0 AND I%>16 AND IX<25 THEN MY= 0 :MZ=11:KAITEN$ = "2 • ，： R2=-TR2 :GOSUB”KA 
ITEN" 

2415 IF TR2O0 AND IX>26 THEN MY=-3:MZ=3:KAITEN$="2":R2=-TR2:GOSUB"KAITEN” 

2420 R3 = TR1 :MX=0 ： MZ=0: KAITBN$= ,, 3" ： GOSUB"KAITEN" 

2430 XX=XX+TRX-WX(1) ： YY=YY+TRY ： ZZ=ZZ+TRZ-WZ(1) 

2440 R3=RSS:MX=0:MZ=0:KATEN$="3":GOSUB"KAITEN" 

2450 LX{IX)=XX ： LY(IX)=YY ： LZ(IX)=ZZ ： IX=IX+1 ： GOTO2390 
2460 Z1=500/LZ(1) : F=0 
2470 FOR J%=1 TO IX-1 

2480 X1=LX(J%)*Z1：IF ABS(X1)<320 THEN F=1 
2490 NEXT 

2500 IF F=0 THEN RETURN ELSE IX=0 

2510 READ AX,BX,CX,DX：IF AX=-2 THEN 2550 

2520 LTX(0,IX)=AX ： LT%(1,I % )= BX ： LTX(2,IX)=CX ： LT%(3, 1% )= DX 

2530 IF AXO-1 THEN Z(IX)=(LZ(AX)+LZ(BX)+LZ(CX)+LZ(DX))/4 ELSE Z(IX)=LZ(BX) 

2540 LRX(IX)=IX:IX=IX+1 : GOTO2510 

2550 FOR I%=0 TO 20:F=-999：FOR JX=IX TO 20 

2560 IF F<Z(JX) THEN F=Z(JX) : J1=JX 

2570 NEXT：SWAP LRX(IX),LRX(J1) : SWAP Z(IX),Z(J1) : NEXT 

2580 DEZ=20：FOR COUX=0TO20 : IF LT%(0,LR%(COUX))=-1G0SUB"CIRCLE M : GOTO2630 

2590 FOR IX=0 TO 3 : X( 1% )=LX(LTX(IX,LRX(COUX))) : Y(IX)=LY(LTX(IX,LRX(COUX))) ： Z(IX) 

=LZ(LTX(IX,LR%(COUX))) : NEXT 

2600 X2 = X(0)-X(1) ： V2 = Y(0)-Y(1) : Z2 = Z(0)-Z(1) 

2610 X1=X(2)-X(1) ： Y1=Y(2)-Y(1):Z1=Z(2)-Z(1) : GOSUB"BRIGHT INPUT" 

2620 COL$ = BR$(BRIGHT) : GOSUB"PRI NT" 

2630 NEXT：RETURN 

2640 LABEL..BR1GHT INPUT" 

2650 XX 二 Y1 拿 Z2 — Z1»Y2:YY=Z1»X2 — XI 拿 Z2:ZZ=X1 本 Y2—Y1 本 X2 

2660 CO=<FX^XX + FY»YY+FZ*ZZ}/(SCJR<FX~2 + FY~2 + FZ*'2>»SQR(XXA2+YYA2+ZZ~2}} 

2670 IF STR$(ABS(CO))="1"THEN BRIGHT=0 ： GOTO2690 
2680 BRIGHT=INT((-ATN(CO/SQR(1-C0^2))+w/2)*4.4 ) 

2690 RETURN 
2700 LABEL..R PUT" 

2710 IF ZZ=0THEN R=-(XX<0)*RAD(180) : GOTO2740 
2720 C=XX/SQR(XX , '2 + ZZ'2) 

2730 R=((ZZ>=O)-(ZZ<0))*ATN(C/SQR{ABS(1-C*2)))+t/2-(ZZ<0)*RAD(180) 

2740 RSS=-90+R*180/n:RETURN 
2750 し ABEL "KAITEN" 

2760 XX=XX-MX ： YY=YY-MY:ZZ=ZZ-MZ 
2770 FOR H%=1 TO LEN(KAITENS) 

2780 ON VA1,(MID$(KAITHN$,U%,1))GOSUB2820, 2850 ,2880 
2790 NF.XT 

2800 XX=XX+MX : YY=YY+MY : ZZ=ZZ+MZ 
2810 RETURN 

2820 S=SIN(RAD(R1)) ： C=COS(RAD(R1)) 

2830 X=XX:XX=C*)0(-S 拿 YY: YY = S 拿 X+YY 本 C 
2840 RETURN 

2850 S=SIN(RAD(R2)) ： C=COS(RAD(R2)) 

2860 }(=2 ： 2:22 ： = 〇本 22_3 本 ¥¥2¥ 丫 =3 拿） (+¥ 丫拿 0 

2870 RETURN 


26 Oh ! X 1988.2. 


9) ベン入力でいつ 

W- 用入カボードと入カペンがあれば，手書き入力力 ? できらい。ペンも幽而のメニューで選んで，い 
ろんな筆と色を自在に選択，消しゴムにも早変わりってえ寸法よ。おまけに，この入カボード fJ 体が 
CRT を内;連まさにキャンバスに贞梭描いてる感党ってわけよ。 






2990 行からは叫角形を表示するサブルー 
チンである。 

まず与えられた 4 つの座標について，そ 
れぞれ視点の前にあるかどうか調べる。す 
ベて視点の前ならばこんなにおめでたいこ 
とはな t 、のだが，そうは甘くないのである。 
また，全部視点の後ろにあるのならすなわ 
ち見えないわけだからこれまたおめでたい 
のだが，問題は見える場合である。しかた 
なくクリッピングと呼ばれる处理を行う。 
っまり投射而と表示する平面の交わる線で， 
後者をちよん切ってやらなくてはいけない 
のである。 

その場合，状況によって切断した面が三 
角形になったり五角形になったりと色々な 
ので，場合分けが行われている。詳しい方 
法は解析によって得ていただきたい。 

3310 行からは塗りつぶされた三角形を表 
ボするルーチンである。 

ここでもスキヤンコンパ、ージヨンが侦わ 
れている。かの MAGIC の三角形塗りつぶし 
ルーチンと M 様のものである。 

そのあとは，膨大なデータ文である。 

迷路のデータ，トレーサーのデータ，移 
1 カデータ，龙るときの関節のデータ，人問 
のデータ，而を塗りつぶすタイルパターン 
(グラデー シヨ ン）のデータの順になってい 
る。 

最後に3 D ソリッドモデルのデータフォ 
ーマットについて記すことにする。 

DATA PRINT 2のときに書いたワイヤ 
フレームの 迷路 データのフォーマット とだ 
いたい同じであるが，向こうは2点を指定 
するのに対して，こちらは四角形であるの 
で4点指定しなければならない。違いはこ 
のことによる。 

まず ili 初に点のデータが並ぶ。この場合 
は T: •次元のデータであるので 3 つ組になっ 
ている。ただし，迷路のデータに関しては 
商さが必要ないために辑いてある。 

終わりは“一 9999, 0, 0 ” となっている。 
まさかこんな点を使うはずがないので，終 
わりを知らせる点として使っている。 

次につなぎ方のデータを並べる。四角形で 
あるので当然 4 つである。 

どうして点のデータとつなぎ方のデータを 
別にするのか，啤標を4つずつ並べればい 
いではないかと思うかもしれないが，そう 
はいかない。閉じた部分の多いモデルのデ 
ータにおいては，ひとつの点を何度も使う場 
合が多いため，このほうが効率がいい。 

っなぎ方のデータのうち，一番最初が [一1] 
のものは m を描〈ようになって いる。 次が 
中心座標の番号，次が半径，次はなにも関 


2880 S=SIN(RAD(R3)) ： C=COS(RAD(R3)) 

2890 X=ZZ:ZZ=C»ZZ_S»JC)C:X)( = S*)(+XX»C 

2900 RETURN 

2910 LABEL"CIRCLE" 

2920 COL$ = BR$(5)：Z = LZ(LTX(1,LR%(COU%))) ： X=320 + LX(LTX(l.LRX(COUX)))*500/Z ： Y=60-( L 
Y(LTX(1.LRX(COUX)))-WY(1)-36)»250/Z 

2930 IF LTX(1.LRX(COUX))=25 OR LTX(1,LR%(COUX))=26 THEN COL$=BR$(11-TR2/9) 

2940 IF LTX(1.LRX(COUX))=27 OR LTX(1,LR%(COU%))=28 THEN COL$=BR${14-(COUNTB MOD 
2)«(TR2=0)) 

2950 IF ABS(X)>3000 OR ABS(Y)>3000 THEN RETURN 
2960 R=LTX(2,LRX(COUX))*250/Z：FOR 1=0 TO R 

2970 XX=SQR(R*2-I^2)*2 ： LINE(X-XX,Y+I)-(X+XX,Y+I),PSET,BF,COL$ 

2980 LINE(X-XX,Y-I)-(X+XX,Y-I),PSET,BF,COLS : NEXT : RETURN 
2990 LABEL "PRINT" 

3000 F=0：FOR IX=0 TO 3：IF Z(1%)<=DEZ THEN FI(F)=IX ： F=F+1 ELSE F2=l% 

3010 NEXT 

3020 IF DEZ=20 AND FO0 THEN RETURN 
3030 ON F+1GOTO 3050,3070,3140,3190 
3040 RETURN 

3050 FOR IX=0TO3 ： XQ(IX)=320+X(IX)*500/Z(IX) : YQ(IX)=60-{Y(IX)-WY(1)-36)*250/Z( IX) 
: NEXT ： GOSUB3270 
3060 GOTO3040 

3070 F=F1(0) : FOR IX=0 TO 3 ： X2(IX)=X(F) ： Y2(IX)=Y(F) ： Z2( 1% )=Z(F) ： F=F+1：IF F=4 THEN 
F=0 

3080 NEXT:X1=X2(3) : Y1=Y2(3) : Z1=Z2(3) : X2=X2(0) : Y2=Y2(0) : Z2 = Z2(0) : GOSUB3240 ： X2 ( 4)= 
XX:Y2(4)=YY ： Z2(4)=ZZ 

3090 X1=X2(1) : Y1=Y2(1) : Z1=Z2(1) : GOSUB3240 ： X2(5)=XX : Y2(5)=YY : Z2(5)=ZZ 
3100 FOR IX=1 TO 4 ： A=IX-1 ： B=VAL(MID$( , ， 5123 ,, ,IX,1)) : GOSUB3260 : NEXT 
3110 GOSUB3270 

3120 FOR IX=1 TO 4:A=IX-1:B=VAL<MID$< "5344" ,IX,1)>:GOSUB3260:NEXT:GOSUB3270 
3130 GOTO3040 

3140 IF FI(1)=3 AND FI(0)=0 THEN F=3 ELSE F=F1(0) 

3150 FOR IX=0 TO 3 ： X2( 1% )=X(F) ： Y2(IX)=Y(F) ： Z2(IX)=Z(F) : F=F+1：IF F=4 THEN F=0 
3160 NEXT ： X1=X2(3) : Y1=Y2(3) ： Z1 = Z2(3) : X2=X2(0) : Y2 = Y2(0) : Z2 = Z2(0) : GOSUB324 0 ： X2 (0)= 
XX:Y2(0)=YY ： Z2(0)=ZZ 

3170 X1=X2(2) ： Y1=Y2(2) : Z1=Z2(2) : X2=X2(1) : Y2=Y2(1) : Z2=Z2(1) : GOSUB3240 ： X2(1)=XX:Y2 
(1)=YY ： Z2(1)=ZZ 

3180 FOR IX=0TO3 : A=IX ： B=IX ： GOSUB3260 : NEXT ： GOSUB3270 : GOTO3040 

3190 F=F2：FCR IX=0 TO 3 ： X2(IX)=X(F) ： Y2(IX)=Y(F) ： Z2(IX)=Z(F) ： F=F+1：IF F=4 THEN F= 
0 

3200 NEXT ： X1=X2(0) : Y1=Y2(0) : Z1=Z2(0) : X2=X2(1) : Y2=Y2(1) : Z2=Z2(1) ： GOSUB3240 ： X2(1)= 
XX ： Y2(1)=YY ： Z2(1)=ZZ 

3210 X2=X2(3) : Y2=Y2(3) : Z2=Z2(3) : GOSUB3240 ： X2(3)=XX : Y2(3)=YY : Z2(3)=ZZ 
3220 FOR IX=1T04 ： A=IX-1 ： B=VAL(MID$( ,, 0133 M ,IX,1)) ： GOSUB3260 ： NEXT ： GOSUB3270 
3230 GOTO3040 

3240 M=(Z1-DEZ) : N=<DEZ-Z2>:XX=<N*X1+M*X2> バ M+N> 

3250 ZZ 二 DEZ: YY=(N*Y1+M*Y2"<M+N) : RETURN 

3260 XQ(A)=320+X2(B)*500/Z2(B) : YQ(A)=60-(Y2(B)-WY(1)-36)*250/Z2(B) : RETURN 
3270 FOR IX=0 TO 2 ： XAX(IX)=XQ(IX) : YAX( 1% )=YQ(IX) ： NEXT：GOSUB 3310 
3280 FOR IX=2 TO 3 ： XAX(IX-2)=XQ( 1% ) ： YAX(IX-2)=YQ(IX) : NEXT 
3290 XAX(2)=XQ(0) : YAX(2)=YQ(0) : GOSUB 3310 
3300 RETURN 

3310 IF XAX(0)=XAX(1)AND YAX(0)=YAX(1)THEN RETURN 
3320 IF XAX(1)=XAX(2) AND YAX(1)=YAX(2) THEN RETURN 
3330 FOR IX=0 TO 2 ： Y=9999：FOR JX=IX TO 2 
3340 IF Y>YAX(JX) THEN Y=YAX(JX) : J1=JX 

3350 NEXT：SWAP XAX(IX),XAX(Jl) : SWAP YAX(IX),YAX(J1) : NEXT 

3360 IF YAX(0)<0 AND YA%(2)<0 THEN RETURN 

3370 IF YAX(0)>199 AND YAX(2)>199 THEN RETURN 

3380 IF XAX(0)<0 AND XAX(1)<0 AND XAX(2)<0 THEN RETURN 

3390 IF XAX(0)>639 AND XAX(1)>639 AND XA%(2)>639 THEN RETURN 

3400 IF YA*(0)=YAX(2) THEN LINE(XAX(0),YAX(0))-(XAX(1),YAX(0)),PSET ,BF ,COL$ ： LINE 
(XAX(1),YAX(0))-(XA%(2),YA*(0)),PSET,BF,COLS : RETURN 
3410 A=0 ： B=2：GOSUB 3620 
3420 M2=M 

3430 IF YAX(0)=YAX(1)THEN XA=XAX(0) : Y1X=YA%(0) : XB=XAX(1) : GOTO 3520 

3440 A=0:B=1:F=1:GOSUB 3620 

3450 YYX=YAX(B) : M1=M 

3460 XA=XAX(0) ： Y1X=YAX(0) : XB=XA 

3470 FOR Y1X=Y1X TO YYX 

3480 XA=XA+M1 ： XB=XB+M2 

3490 LINE(XA,Y1X)-(XB,Y1X),PSET,BF,COL$ 

3500 NEXT 

3510 IF Y1X-1=YAX(2) THEN 3610 
3520 A=1 ： B=2：GOSUB 3620 
3530 M1=M 
3540 YY%=YAX(2) 

3550 IF YAX(0)<>YAX(1)THEN 3570 
3560 SWAP Ml,M2 ： FX=0 
3570 FOR Y1X=Y1% TO YYX 
3580 XA=XA+M1 ： XB=XB+M2 

3590 LINE(XA,YIX)-(XB.YIX),PSET,BF,COLS 
3600 NEXT 
3610 RETURN 

3620 M=(XAX(B)-XAX(A))/(YAX(B)-YAX(A)+l) 

3630 RETURN 
3640 LABEL..ROD" 

3650 DATA-750, 750,-650,750,650,750,750,750,-750,650,-550, 750 ,-450，750 
3660 DATA- 3 50,7 5 0,-250,7 50,50,750,150 ， 7 50, 250 ， 750,350 ， 750,7 50,650,-150 ， 550 
3670 DATA 50,45 0,150,550,250,550,350,450,750,550,-150,450,-50,550,150,450 
3680 DATA 250 ， 450 ,450, 550,550 ,550,750,4 50 ， -550 ， 350,-4 50 ,250, -150,250,-50,250 
3690 DATA 550,350,-5 50,250,50, 350 ， 150,350,550,250,-750,150,-50,150,50,150 
3700 DATA 150,50,350, 150,450, 150,750,150,-750,50,-150,150,-50,50,50,50,250,150 
3710 DATA 350,50 ,450,50,750,50,-750,-50,-550,-50,-450,-50,-150,-50,-50.-150 
3720 DATA250 ,-150, 350,- 50,450,-50 ， 75 0,-50,-750,-150,-450,-150, -150,-150 
3730 DATA50.-50,150,-50,350,-150,450,-150,550,-150,750,-150,-350,-250 
3740 DATA50.-350,150,-250,250,-250,350,-250,550,-250,-350,-350,150,-350 
3750 DATA250,- 350 ， 450,-250,55 0,-350 ,-750,-4 50,-550,-550,-450 ,-550, -350 ,-550 
3760 DATA-250,-450,-150,-450,250,-550,350,-450,450,-450 

3770 DATA-750,-550 ,-250,-550, -150,-550,-50,-450,350,- 550,45 0,-550,750,-550 
3780 DATA-750,-650,-150 ,-7 50,-50,-750,450,-750,550,-750,750,-650,-750,-750 
3790 DATA-650,- 750,65 0,-750,750,-750,750,-450,-9999,0 
3800 DATA 1,2,104,103,3,4,106,105,1 ,4,14,5,102,106,103,97,8,9,91,84 
3810 DATA28,33,36,32,86,88,94,92,37,38,46,44,55,58,66,63,70,72,77,76 
3820 DATA18,20,27,24,25,26,68,67,81,85,91,90,53,54,83,82,6,7,29,33 
3830 DATA15,17,23,21,39,41,49,47,79,75, 101 ， 100,73 ,74,94,87,73,75,80,78 
3840 DATA10,11,23,16,12,13,19,24,15,22,31,30,34,35,40,47,45,38,56,63 
3850 DATA42.43,51,50,59,60,69,67,64,65,77,71,52,54,62,61,89,107,96,95 
3860 DATA86,93,99,98,48,41,66,57,-2,0,0,0 


10) 紙芝居でいつ 

作った紙 1 枚 1 枚にセリフ （ ADPCM ) ゃ&栾 （ FM / V 源使川）を入れ，顺挢をつければ，あっという |lij 
に紙芝 W - ができちまう。もちろん文章も混在できる。ネ涔ソフト，絵本，マンガと応川範叫が広い。不 特集 RHYTHMS TO TRACE 

滅の 4コマ「サザエさん」 も紙芝居モードのライブラリとして発☆されるってえわけよ。 








係ないからここではとりあえず0になって 
いる0 

“一 2, 0, 0, 0” は終わりを示す。 

なお， プログラム 中ではこのデータに少 
し味付けをしているのである。そのまま表 
示したのでは動かせないままであるから， 
関節を回転させたり，色を変えたりしてい 
る。そういった汎用性の面からこれを BAS 
1 C で作ってみた。マシン語では，突然のひ 
らめきによる変更もままならないのである。 
KNOCK DOWN 

メモリが足りなかったため追い出された 
プログラム。 最後のフェードアウト（びら 
びらと画面が消えていくところ）の部分を 
担当している。 

以上でプログラムの説明はおしまいであ 
る。足りないところもあると思うが，それ 
は各自の努力と知恵でおぎなってほしい。 

しかし，これらのプログラムを解析する 
ことで得るものはかなり大きいと思う。興 
味のある人，必要のある人には，ぜひおす 
すめする。 

See you again 


パーソナルユースに おける CG アニメー 
シヨンは，われわれに残された数少ない楽 
園のひとつである。だとすれば，かつての 
奈落を省み，悪魔の行いに手を染めぬよう 
にするのが心ある パソコ ン ユーザー の使命 
ではないだろうか。 

誌面に発表されたプログラム，サブルー 
チンを誰がどのように使おうとも自由であ 
る。ただし忘れるなかれ。われわれは最後 
の楽園を汚してはならないのである。 

特に X 68000 をお持ちの方，この作品に十 
分刺激されてほしい。これくらいはちよろ 
いはずである。 

安直な方法論に陥ることは許されない。 
各自の知恵と努力に期待したい。 



See you again 

Profile 


◊柴田さんは東京都にお住まいの 1 9歳。 MZ - 2000 
を経て XID ユーザーとなり，以来アニメ制作 
に取り組んできたそうです。現在大学受験に 
備えパソコンは小休止とか。がんばってください。 

28 Oh ! X 1988.2. 


3870 LABEL.'TRD" 

3880 DATA4, 4 丨 -8,-4,4,-8,5, -2 丨 -8,-5,-2,-8,717 ,8， -7 ’ 7 ， 8,8 ， -5,10 ， -8 ， -5，10 
3890 DATA 4,3,—10,—4,3,— 10 f 4|-2 t —12»—4 t —2 f — 12»2,—4|-35,— 2»—4»—35»4 f —2»— 12,— 4 t — 2,— 
12 

3900 DATA6,6,14,-6,6,14,6,-1,17,-6,-1,17,3,-5,40 ,-3, -5,40, 6,-1,17,-6, -1，17 

3910 DATA0,-l,-9 ， 0,-0,11,ll,-4,9 ， -ll ， -4,9 

3920 DATA6,-3,-4,5,2,-2,12,-5,4,12 ,-1,6, 8,-8,10,7, -1，10 

3930 DATA-6,-3,-4 ,-5, 2,-2,-12,-5,4,-12,-l,6,-8,-8,10,-7, -1,10 

3940 DATA- 9999,0 ,0 

3950 DATA1,2,6,5,1, 5,3 ,1,3,5,7,3,2,4,8,2,6,2 ,8,6 
3960 DATA10,14,13,9,13,9,11,13,14,12,10,14 
3970 DATA17,18,22,21,19,17,21,21,18,20, 22,22 
3980 DATA-1,25,4,0,-1,26,7,0,-1,27,3,0,-1,28,3,0 
3990 DATA29,30,32,31,32,30,34,34,29,31,33,33 
4000 DATA35,36,38,37,36,38,40,40,37,35,39,39 
4010 DATA-2,0,0,0 
4020 LABEL. ， MOVD" 

4030 DATA 0000,0000,0000,0000,0000,0000,0000, 1000,0000,0003,3000,0300,0003,3010 
4040 DATA 0100,0003 ,1000,0300,0011 ， 0000,0000,0010,0100, 1000,0030,0101 ,0000,0000 
4050 DATA 0000,0010 ,1000,0000,0111,3000,0000,0003, 1000,0000,0001, 1010,0000,0001 
4060 DATA 3000,0100,0013 ,1000,0000,0011 ,3000,0000,0133,3000,0000,0303,1000,0010 
4070 DATA0 101,3000,0010,0303,0000,0000 ,3300, 0000,0003,0000 ,0002,1110,0000,0000 
4080 DATA 0310,00 00,1001,0330,0000,0003,0010,0000,0100,0010,0001,1100,0030,0001 
4090 DATA 0000,0000,0100,0010,0000,0000,0011 ,0100,0000,0000,0300,0000, 1000,0003 
4100 DATA0000, 1110,0001,0000, 1314 ,0000,0003,3110,0000,0001 ,0130,0000,0001,0300 
4110 DATA 0000,0000,0100,0000,0000, 0003,3000,0100, 0000 ， 3035 ,0005 ,0005,1035,0005 
4120 DATA 0005,0015,0305, 1005,0005,0305,3015,0005,0005,0035,0105,0005,0005,0305 
4130 DATA 0005,3005,0005 ,0005,0035,0005,3005, 0005,0305,0005 ,0005,1305,0005,0035 
4140 DATA1005,0005,0135,3905,0055,0055,1055,0155,0055,3055,0355,0055,0055,0155 
4*150 DATA 0055,0055,3355,0055 ,0055, 0055,0055,0055 ,0055,0355,0055,3055,0055,0055 
4160 DATA 3055,0055 ， 03 55 ,3055, 0555 ,0555, 1555,0555,0555,0555,0055,0055 
4170 LABEL"RUD 

4180 DATA -28,22,-21 ,27,-17,35,- 12, 44,-8,52 ,-3,61,0,71,3,82,5,89 

4190 DATA 8,96,4,99,0 ， 102,-4,105 ,-9, 108,-13,111,-18,114,-24,117,-30,120,-37,117, 

-44,113,-50, 110,-57,10 7 ,-63, 104,-69, 100, -72,97,-75,94,-77, 92 ， -80,90,-76,81,-71, 

72,-66,63,-60,54,-54,45,-47,36,-41,27,-35,18 

4200 LABEL"MAD" 

4210 DATA 6,25 ,-3 ,-6, 25 ,-3, 6,25,5 ,-6, 25,5,5,20,-5,-5,20 ,-5 

4220 DATA 5,10,-3,-5,10,-3,5,10,4,-5,10,4,2,27,-2,-2,27,-2,2,27,4,-2,27,4 

4230 DATA 2,25,-2,-2,25,-2,2,25,4,-2,25,4,0,32,.3 

4240 DATA 9,24, -1 ， 6, 25,-1,9,24,3,6,25,3,10,15 ,-1,7 ,14 ,-1,10, 12,3,7, 11，3 
4250 DATA 10,15,-8,7,14,-8,10,12,-8,7,11,-8,8.5,13,-9.5 

4260 DATA-9,24,-1,-6,25,-1,-9,24,3,-6,25,3,-10,15,-1 ,-7, 14,-1,-10,12,3,-7,11,3 
4270 DATA -10,15,-8,-7,14,-8,-10,12,-8,-7,11,-8,-8.5,13,-9.5 
4280 DATA 3|0,3 f 5 

4290 DATA 4,— 10, -2,1,— 10,-2 t 4,-5, 4,1,— 5,3,4»—22| — 1,1,— 22, -1,3,-2213 ,1,-22,3 
4300 DATA 3,-24,-4,1,-24,-5,3,-24,3,1 ,-24,3 

4310 DATA-4,-10,-2,-1,-10 ,-2,-4,-5, 4,-1,-5,4,-3,-22,-1,-1,-22,-1 
4320 DATA -3|-22 f 3,-l,—22,3 f -3 ( —24,-4,-1,-24,-5 t -3,— 24,3,— 1,-24,3 
4330 DATA -9999,0,0 

4340 DATA2,1,3,4,6,5,1 ， 2,8,7,5,6,9,10,4,3,3,1,5,7,3,7, 9,9 

4350 DATA8,6,2,4,8,4,10,10,11,12,16,15,13,11,15,17,14,13,17,18,12,14,18,16 
4360 DATA-1,19,6,0 

4370 DATA20.21,23,22,20,21,25,24,22,20,24,26,23,22,26,27,21,23,27,25 

4380 DATA24,25,29,28,26,24,28,30,27,26,30,31,25, 27,31, 29,-1,32,1.5,0 

4390 DATA36,35,33,34,34,33,37,38,33,35,39,37,35,36,40,39,36,34,38,40 

4400 DATA 38,37 ,41,42,37,39,43,41,39,40,44,43,40,38,42,44,-1,45,1.5,0 

4410 DATA7,8,47 f 46,9,7,46,48,10,9,48,49,49,47,8,10 

4420 DATA46,50,53,52,48,46,52,54,51,48,54,55,50,51,55,53 

4430 DATA52,53,57,56,54,52,56,58,58,59,55,54,53,55,59,57 

4440 DATA56,57,61,60,58,56,60,62,59,58,62,63,57,59,63,61,60,61,63,62 

4450 DATA 50,47 ,64,65,47,49,66,64,49,51,67,66,51,50,65,67 

4460 DATA65,64,68,69,64,66,70,68,71,70,66,67,67,65,69,71 

4470 DATA69,68,72,73,68,70,74,72,70,71,75,74,71,69,73,75,73,72,74,75 

4480 DATA-2,0,0,0 

4490 DATA FF,FF,FF,F7,7F,F7,BD,F7,DD,77,AD,77,AD,B5,55,B5,55,AA,55,92 
4500 DATA 29,92,4A,11, 44,11 ， 08,21 

変更点 X ID 以外の機種では1010〜 N 80行を次のように変更し， 

リスト丨丨のデータをディスクから読み込んでください 

1010 1 

1130 INPUT M SEC( <192) , FLAME( <18) :” •COUNTA , COUNTB2 : IF COUNTA>191 OR COUNTB2>17 

THEN BEEP：GOTO 1130 

113 5 OPEN M I" ， 1 ， "TRACE DATA 1 ' 

1140 FOR 1=1 TO COUNTA : FOR J = 0 TO 3 ： INPUT#1,WX(J) ,WY(J),WZ(J),WR(J),WA(J),WB(J), 
WC(J),WWR(J),WR2(J) : NEXT : NEXT : COUNTB=0 : CLOSE 

1145 IF COUNTB=0THEN FOR I=0TO3 ： WA(I)=VAL(MID$(RIGHTS( "000" +HEX$(T%(COUNTA)),4), 
1 + 1,1))：NEXT 

1150 FOR I=0TO3：IF WA(I)=5GOSUB"DOWN" : GOTO1260 

1160 IF 1=0 THEN IF COUNTA>110 THEN WB(0)=WB(0)+25：GOTO 1200 

1170 IF 1=0 THEN WB(0)=0 

1180 IF WA( I) O0THEN1240 


リスト 10 KNOCKDOWN 


1000 DIM XX(800),YX(800),AX(800),B%(800),BR$(16) 

1010 FOR 1=0 TO16：READ A$,B$ ： BR$(I)=HEXCHR$(A$+A$+A$+B$+B$+B$) : NEXT 
1020 FOR Y%=0 TO199 ： AX=0：LOCATE 0,0：PRINT Y% 

1030 XX(DX>=A%:YX(D%>=YX:B%=INT<RND*80>*3+120:A%(D%>=B%:A%=AX+B%:DX=D%+1：IF AX>6 
38 THEN NEXT ELSE 1030 
1040 FOR IX=0 TO DX 

1050 AX=INT(RND*(DX-1)) : SWAP XX(IX),X%(A%) : SWAP YX(IX),YX(A%)：SWAP AX(1%),A%(A%) 
1060 NEXT 
1070 AX=0 

1080 FOR IX=0 TO DX STEP 48 

1090 IF (IX ¥ 48)>AX OR BX{I%)=17 THEN 1140 
1100 BX(IX)=B%(I%)+1 
1110 FOR JX=0 TO 48 

1120 LINE<XX(1%+JX),Y%(1%+J%))-(X%(IX+JX)+A%( 1%+ JX),YX(IX+J%)),PSET,BF,BR$(BX(IX 
)- 1 ) 

1130 NEXT 

1140 NEXT ： AX=AX+1 

1150 IF BX((D% ¥ 48)*48)=17 THEN END ELSE GOTO 1080 

1160 DATA FF,FF,FF,F7,7F,F7,BD,F7,DD,77,AD,77,AD,B5,55,B5,55,AA,55,92 
1170 DATA 29,92,4A,11,44,11,08,21,08,80,08,00,00,00 

11) その他もろもろでいつ 

マルチ圃而によるアニメ処理，記惊媒体は光 CD ， 高速イメージ入力と高速ハードコピー。特殊大型 
プリンタによって布地に印刷すれば，服の型紙だってバッチリ。両面印刷で絵ハガキまるごと作成。 
特殊インクを用いて背中にドラゴンのイレズミをプリント。それから，え一っと……。 
















5.1740143E-O9 0 -5.5555556 180 0 0 0 0 0 

5.5555556 -36 2.5870072E-09 90 0 0 0 0 0 

5.5555556 -36 2.5870072E-09 90 0 0 0 0 0 

0 -36 5.5555556 000000 

9.8306272 E-08 0 -105.55556 18C 0 0 0 0 〇 

105.55556 -36 4.9153136E-08 90 0 0 0 0 0 

105.55556 -36 4.9153136E-08 90 0 0 0 0 0 

0 -36 105.55556 000000 

1.9143853E-07 0 -205. 55556 180 0 0 0 0 0 

205.55556 -36 9.5719265E-08 90 0 0 0 0 0 

205.55556 -36 9.5719265E-08 90 0 0 0 0 0 

0 -36 205.55556 000000 

2.8457079 E-07 0 -305.55556 180 0 0 0 0 0 

305.55556 -36 1.4228539E-07 90 0 0 0 0 0 

305.55556 -36 1.4228539E-07 90 0 0 0 0 0 

0 -36 305.55556 000000 

3.7770305 E-07 0 -405.55556 180 0 0 0 0 0 

405.55556 -36 1.8885152E-07 90 0 0 0 0 0 

405.55556 -36 1•8885152E-07 90 0 0 0 0 0 

0 -36 405.55556 000000 

4.708353 E-07 0 -505.55556 180 0 0 0 0 0 

505.55556 -36 2.3541765F.-07 90 0 0 0 0 0 

505.55556 -36 2.3541765E-07 90 0 0 0 0 0 

0 -36 505.55556 000000 

5.6396756 E-07 0 -605.55556 180 00000 

605.55556 -36 2.8198378E-07 90 0 0 0 0 0 

605.55556 -36 2.8198378E-07 90 0 0 0 0 0 

0 -36 605.55556 000000 

6.519258 B-07 0 -700 185 1 0 0 0 0 

705.55556 -36 3.285499 IE-07 90 0 0 0 0 0 

705.55556 -36 3.285499IE-07 90 0 0 0 0 0 

0 -36 705.55556 000000 

-5.5555549 0 -700 270 00000 

805.55556 -36 3.7511604E-07 90 0 0 0 0 0 

805.55556 -36 3.7511604E-07 90 0 0 0 0 0 

0 -36 805.55556 000000 

-105.55555 id -700 270 0 0 0 0 0 

905.55556 -36 4•2168217E-07 90 0 0 0 0 0 

905.55556 -36 4.2168217E-07 90 0 0 0 0 0 

0 -34.089327 900 -53000 7.8440168 

-200 0 -700 265 30000 

1005.5556 -36 4.682483 E-07 90 0 0 0 0 0 

1005.5556 -36 4.682483 E-07 90 0 0 0 0 0 

-5.5555556 -22.003986 900 -90 0000 88.632698 

-200 0 -705.55556 180 0 0 0 0 0 

1100 -34.089327 5. 1222742 E-07 85 3 0 0 0 7.8440168 

1105.5556 -36 5.1481442E-07 90 0 0 0 0 0 

-105.55556 -36 900 -90 0 0 0 0 0 

-200 0 -805.55556 180 0 0 0 0 0 

1100 -22.003986 5,5555561 00000 88.632698 

1205.5556 -36 5.6138055E-07 90 0 0 0 0 0 

-200 -34.089327 900 -95 3000 7.8440168 

-200 0 -900 175 3 0 0 0 0 

1100 -36 105.55556 000000 

1300 -34.089327 6.0535967E-07 95 1 0 0 0 7.8440168 

-200 -22.003986 894.44445 -180 0000 88.632698 

-194 .44444 0 -900 90 0 0 0 0 0 

1100 -34.089327 200 51000 7.8440168 

1300 -22.003986 -5. 555555 180 0000 88.632698 

-200 -36 794.44445 -180 00000 

-94.444444 0 -900 90 0 0 0 0 0 

1105.5556 -22.003986 200 90 0 0 0 0 88.632698 

1300 -36 -105.55555 180 0 0 0 0 0 

-200 -34.089327 700 -185 3000 7.8440168 

7.1525574E-07 0 -900 95 1 0 0 0 0 

1205.5556 -36 260 90 0 0 0 0 0 

1300 -36 -20 5.55556 180 0 0 0 0 0 

-194.44444 -22.003986 700 -270 0000 88.632698 

7.2042975 E-07 0 -905.55556 180 0 0 0 0 0 

1300 -34.089327 200 85 3 0 0 0 7.8440168 

1300 -36 -305.55556 180 0 0 0 0 0 

-94.444444 -36 700 -270 00000 

8.1356201E-07 0 -1005.5556 180 0 0 0 0 0 

1300 -22.003986 205.55556 00000 88.632698 

1300 -34.089327 -400 185 1 0 0 0 7.8440168 

5.9604645 E-08 -34.089327 700 -265 1000 7.8440168 

9.0669427 E-07 0 -1105.5556 180 0 0 0 0 0 

1300 -36 305-55556 000000 

1294.4444 -22.003986 -400 270 0000 88.632698 

5.443063 E-08 -22.003986 694.44445 -180 0000 88.632698 

9.998^65^H-07 け 05.5556 18^ 0 0 0 0 0 

1300 -36 405.55556 000000 

1194.4444 -36 -400 270 0 0 0 0 0 

-3.8701627E-08 -36 594.44445 -180 00000 

1.0929588 E-06 0 -1305.5555 180 0 0 0 0 0 

1300 -36 505.55556 000000 

-1100 -34.089327 -400 275 1 0 0 0 7.8440168 

-1.3183388E-07 -36 494.44445 -180 00000 

1. 186091 E-06 0 -1405.5555 180 0 0 0 0 0 

1300 -34.089327 600 51000 7.8440168 

1100 -22.003986 -394.44445 360 0000 88.632698 

-2.24966HE-07 -36 394.44445 -180 0 0 0 0 0 

1.2740493 E-06 0 -1500 185 1 0 0 0 0 

1305.5555 -22.003986 600 90 0 0 0 0 88.632698 

1100 -36 -294.44444 360 0 0 0 0 0 

-3.180984E-07 -36 294.44445 -180 00000 

-5.5555543 0 -1500 270 00900 

1405.5555 -36 600 90 0 0 0 0 0 

1100 -34.089327 -200 355 3 0 0 0 7.8440168 

-4. 1123066 E-07 -36 194.44444 -180 00000 

-105.55555 0 -1500 270 00000 

1500 -34.089327 600 95 1 0 0 0 7.8440168 

1094.4444 -22.003986 -200 270 0000 88.632698 

-4.991889E-07 -34.089327 100 -175 1000 7.8440168 

-205.55555 0 -1500 270 00000 

1500 -22.003986 594.44445 180 0 0 0 0 88.632698 

994.44445 -36 -200 270 0 0 0 0 0 

-5.5555561 -22.003986 100 -90 0000 88.632698 

-305.55555 0 -1500 270 00000 

1500 -36 494.44445 180 00000 

894.44445 -36 -200 270 00000 

-105.55556 -36 100 -90 00000 

-405.55556 0 -1500 270 00000 

1500 -36 394.44445 180 0 0 0 0 0 

794.44445 -36 -200 270 00000 

-205.55556 -36 100 -90 00000 

-505.55556 0 -1500 270 00000 

1500 -36 294.44445 180 0 0 0 0 0 

700 -34.089327 -200 275 1000 7.8440168 

-305. 55556 -36 100 -90 00000 

-600 0 -1500 275 10000 

1500 -36 194.44445 180 0 0 0 0 0 

700 -22.003986 -194.44444 360 0000 88.632698 

-405.55556 - 36 100 -90 00000 

-600 0 -1494.4444 360 00000 

1500 -36 94.444445 180 0 0 0 0 0 

700 -36 -94.444444 360 00000 


12) 発売日でいつ 

以上のシステムを 2013 年 13 月 13 日に発売するから，肝っ玉すえて侍ちやがれいつ。 


リスト 11 TRACE DATA ( 参考 ) 
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特集 RHYTHMS TO TRACE 29 
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►あの一，1月号とじ込みハガキの下嵌！「あなたの愛機は j の項目にある「マニタイプ j 
とは何者でしょうか。 田卷博和 （17) 新渴県 

ごめんなさい。「マニアタイプ」のまちがいです。（編集室） 
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►オブジェクト指向のゲームプログラミングの記事についてです力す，難解だ。マンガにし 
て説明してくれたらひよっとしてわかるかも。でも一番注目している企画です。 
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特集 RHYTHMS TO TRACE Jl 



クラフィック画像の冒険 


XI で400ラインの画像入力 

_ t u カラーイメージツー)レ写楽 

Furukawa K^mihto X 1 シ ij ーズでも400ラインの画像取り込みができ，モノクロプリンタで美しいハード 

コピーが取れるカラ ー- r メージボード専用ツールです。2つのバンクを別々に扱える 
ので，デジタルメモリとして手軽なテレビメモに使っても便利でしよラ。 


写楽の特長 

カラーイメージボード （ CZ -8 BV 1/2) 用の 
画像取り込み&印刷ツールを作ってみまし 
た。付属の カラー イメージツールにはなか 
なか楽しい機能がありますが， XI ユーザー 
にとっては，もっと単純でもいいから400ラ 
インの高画質なグラフィックをと願う人も 
多いでしよう。 XI で400ラインのグラフィ 
ックを出すのはハード的に不可能ですが， 
メインメモリを足せば400ライン分のデータ 
を取り込んでプリントアウトすることが考 
えられます。また，データ形式を揃えてお 
けば，将来 Xlturbo に移行したときのために 
400ラインのデータを保存しておくこともで 
きるわけです。というわけで，このツール 
には次のような特長があります。 

• turbo ではない XI で400ラインの画像取り 
込みができる。 

XI でどうやって400ラインの画像が取り 
込めるのかというと，〇-11八]\1を83111^0，メ 
インメモリを Bankl として，疑似400ライン 
取り込みを可能としているのです。当然， 
画面に映るのは BankO だけですが，なるべく 
不自由しないように工夫してあります。 

• 640 X 800 ドツトのタイリングハードコピー 
画面 モー ドを問わず，プリ ンタへは 640 X 

800ドットの濃淡として出力されますので， 
カラープリンタでなくても「生け捕り高画 
質」です。 

• LOAD / SAVE の高速化 ( FDD 使用時） 

1トラック分のバッファを用意し，付属 
の XI 用 カラーイメージツールの ユー テイリ 



メインメニュー画面（反転モード） 


ティよりも格段に高速化してきました（当 
然 2 D 専用ですが)。 データのフォーマットは 
カラーイメー ジ ツールと 同じです。 

• IPL 起動，カセットもサポート 
カセットでも1分を切る起動時間（テープ 
ユーザーの方，頑張ってください）。 

といったところですが，ついでに欠点も 
あるわけで，カラープリンタのサポートは 
なし，画像処理 ツール もなし， クロマキー 
( MIX ) もなし，そのほか TV in TV や16分 
割などもありません。 

使用方法 


キー操作は，全体を通じて以下のように 
統一されています。 

S :実行，あるいは決定 
rwi :取り消し，または MENU に戻る 
ram :項目間の移動 
日日：変更，または カーソル 移動 

MENU 

起動するとメインメニューの画面が表示 
されます。カーソルキーで選択し，リター 
ンキーで実行してください。 

• WIDTH 

画面モード (40/80) の切り換え 

• DIGITIZE 

画像を取り込みます。これを選択すると 
取り込み条件を設定するメニューに移り 
ます。スペースキーで取り込み開始 

• FILER 

画像データの LOAD/SAVE 

• HCOPY 

画像データのプリンタ出力 

• SWAP 0，1 

BankO と Bankl の入れ換え （ Bankl が見え 
る） 

• XFER 1->0 
Bankl を BankO に転送 

• to 640 DOT 

WIDTH 40 のとき， BankO を640 x 200ドッ 
卜に引き伸ばす （ WIDTH 80 のときはなに 
もしない） 



DIGITIZE モード+ 4分割モード 


• to 320 DOT 

WIDTH 80 のとき， BankO を 320 X 200 ドッ 
卜に縮小する （ WIDTH 40 のときはなにも 
しない） 

• SCRN-MIX 

BankO と Bankl の，それぞれの奇数ライン 
のデータを交換する （ BankO と Bankl の時 
差が見える？） 

• カラー CHANGE 

デジタイズ時に設定したパレット値に従 
って色を変更する。 

注 ） to 640 DOT，to 320 DOT ， カラー CHA 
NGE は BankO に対してのみですが SWAP 
を適当に使えば Bankl に対しても処理でき 
ます。なお，ここでカナキーを ロックし 
て 「 Q 」 をネ甲すと IPL - BOOT します。？舌 
用してください。 

DIGITIZE 

スペースキーで取り込み/ STOP を繰り返 
し， ESC キーでメイン メニューに 戻ります。 
画像取り込みに関しては次のような設定項 
目があり，取り込み停止時に設定すること 
ができます。なお， カーソルをメニューの 
外に持っていけばテキスト画面は消え，上 
下キーで復活します。 

• LINES 

200 : BankO だけに取り込む 
400 : BankO , Bankl に交互に取り込む 
•イメー ジボード 
BV 1 : CZ -8 BV 1 を選択 
BV 2 : CZ -8 BV 2 を選択（ポートが切り換 
わるだけ） 

•スクランブル 


J 2 Oh ! X 1988.2. 






















ON : スクランブル ON 
OFF : スクランブル OFF 

• WIDTH 

40 : 320 ドットでの取り込む 
80 : 640ドットでの取り込む 
• ガメンブンカツ 
ON :画面を4分割にする 
OFF :1画面モード 

• H-offset 

横方向のオフセット値（転送開始時に読 

み飛ばすバイト数）の増減 

「+」••現在値より+1(左にずれる） 

「一」••現在値より一1(右にずれる） 

• V-offset 

縦方向のオフセット値（転送開始時に読 

み飛ばすライン数）の増減 

「+」：現在値より+1(上にずれる） 

「一 J :現在値より一1(下にずれる） 

• SPEED 

取り込み速度の調整。値が小さいほど速 

い 

「+」：現在値より+1 
「一」：現在値より—1 

• PALET 

パレットの 変更 0 サブ カーソルが 出る の 
で，好きなところに持っていって直接 パレ 
ット コード （0 〜 7) を入力する。実際の色変 
更はメインメニューに 戻って 「カラー CHAN 
GE 」 で行う。 

FILER 

ここでは入力の順番が以下のように決め 
られています。リターンキーで次のステッ 
ブに進んでください。 

1) Operation LOAD/SAVE 

2) Device FDD 0, FDD 1 ， Cassette 

3) Extension ( SAVE 時のみ） 

4 ) FILE NAME の入力 （ SAVE 時のみ） 
まず，画像データをロードする場合， 1) 

で LOAD を選択。 2) で， デバイスがテープ 
ならいきなりロー ドが始まります。 FDD な 
ら，右半分に画像 ファイルの 一覧が表示さ 
れ ますので， カーソルでファイルを 選択後 
リ ターン キーで決定してください。 

またセーブの場合は，1)， 2) に続いて， 
セーブしたい画面 モー ドに合わせて エ クス 
テンション （ Gr ? 写真参照)を決定してくだ 
さい 〇 ここでファイルの一-覧が表示され， 
ディスクの容量がチェックされます。 4) で 
ファイル名を入力してリターンキーを押せ 
ば OK です。ただし，現在の画面モードと 
はまったく独立したものなので，たとえば 
WIDTH 80で取り込んだものを GrO でセー 
ブすると画面の前半しかセーブされません。 



FILER モード 


さて，肝心の400ラインデータをセーブす 
る場合ですが，同じファイル名でエクステ 
ンシヨンを変えて2回セーブしてください 
( Xlturbo のデータに合わせるためです >〇ま 
た， GrO と Grl ， Gr 3 と Gr 4 は，それぞれファ 
イル名が異なるだけで動作はまったく同じ 
です。 

なお，ファイルー覧が表示された時点で 
FAT も読み込まれるので，ディスクを入れ 
換えないよう注意してください。 LOAD で 
はデータを間違い， SAVE ではディレクト 
リと FAT 力 ? 合わなくなります。ディスクを 
交換したい場合は，一度 2) のデバイス入力 
まで戻ってください。 

HCOPY 

ここでは選択項目はひとつだけです。 

200 : BankO だけをハードコピー 

400 : BankO , Bankl をハードコピー 
いずれの場合でも 640 X 800 ドットに変換し 
て出力します。中止したければ ， SHIFT + 
BREAK としてください。 

入力方法とブログラムの解説 


プログラムは 8 K バイト弱のマシン語と I 
OCS コールによってできており， IPL 起動 
にするための SYSGEN を用意しました。 

まず，リスト1のオブジェクトとリズト 
2の SYSGEN を入力します。ダンプリスト 
は MACINTO - C などのマシン語入カツール 
を使って入力し，忘れずにいったんセーブ 
しておいてください。オブジェクトが D 000 
H 以降にロードされている状態で SYSGEN 
を実行するとディスクまたはテープに IPL 
起動のかたちで出力します。ディスクはあ 
らかじめフォーマットしたものを用意して 
おいてください。 

例によって ZEDA で開発しました。特に 
変わったノウハウはありませんが，だいた 
いのメモリマップを以下に示します。 

000 Oh 〜 OFFFh : IOCS(HuBASIC のその 
まま） 

100 Oh :「写楽」エントリー 



to 320 DOT 変換 

1003 h 〜 100 Bh :プリンタドライバエント 


リー 

IOOCh 〜 11 B 2 h :プリンタドライバ 
11 B 3 h 〜 2 FFFh :「写楽」本体 
300 Oh 〜 3 FFFh :トラックバッフア 
400 Oh 〜 FFFFh : Bankl 

さて，このプログラムではフロッピーデ 
イスタのステップレートを CZ -800 F に合わ 
せて 20 ms に設定してあります。 CZ -501 F な 
ど，もっと速いステップレートで利用でき 
るドライブをご使用の方は， EC 7 Ch を書き 
換えれば以下のように変更できます。 

•2 C 7 Ch : 00 h . 6 ms 

01 h .12 ms 

02 h .20 ms 

03h .30ms 

また， HCOPY でのタイルパターンが気に 
入らないという人は， D 5 B 7 h から4バイト 
ずつ，順にカラーコードが0，1，2，……， 
7と並んでいますので試行錯誤でいろいろ 
と好きなように書き換えてください。 

あとはプリンタに関してです力 5 '，このプ 
ログラムではエブソンの VP 系プリンタに対 
応しています。ほ力、のプリンタを利用したい 
場合には以下のところを書き換えれば使用 
可能です。コントロールコードをそれぞれ 
のプリンタの マニュアルで お確かめくださ 
い0 

• へッドのピンに対して MSB が上にくる場 

a 

D 07 Dh 〜：印字開始時に一度だけ送られ 
るデータ 

D 089 h 〜：1行転送の直前に送られるデ、一 
夕 

D 095 h 〜：印字終了時に送られるデータ 
それぞれ，[データ長1バイト]+ [デー 
夕最大11バイト]で構成されます。長さが 
0の場合はなにも送られません。 

• へッドのピンに対して LSB が上にくる場 
合 

D 024 h の3バイトを00,00,00にしてから， 
上と同じように変更を加えてください。 

ホ氺氺 

「写楽」と命名したのは、 このツールを 作 


特集 カラーイメージツール 写楽 ^3 










D400 

D408 

D410 

D418 

D420 

D428 

D430 

D438 

D440 

D448 

D450 

D458 

D460 

D468 

D470 

D478 


IF CD 8812 C3 D0 11 
0E 0111 09 00 0E 01 
09 00 09 0B 0C 05 08 
20 4D 45 4E 55 20 2A 
0C OE 0157 49 44 54 
20 20 20 20 0D 0E 01 
49 47 49 54 49 5A 45 
01) 0E 0146 49 4C 45 
20 20 20 20 0D OE 01 
43 4F 50 59 20 20 20 
0D 0E 0153 57 4150 
30 2C 3120 OD OE 01 
46 45 52 20 312D 3E 
0D 0E 0174 6F 20 36 
30 44 4F 54 OD 0K 01 
6F 20 33 32 30 4 4 <1F 


14 ED 58 03 C5 
03 CB 031710 
3A 07 00 FK 50 
DD 2618 7A C6 
0E CF D9 D6 04 
D9 21 E8 03 D9 
CD 9A 16 ED 79 

78 0B D9 CD 96 
0B 2B 7C B5 20 
20 D1 CD 8C 09 
00 FK 28 CA 8C 
09 01 00 40 0A 

79 7A 02 0C 20 
F3 C9 01 00 40 
0C 20 FA 04 20 
86IF 32 85IF 


D280 

D288 

D290 

D298 

D2A0 

D2A8 

D2B0 

D2B8 

D2C0 

D2C8 

D2D0 

U2D8 

D2E0 

D2E8 

D2F0 

D2F8 


SUM ： E3 2C AD 4E EC 9D 9C C4 


SUM : 66 6A FE C9 8B 7A 17 59 01E0 

D300 54 0D 0E 0153 43 52 4E : A6 
D308 2D 4D 49 58 20 0D 0E 01 : 57 
D310 52 45 56 45 52 53 45 20 : 3C 
D318 20 0D 0E 01 B6 D7 B0 43 : BC 
D320 48 414E 47 45 0E 01 0F : 81 
D32818 5B 52 45 54 55 52 4E : 53 
D330 5D 3A 52 75 6E 0E 14 5B : 49 
D338 B6 C5 5D 2B 5B 51 5D 3 A : 46 
D340 42 6F 6F 74 00 00 01 00 : 95 
D348 40 DD 21 7D IF FD 21 00 : F8 
D350 40 ED 50 CB F8 CB B0 ED : A8 
D358 58 CB F0 ED 60 CB B8 C5 : A8 
D360 06 08 AF CB 1417 CB 13 : 91 
D368 17 CB 1217 32 7113 DD : 9E 
D370 4E 00 AF CB 19 CB 12 1F : DD 
D378 CB 19 CB 13 IF CB 19 CB : 90 


SUM ： B6 3715 34 D2 ED AC 30 22E6 

D380 14 IF 07 07 0710 E5 Cl : FE 
D388 ED 51 CB F8 CB B0 ED 59 : C2 
D390 CB F0 ED 61 CB B8 03 FD : 8C 
D398 2D 20 B6 FD 25 20 B2 C9 : C0 
D3A0 0100 40 21 00 C0 ED 78 : 87 
D3A8 2F ED 79 03 2D 20 F7 25 : 01 
D3B0 20 F4 C916 0C 01 00 48 : 48 
D3B8 21 D0 07 C5 ED 58 0A ED : F9 
D3C0 79 7B 02 03 2B 7C B5 20 : 75 
D3C8 F3 Cl78 C610 4715 20 : 7E 
D3D0 E7 C9 3A 07 00 PB 28 C8 : DF 
D3D816 38 DD 2618 7A C6 08 : B1 
D3E0 57 47 0E 00 D9 47 0E 00 : DA 
D3E8 D9 21 E8 03 CD 0114 D9 : A0 
D3F0 ED 79 03 D9 2B 7C B5 20 : BE 
D3F8 F3 DD 25 20 E0 CD 98 09 : 63 


SUM: EA 4A 52 09 92 E4 E9 79 


BB 

CD 

12 

78 

36 

FA 

21 

90 

03 

3B 

86 

B8 

4B 

17 

BA 

75 


A6 

21 

48 

C9 

62 

E4 

59 

5C 

EE 

E3 

77 

E9 

FI 

85 

67 

2B 


SUM ： 89 2F C8 8C F7 C3 05 35 20CA 

D480 CD F314 CD C314 CD F6 : 3B 
D488 2A FE IB C8 FE 0D 2815 : 53 
D490 FE 1C 28 07 FE ID 20 EE : 72 
D498 AF 18 02 3E 0132 85IF : DE 
D4A0 CD C31418 El CD 0310 : 7D 
D4A8 014F C0 C5 CD 3215 CD : B6 
D4B0 0610 Cl3E 1A DB 01 0F : 1A 


なお， FILER でト ラックバッファに 4 K パ、 
イトも必要かどうかは疑問です。ここを 2 K 
パ、 イトぐらいにすれば'，もっといろんな機 
能が盛り込めるでしようが，それはまだ見 
ぬ Ver 2.0 に期侍したいと思います。果たし 
て，誰が，いつ，作るのだろう？ 


IJ スト1写楽(オブジェクト) 


D268 

21 

D2 

13 

3D 

28 

0F 

21 

B3 

4E 

D270 

13 

3D 

28 

09 

21 

AO 

13 

3D 

92 

D278 

28 

03 

21 

46 

13 

3E 

01 

32 

16 


では，さようなら。 


Profile 

◊古川さんは鳥取県にお住まいの22歳，電子工学 
を専攻の大学4年生です。先月号の「 XI で TV in 
LIST 」 に続いての作品ですが，次はなにに挑戦 
するのか，楽しみですね。 


D4B8 

30 

05 

0D 

CB 

79 

28 

EC 

CD 

67 

D4C0 

09 

10 

C9 

11 

U3 

14 

3A 

85 

99 

D4C8 

IF 

B7 

28 

03 

11 

^3 

14 

CD 

D6 

D4D0 

76 

29 

C9 

0E 

07 

0F 

15 

05 

A6 

D4D8 

08 

0A 

32 

30 

30 

0B 

2F 

34 

12 

D4E0 

30 

30 

00 

0E 

07 

0F 

15 

05 

9E 

D4E8 

08 

0B 

32 

30 

30 

2F 

0A 

34 

12 

D4F0 

3 0 

30 

00 

11 

FC 

14 

CD 

76 

C4 

D4F8 

29 

C3 

C3 

14 

09 

0B 

0C 

05 

E8 

SUM ： 

DF 

74 

DC 

75 

58 

G0 

29 

10 C7E2 

D500 

08 

2A 

20 

48 

43 

4F 

50 

59 

D5 

D508 

20 

2A 

0E 

01 

0F 

15 

4C 

49 

12 

D510 

4E 

45 

53 

0E 

01 

0F 

18 

5B 

77 

D518 
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014C 
20 20 
B0 BC 
0D 0E 


2617 
FE IB 
IE 20 
07 09 
CD 76 
1C CD 
6C IB 
CD KA 
1C C9 
20 C3 
DB 20 
49 4E 
20 0D 
DE CE 
01 BD 


46 

E4 

D6 

06 

D2 

7A 

93 

FD 

C8 

3A 

A5 

39 

45 

AB 

09 


SUM ： CB A16C F9 BB 88 CB 50 903E 


D780 

D788 

D790 

D798 

D7A0 

D7A8 

D7B0 

D7B8 

D7C0 

D7C8 

D7D0 

D7D8 

D7E0 

D7E8 

D7F0 

D7F8 


B8 D7 
20 0D 
48 20 
01 B6 
B6 C2 
6F 66 
0D 0E 

73 65 
53 70 
20 20 
65 74 
0E 01 
43 45 
2F 53 
45 53 

74 00 


DD CC 
0E 01 
20 20 
DE D2 
20 0D 
66 73 
0156 
74 20 
65 65 
0D 0G 
20 20 
0F 18 
5D 3A 
74 6F 
43 5D 
1142 


DE D9 20 
57 49 44 
20 20 0D 
DD CC DE 
0E 0148 
65 74 20 
2D 6F 66 
20 0D 0E 
64 20 20 
0150 61 
20 20 20 
5B 53 50 
C4 D8 BA 
70 0E 14 
3A 5175 
18 CD 76 


2F 

74 
03 
CB 
29 
C7 
DA 
A8 

51 
79 
86 

75 
45 

52 
A1 
4B 


SUM ： D7 45 AA A8 58 E6 D5 AA 9844 


D800 

D808 

D8ie 

D818 

D820 

D828 

D830 

D838 

D840 

D848 

D850 

D858 

D860 

D868 

D870 

D878 


CD 761C 
IE 28 30 
1C 28 06 
E7 3E 02 
8C IF CD 
18 D6 AF 
32 8C IF 
IB 18 C5 
29 C9 0E 
00 0E 01 
118F 18 
1C FE IB 
27 FE IF 
12 FE ID 
32 87IF 
IB 18 DB 


FE IB 
FE IF 
FE ID 
32 8A 
D11C 
32 8A 
CD D1 
1149 
01 0F 
0F 0F 
CD 76 
28 2B 
28 23 
28 02 
CD D1 
3E 01 


28 34 FE 

28 2C FE 
281318 
IF 3C 32 
CD 04IB 
IF 3C 23 
1C CD 04 
18 CD 76 
0F 11 0A 
12 0A 00 

29 CD 76 
FE IE 28 
FE 1C 28 
18 E7 AF 
1C CD 38 
32 87IF 


D2 

E5 

B8 

70 

51 

D7 

68 

AD 

3A 

49 

67 

CC 

D1 

05 

97 

25 


SUM ： BB 9C 2C 6D 57 63 E6 D4 BE02 


D880 CD 
D88811 
D890 01 
D898 0F 
D8A0 CD 
D8A8 28 
D8B0 28 
D8B8 28 
D8C0 2B 
D8C8 8C 
D8D0 18 
D8D8 C9 
D8E0 0E 
D&E8 32 
1)8 F0 FE 
D8F8 FE 


D11C 
9618 
0P 10 
10 12 
76 29 
28 FE 
20 FE 
0218 
17 CD 
09 CD 
CB 11 
0E 01 
01 0F 
19 CD 
IB 28 
IF 28 


CD 38IB 
CD 76 29 
11 0A 00 
0A 00 11 
CD 761C 
IE 28 24 
1C 2811 
E7 CD 98 
D11C 18 
2B 17 CD 
G0 18 CD 
0F 1111 
1112 0A 
76 29 CD 
37 FE IE 
2F FE 1C 


18 CE 
C9 0E 
0E 01 
D918 
FE IB 
FE IF 
FE ID 
09 CD 
D6 CD 
D11C 
76 29 
0A 00 
00 11 
761C 
28 33 
2819 


C0 

02 

4A 

3D 

E4 

D5 

B6 

64 

B7 

5E 

58 

13 

5C 

16 

EF 

CF 


SUM ： 07 93 6B 7B DE 12 B8 A4 08CF 


D90O 

D908 

D910 

1)918 

D920 

D928 

D930 

D938 

D940 

D948 

D950 

D958 

D960 

D968 

D970 

D978 


FE ID 28 
32 88IF 
IB CD D5 
D4 AF 32 
CD A1IB 
IB 18 C2 

29 C9 0E 
00 0E 01 
118819 
1C FE IB 

30 FE IF 
06 FE 2D 
7E 013C 
DD 77 01 
DD 7E 01 
00 DD 77 


0218 
CD D1 
IB CD 
88IF 
CD D5 
1139 
01 0F 
0F 12 
CD 76 
28 34 
28 2C 
2813 
FE 64 
CD D5 
3D FE 
01 CD 


E7 3E 01 
1C CD A1 
EA IB 18 
CD D11C 
IB CD EA 
19 CD 76 
1211 0A 
12 0A 00 
29 CD 76 
FE IE 28 
FE 2B 28 
18 E7 DD 
3F DE 00 
IB 18 D6 
FF 3F CE 
D5IB 18 


83 

01 

C2 

16 

FD 

9B 

3D 

4C 

61 

D5 

F2 

48 

3A 

00 

A3 

2A 


SUM: CB 06 6F AE FI7D F9 9F 5970 


D980 

D988 

D990 

D998 

D9A0 

D9A8 

D9B0 

D9B8 


C5118F 
0E 01 0F 
01 0F 13 
19 CD 76 
IB 28 34 
IF 28 2C 
2D 2813 
3C FE 64 


19 CD 
1311 
12 0A 
29 CD 
FE IE 
FE 2B 
18 E7 
3F DE 


76 29 C9 
0A 00 0E 
00 11 DE 
761C FE 
28 30 FE 
28 06 FE 
DD 7E 00 
00 DD 77 


B3 

5A 

2E 

E2 

E9 

C8 

C2 

0F 


D9C0 

00 

CD 

EA 

IB 

18 

1)6 

DD 

7E 

IB 

D9C8 

00 

3D 

FE 

FF 

3F 

CE 

0 0 

DD 

24 

D9D0 

77 

00 

CD 

EA 

IB 

18 

C5 

11 

37 

D9D8 

E5 

19 

CD 

76 

29 

C9 

OH 

01 

42 

D9E0 

0F 

14 

11 

0A 

00 

0E 

01 

0F 

5C 

D9E8 

14 

12 

0A 

00 

11 

34 

1A 

CD 

5C 

D9F0 

7 6 

29 

CD 

76 

1C 

FE 

IB 

28 

3F 

D9F8 

3 4 

FE 

IE 

28 

30 

FE 

IF 

28 

ED 

SUM ： 

B9 

D4 

86 

DC 

BB 

E6 

EC 

BF FFA8 

DA00 

2C 

FE 

2B 

28 

06 

FE 

2D 

28 

D6 

DA08 

13 

18 

E7 

3A 

7A 

1 V 

3C 

FE 

IF 

DA10 

64 

3F 

DE 

00 

32 

7A 

IF 

CD 

19 

DA18 

FF 

IB 

18 

D6 

3A 

7A 

IF 

3D 

18 

DA20 

FE 

FF 

3F 

CE 

00 

32 

7A 

IF 

D5 

DA28 

CD 

FF 

IB 

18 

C5 

11 

3B 

1A 

2A 

DA30 

CD 

76 

29 

C9 

0E 

01 

0F 

15 

68 

DA38 

11 

0A 

00 

0E 

01 

0F 

15 

12 

60 

DA40 

0A 

00 

11 

AF 

1A 

CD 

76 

29 

50 

DA48 

21 

7D 

IF 

06 

0B 

78 

32 

78 

F0 

DA50 

2C 

3E 

IE 

Cl) 

5 2 

2A 

C5 

E5 

7B 

DA58 

CD 

76 

1C 

El 

Cl 

FE 

IB 

28 

42 

DA60 

47 

FE 

IE 

28 

‘13 

FE 

IF 

28 

13 

DA68 

3F 

FE 

1C 

28 

15 

FK 

ID 

28 

D9 

DA70 

24 

D6 

30 

38 

El 

FE 

08 

30 

79 

DA78 

DD 

77 

CD 

86 

1C 

CD 

14 

1C 

C0 

SUM ： 

F6 

68 

2C 

66 

4D 

98 

60 

DA DB00 

DA80 

18 

CB 

78 

32 

78 

2C 

3E 

IF 

8E 

DA88 

CD 

52 

2A 

78 

3C 

FE 

13 

28 

36 

DA90 

BC 

47 

23 

18 

B8 

78 

32 

78 

18 

DA98 

2C 

3E 

IF 

Cl) 

52 

2A 

78 

3D 

87 

DAA0 

FE 

0A 

28 

A9 

47 

2B 

1H 

A5 

08 

DAA8 

11 

B6 

1A 

CD 

76 

29 

C9 

0E 

24 

DAB0 

01 

OF 

16 

11 

0A 

00 

0E 

01 

50 

DAB8 

0F 

16 

12 

12 

00 

11 

F6 

1A 

6A 

DAC0 

CD 

76 

29 

CD 

76 

1C 

FI¬ 

IB 

E4 

DAC8 

28 

25 

FE 

IE 

28 

21 

FE 

IF 

CF 

DAD0 

28 

ID 

FE 

1C 

2 8 

0F 

FK 

ID 

B1 

DAD8 

28 

02 

18 

E7 

AF 

32 

86 

IF 

AF 

DAE0 

CD 

36 

1C 

18 

DE 

3E 

01 

32 

86 

DAE8 

86 

IF 

CD 

36 

1C 

18 

D4 

11 

Cl 

DAF0 

FD 

1A 

CD 

76 

29 

C9 

0E 

01 

5B 

DAF8 

0F 

0E 

11 

0A 

00 

0E 

01 

0F 

56 

SUM ： 

90 

BE 

52 

E4 

ID 

DC 

44 

93 0E16 

DB00 

0E 

12 

0A 

00 

D5 

11 

16 

IB 

41 

DB08 

3A 

8 A 

IF 

B7 

28 

03 

11 

27 

FD 

DB10 

IB 

CD 

76 

29 

D1 

C9 

0E 

0C 

3B 

DB18 

0F 

0F 

05 

08 

0A 

42 

56 

31 

FE 

DB20 

07 

0B 

2F 

42 

56 

32 

00 

0E 

19 

DB28 

0C 

0F 

0F 

07 

08 

0B 

42 

56 

DC 

DB30 

31 

2F 

05 

0A 

42 

56 

32 

00 

39 

DB38 

D5 

11 

4A 

IB 

3A 

87 

IF 

B7 

E2 

DB40 

28 

03 

11 

5B 

IB 

CD 

76 

29 

IE 

DB48 

D1 

C9 

0E 

0C 

0F 

10 

05 

08 

E0 

DB50 

0A 

4F 

4E 

20 

07 

0B 

2F 

4F 

57 

DB58 

46 

46 

00 

OE 

0C 

0F 

10 

07 

CC 

DB60 

08 

0B 

4F 

4E 

20 

2F 

05 

0A 

0E 

DB68 

4F 

46 

46 

00 

D5 

11 

7F 

IB 

5B 

DB70 

3A 

07 

00 

FE 

28 

28 

03 

11 

A3 

DB78 

90 

IB 

CD 

76 

29 

D1 

C9 

0E 

BF 

SUM ： 

F5 

A6 

00 

AD 

35 

69 

28 

65 CC62 

DB80 

0C 

0F 

11 

05 

08 

0A 

34 

30 

A7 

DB88 

20 

07 

0B 

2F 

20 

38 

30 

00 

E9 

DB90 

0E 

0C 

0F 

11 

07 

08 

0B 

34 

88 

DB98 

30 

20 

2F 

05 

0A 

20 

38 

30 

16 

DBA0 

00 

D5 

11 

B3 

IB 

3A 

88 

IF 

95 

DBA8 

B7 

28 

03 

11 

C4 

IB 

CD 

76 

15 

DBB0 

29 

D1 

C9 

0E 

0C 

0F 

12 

07 

05 

DBB8 

08 

0B 

4F 

4E 

20 

2K 

05 

0A 

0E 

DBC0 

4F 

46 

46 

Oi) 

0E 

0C 

0F 

12 

16 

DBC8 

05 

08 

0A 

4F 

4E 

20 

07 

0B 

E6 

DBD0 

2F 

4F 

46 

46 

00 

D5 

11 

E4 

D4 

DBD8 

IB 

CD 

76 

29 

DD 

7E 

01 

CD 

B0 

DBE0 

B3 

1C 

D1 

C9 

0F 

13 

05 

08 

98 

DBE8 

0B 

00 

D5 

11 

F9 

IB 

CD 

76 

48 

DBF0 

29 

DD 

7E 

00 

CD 

B3 

1C 

D1 

FI 

DBF8 

C9 

0F 

14 

05 

08 

0B 

00 

D5 

D9 

SUM ： 

A0 

8D 

CA 

07 

5A 

68 

29 

2C EA0F 

DC00 

11 

0E 

1C 

CD 

76 

29 

3A 

7A 

5B 

DC08 

IF 

CD 

B3 

1C 

D1 

C9 

0F 

15 

79 

DC10 

05 

08 

OH 

00 

D5 

E5 

11 

2E 

11 

DC 18 

1C 

CD 

76 

2 9 

21 

7D 

IF 

16 

5B 

DC20 

08 

7E 

C6 

3 0 

CD 

52 

2A 

23 

E8 

DC28 

15 

2 0 

F6 

El 

D1 

C9 

0E 

0B 

BF 

DC30 

0F 

16 

05 

08 

0B 


D5 

11 

23 

DC38 

48 

1C 

3A 

86 

IF 

B7 

28 

03 

25 

DC40 

11 

59 

1C 

CD 

76 

29 

D1 

C9 

8C 

DC48 

0E 

0C 

0F 

0E 

05 

08 

0A 

32 

80 

DC50 

30 

30 

07 

0B 

2F 

34 

30 

30 

35 

DC58 

00 

0E 

0C 

0F 

0E 

07 

08 

0B 

51 

DC60 

32 

30 

30 

2F 

05 

0A 

34 

30 

34 

DC68 

30 

00 

F5 

3A 

7C 

IF 

2F 

G6 

0F 


DC70 0132 7C IF FI C9 3A 7C 


ED9B 526124 DB8D42 
CDDFE00EO1D41E0A 

897092 11E09D842D 
7742 C31D30FE70.AE 

F9051FE1F684D2D4 

40C2C41C1511EAE0 

40E9DF8CAD914D42 

02C6110F8D700E0A 

688D9C10B1D6822D 
837EF 82140 E520AE 

D6F62A49DE4D56D4 

DE40C311E30D15E0 


特集 カラーイメージツール 写楽 35 




































CD 2C 27 FI 
616B 2D 73 
43 68 65 63 
6D 20 65 72 

43 6173 73 
20 65 6D 70 

65 76 69 63 
4F 20 65 72 

44 65 76 69 

66 66 6C 69 
72 69 74 65 

74 65 63 74 
72 69 74 65 
6C 74 00 52 
64 20 6E 6F 

75 6E 64 00 


E500 

E508 

E510 

E518 

E520 

E528 

E530 

E538 

E540 

E548 

E550 

E558 

E560 

E568 

E570 

E578 


E480 03 
E488 C9 
E490 74 
E498 6B 
E4A0 72 
E4A8 65 
E4B0 74 
E4B8 65 
E4C0 72 
E4C8 63 
E4D0 6E 
E4D8 20 
E4E0 65 
E4E8 20 
E4F0 65 
E4F8 74 


E080 18 9D 3A 76 
E088 04 22 C3 4E 
G090 0B 2A 20 46 
E098 20 2A 0E 00 
E0A0 0D 10 12 0D 
E0A8 01 0F 18 5B 
E0B0 52 4E 5D 3A 
E0B8 0E 14 5B 45 
E0C0 C4 D8 B9 BC 
E0C8 OE 00 0F 02 
E0D0 6174 69 6F 
E0D8 4144 2F 53 
E0E0 0E 0A 0F 02 
E0E8 4F 4144 0B 
E0F0 45 00 0E 0A 
E0F8 0B 4C 4F 41 


SUM: 1C 54 D2 B9 3C 7F CB C2 


SUM ： 72 73 8C E0 3E 7B A8 FF 


SUM ： 22 Cl93 C2 64 D2 D0 A6 


HO 

98 
BE 
0F 
52 
7B 
91 
40 
84 
5E 
C5 

99 
51 
86 
3C 
4B 


5E 

4E 

C6 

D7 

DD 

14 

D8 

43 

DB 

F8 

DE 

21 

D4 

8E 

0A 

B0 


SUM ： 30 7186 E7 B0 2F 29 8E 

E300 29 38 45 32 77 2C AF 32 
E308 7D 2C CD E4 2B CD F0 26 
E310 D9 21 00 30 01 D0 07 3A 
E318 77 2C FE 03 30 03 01 E8 
E320 03 D9 01 00 40 1618 D9 
E328 CD 44 00 D9 DC 3124 DA 
E330 CA IF 21 00 30 CD FB 27 
E338 78 C6 08 4715 20 E8 3E 
E340 01 CD EC 0D CD 14 27 C9 
E348 3E 01 CD EC 0D 1156 23 
E350 CD 2C 27 C3 CA IF 4E 6F 
E358 74 20 47 2D 64 6174 61 
E360 00 3A 76 2C 32 7B 2C CD 
E368 6F 28 DA F2 23 3A 7D 2C 
E370 11 0124 B7 CA FB 2311 
E378 0A 24 CD 76 29 3A 7F 2C 


5B 

75 

C7 

8D 

79 

C3 

14 

EF 

2C 

B5 

D6 

E3 

8F 

F8 

7E 

B7 


SUM ： EA DD CD CE AB 75 D4 FB 7972 


E580 

19 

0D 

20 

E6 

B7 

El 

D1 

Cl 


56 

E588 

C9 

C5 

D5 

E5 

11 

88 

26 

CD 


D4 

E590 

76 

29 

21 

02 

12 

22 

78 

2C 


9A 

E598 

3E 

5B 

CD 

52 

2A 

3E 

10 

32 


62 

E5A0 

78 

2C 

3E 

5D 

CD 

52 

2A 

21 


A9 

E5A8 

B 1 

2C 

06 

03 

3E 

07 

32 

7A 


A7 

E5B0 

2 (： 

11 

03 

12 

ED 

53 

78 

2C 


36 

E5B8 

11 

81 

2C 

0E 

0D 

1A 

13 

CD 


D3 

E5C0 

52 

2A 

0D 

20 

F8 

78 

32 

78 


C3 

E5C8 

2C 

3E 

IE 

CD 

52 

2A 

CD 

F6 


94 

E5D0 

2A 

FE 

IB 

28 

IF 

FE 

0D 

28 


BD 

E5D8 

24 

FE 

ID 

28 

0E 

FE 

1C 

C2 


51 

E5E0 

77 

26 

78 

FE 

0F 

28 

E7 

04 


35 

E5E8 

23 

18 

Cl 

78 

FE 

03 

28 

I)F. 


7B 

E5F0 

05 

2B 

18 

B8 

11 

9 8 

26 

CD 


9C 

E5F8 

76 

29 

37 

18 

76 

78 

32 

78 


86 

SUM ： 

AD 

36 

41 

22 

14 

68 

F5 

FF 

3E62 

E600 

2C 

3E 

IF 

CD 

52 

2A 

3A 

77 


83 

E608 

2C 

C6 

30 

3 2 

90 

2C 

21 

07 


38 

E610 

01 

3A 

76 

2C 

FE 

02 

28 

03 


08 

E618 

21 

20 

04 

7C 

32 

80 

2C 

7D 


1C 

E620 

32 

91 

2C 

01 

00 

C0 

11 

00 


Cl 

E628 

40 

21 

00 

00 

3 A 

76 

2 (； 

FE 


3B 

E630 

02 

28 

09 

01 

00 

0 0 

11 

00 


45 

E638 

00 

21 

00 

00 

ED 

43 

92 

2C 


OF 

E640 

ED 

53 

94 

2C 

22 

96 

2C 

3E 


22 

E648 

ED 

CD 

54 

0B 

CD 

49 

0B 

32 


6C 

E650 

98 

2C 

CD 

49 

OB 

3 2 

99 

2C 


DC 

E658 

CD 

49 

0B 

32 

9A 

2C 

3E 

EF 


46 

E660 

CD 

54 

0B 

CD 

49 

0B 

32 

9B 


1A 

E668 

2C 

CD 

49 

0B 

32 

9C 

2C 

CD 


14 

E670 

M) 

0B 

B7 

El 

D1 

Cl 

C9 

FE 


45 

B678 

20 

DA 

CE 

25 

77 

78 

FB 

0F 


E9 

SUM: 

8F 

F4 

97 

39 

90 

6E 

C2 

28 

5F31 

E680 

CA 

AC 

25 

23 

04 

C3 

AC 

25 


56 

E688 

0E 

00 

0F 

11 

A 6 

69 

6C 

65 


AE 

E690 

20 

6E 

61 

6D 

65 

2e 

3F 

00 


20 

E698 

0E 

00 

0F 

11 

07 

09 

0B 

10 


59 

E6A0 

14 

0D 

10 

14 

00 

F5 

C5 

D5 


D4 

E6A8 

E5 

0E 

FF 

21 

FF 

2D 

06 

07 


4C 

E6B0 

3A 

77 

2C 

FE 

03 

38 

02 

06 


IE 

E6B8 

0D 

23 

0C 

7E 

B7 

20 

FA 

79 


04 

E6C0 

32 

7E 

2C 

36 

FF 

0G 

FF 

11 


2F 

E6C8 

FF 

2D 

13 

0C 

1A 

B7 

20 

FA 


36 

E6D0 

71 

EB 

10 

EF 

EB 

36 

8F 

El 


EC 

E6D8 

D1 

Cl 

FI 

C9 

C5 

E5 

01 

00 


F7 

E6E0 

50 

21 

00 

2E 

7K 

2 3 

B7 

2 0 


17 

E6E8 

01 

0C 

10 

F8 

79 

El 

Cl 

C9 


F9 

E6F0 

C5 

01 

A A 

10 

ED 

49 

01 

CC 


83 

E6F8 

11 

ED 

49 

01 

F0 

12 

ED 

49 


80 

SUM ： 

E0 

41 

2E 

94 

0C 

0E 

3E 

DF 

C387 

E700 

Cl 

C9 

C5 

01 

00 

10 

BD 

49 


96 

E708 

01 

00 

11 

ED 

49 

01 

00 

12 


5B 

E710 

ED 

49 

Cl 

C9 

F5 

C5 

D5 

E5 


34 

E718 

3A 

77 

2C 

FE 

03 

38 

05 

CD 


E8 


E720 8C 0918 03 CD 98 09 El : FF 


SUM：12 54 A2 9D 818F 50 84 BC41 

E380 32 79 2C 11ID 24 CD 76 : 6C 
E388 29 CD F6 2A FB IB 28 33 : 8A 
E390 FE 0D 28 38 FE IF 2816 : C6 
E398 FE IE 20 ED 3A 7F 2C B7 : C5 
E3A0 28 E71122 24 CD 76 29 : D2 
E3A8 3D 32 7F 2C 18 CF 3A 7F : BA 
E3B0 2C 2A 7D 2C 3C BD 28 D1 : FI 
E3B81122 24 CD 76 29 32 7F : 74 
E3C0 2C 18 BA 1127 24 CD 76 : 9D 
E3C8 29 C3 CA IF 2A 7F 2C 26 : D0 
E3D0 00 29 29 29 29 29 01 B0 : 7E 
E3D8 2C 09 7E D6 30 32 77 2C : 8E 
E3E0 01 0E 00 09 7E 32 7E 2C : 72 
E3E8 CD F0 26 CD 74 27 D414 : 33 
E3F0 27 D0 CD 02 27 CD 59 24 : 37 
E3F8 C3 CA IF 11 0124 C3 C8 : 6D 


SUM ： 32 7B D8 BF 05 A7 3212 2386 

E400 22 0A 4E 6F 20 64 6174 : 42 
E408 61 00 0E 00 0F 11 07 09 : 9F 
E410 0B 53 65 6C 65 63 74 20 : 8B 
E418 66 69 6C 65 00 0G 1611 : D5 
E420 11 00 0E 161211 00 0E : 66 
E428 00 0F 11 07 09 0B 10 14 : 5F 
E430 00 F5 F5 CD 02 27 3E 01: IF 
E438 CD EC 0D FI1189 24 3D : B2 
E440 28 421194 24 3D 28 3C : D4 
E44811 A4 24 3D 28 3611 D3 : 56 
E450 24 3D 28 30 11 B3 2418 : B9 
E458 2B F5 CD 46 2C 11 C4 24 : 58 
E460 07 38 2111 D3 24 07 38 : A7 
E468 IB 11 E3 24 07 381511 : 98 
E470 EF 24 07 38 0F 11 00 25 : 97 
E478 07 38 0911 0A 25 07 38 : C7 


E1D0 30 29 0D 0E 02 47 72 35 : 64 
E1D8 3A 36 34 30 2A 34 30 30 : 92 
E1E0 28 42 61 6E 6B 3129 0D : 0B 
E1E8 0E 02 4E 6F 77 20 00 33 : 97 
E1F0 32 30 2A 00 36 34 30 2A : 50 
E1F8 00 32 30 30 00 34 30 30 : 26 


SUM ： A7 12 3A 47 8C 45 70 55 F78F 

E200 00 1112 00 CD 89 25 DA : 78 
E208 IF 20 2180 2C 0120 00 : 2D 
E210 CD 3B 00 DC 3124 DA CA : DD 
E218 IF D9 21 00 30 01 E8 03 : 35 
E220 3A 77 2C FE 03 38 03 01 : 1A 
E228 D0 07 D9 01 00 40 1618 : IF 
E230 21 00 30 CD 2B 28 78 C6 : AF 
E238 08 47 D9 CD 3E 00 D9 DC : E8 
E240 3124 DA CA IF 15 20 E8 : 35 
E248 3E 01 CD EC 0D C9 CD 6F : 0A 
E250 28 DC 59 24 DA CA IF 3A : 7E 
E258 77 2C 06 0D FE 03 30 02 : E9 
E260 06 07 CD DC 2611 CE 22 : DD 
E268 90 DA C8 22 CD 89 25 DA : A9 
E270 IF 20 CD 5D 2511 DC 22 : 9D 
E278 38 4E CD A5 26 3A 7E 2C : 02 


SUM ： 39 86 97 DC 08 DF FA 3F 916D 

E280 32 9E 2C CD A4 27 DC 59 : C9 
E288 24 DA CA IF CD IF 25 DC : D4 
E290 59 24 DA CA IF ED 5B A0 : 28 
E298 2D 2180 2C 0120 00 ED : 08 
E2A0 B0 3E 01 CD 55 2C 21 A0 : FE 
E2A8 2C 3A 7D 2C 5F CD 8E 2B : F4 
E2B0 DC 59 24 DA CA IF IE 0F : 49 
E2B8 21 00 2E AF CD 55 2C CD : 19 
E2C0 8E 2B DA F2 23 C3 46 2C : DD 
E2C8 CD 2C 27 C3 CA IF 4E 6F : 89 
E2D0 20 66 69 6C 65 20 73 70 : C3 
E2D8 6163 65 00 416C 72 65 : AD 
E2E0 6164 79 20 65 78 69 73 : 17 
E2E8 74 73 00 2180 2C 0120 : D5 
E2F0 00 CD 41 00 DC 3124 DA : 19 
E2F8 CA IF DD 2180 2C CD 48 : A8 


SUM ： D6 BB ID C9 9B ID 3A 50 2E55 

E100 4156 45 00 0E 00 0F 04 : FD 
E108 07 09 0B 44 65 76 69 63 : 06 
E110 65 20 20 20 20 46 44 44 : B3 
E118 20 20 20 20 30 0E 0A 0F : D7 
E120 05 46 44 44 20 20 20 20 : 53 
E128 31 0E 0A 0F 06 43 6173 : 75 
E130 73 65 74 74 65 0D 0D 10 : 4F 
E138 14 0D 10 14 0D 10 14 0D : 83 
E140 10 14 0D 10 14 0D 10 14 : 86 
E148 0D 10 14 0D 10 14 0D 0D : 7C 
E150 10 14 0D 10 14 00 11 08 : 6E 
E158 00 0E 00 0F 08 07 09 0B : 40 
E160 45 78 74 65 6E 73 69 6F : 4F 
E168 6E 0D 0E 02 47 72 30 3A : AE 
E170 33 32 30 2A 32 30 30 20 : 71 
E178 20 20 20 20 20 20 0D 0E : DB 


SUM ： BD 82 62 4C A2 A7 75 75 6904 

Else 02 47 72 31 3A 33 32 30 : BB 
E188 2A 34 30 30 28 42 61 6E. : F7 
E190 6B 30 29 0D 0E 02 47 72 : 9A 
E198 32 3A 33 32 30 2A 34 30 : 8F 
E1A0 30 28 42 61 6E 6B 3129 : 2E 
E1A8 0D 0E 02 47 72 33 3A 36 : 79 
E1B0 34 30 2A 32 30 30 20 20 : 60 
E1B8 20 20 20 20 20 0D 0E 02 : BD 
E1C0 47 72 34 3A 36 34 30 2A : EB 
E1C8 34 30 30 28 42 61 6E 6B : 38 


DV18 04 ED A2 04 ED A2 04 ED :17 
DF20 A2 04 ED A2 04 ED A2 04 : CC 
DF28 15 20 Cl7D DD 86 04 6F : 49 
DF30 7C CE 07 67 E6 38 20 09 : FF 
DF38 7D DD 86 05 6F 7C CE C0 : 5E 
DF40 67 ED 4B 8A IF 3E 01 DD : 64 
DF48 56 06 ED 7915 20 FB 1D : 0F 
DF50 C2 DA IE El C9 1137 0A : B6 
DF58 IB 7A B3 20 FB C9 14 02 : 42 
DF60 04 C8 B0 50 0114 01 02 : E4 
DF68 64 D8 50 0214 02 02 C8 : 6E 
DF70 D8 28 0114 01 0164 EC : 67 
DF78 28 02 00 00 00 00 01 02 : 2D 


SUM ： 49 60 7A 8C C4 AB DA 7A 35FA 

DF80 03 04 05 06 07 00 00 00 :19 
DF88 00 00 00 08 01 08 CD 02 : E0 
DF90 2711 8D 20 CD 76 2911: 62 
DF98 C5 20 CD 76 2911 E0 20 : 62 
DFA0 3A 75 2C FE 4C 28 0311: 61 
DFA8 F2 20 CD 76 29 CD F6 2A : 6B 
DFB0 FE IB C8 FE 0D 2813 FE ： 25 
DFB8 ID 28 08 FE 1C 20 EE 3E : B3 
DFC0 5318 02 3E 4C 32 75 2C : CA 
DFC818 D311 04 21 CD 76 29 : 8D 
DFD0 2E 0A 3A 76 2C C6 04 67 : 45 
DFD8 22 78 2C 1156 21 CD 76 : 91 
DFE0 29 CD F6 2A FE IB 28 A6 : FD 
DFE8 FE 0D 28 21 FE IE 2811 : A9 
DFF0 FE IF 20 ED 3A 76 2C FE : 04 
DFF8 02 28 CF 3C 32 76 2C 18 : 21 


SUM：18 9B AE 51 F3 D7 34 A9 9B31 

E000 C9 3A 76 2C B7 28 C3 3D : 84 
E008 32 76 2C 18 BD 3A 75 2C : 84 
E010 FE 53 28 0B 3A 76 2C FE : 5E 
E018 02 CA EB 22 C3 612311 : 31 
E020 59 21 CD 76 2911 EF 21 : 07 
E028 3A 07 00 FE 28 28 0311 : A3 
E030 F4 21 CD 76 2911 F9 21 : AC 
E038 3A 86IF B7 28 0311 FD : CF 
E040 21 CD 76 29 3A 77 2C C6 : 30 
E048 09 67 2E 02 22 78 2C 11 : 77 
E050 0122 CD 76 29 CD F6 2A : 7C 
E058 FE IB CA CA IF FE 0D 28 : FF 
E060 21 FE IF 2810 FE IE 20 : B2 
E068 EC 3A 77 2C B7 28 E6 3D : CB 
E070 32 77 2C 18 AA 3A 77 2C : 74 
E078 FE 05 28 D9 3C 32 77 2C : 15 


F4B 51 Ell 89851080 
666C1 32500 1E21F0 


>C121D 4012 


2452880 CC725FC61 
776733222 BFC1201 

533FCB1D 09098101 
67562207 A02C282E 

0F0242C21E 517139 
26072 E 23271 CB120 

3C12DD5B6D61C5B8 
4467CC 57120 D2EB1 

204550 DC 8081 DC37 
5076 E0C23A2E 7213 

32105110 B2CEA1A1 
4762D00A223D3A1E 


5505054 F0F7F752F 
2607064206565776 

4203240920020 1F6 
1777770472070666 

12F0F490F 5504630 
1462677266676662 


A922E52AB2F0C693 
c 05105 B 307404505 

2750D43D95C5A17A 
004105 c 506440400 

ECC425F 37006932 F 
F 04014 A 407250502 

C29F 02930 FE17FF4 
224015 B 504640204 


C5C 045988 F 92296 F 
563C2F2E988A86E7 


36 Oh!X 1988.2. 


►学校でアセンブラ（8085)を教わったのがきっかけで，今はグラフィックを使ったマシ 
ン語ブログラムを解析しています。しかし， MZ - 2200のマニュアルってすごくマシン語の参 
考になりますね。買って4年になってやっと気づきました。 相澤裕二 （18) 茨城県 



































69 0C 
C9 AF 
3C 32 
32 79 
2C C9 
1A 13 
25 20 
IE CD 
1A 13 
25 20 
07 00 
3A 79 
18 FA 
09 3A 
44 4D 
IF 28 


SUM ： 8F 60 A3 F4 D9 F3 A2 66 


SUM ： C7 27 El 0D F0 E9 38 23 


BE 

D3 

23 

EE 

Cl 

FA 

53 

7E 

AF 

52 

A1 

59 

EB 

25 

2E 

89 


A2 

F8 

85 

0E 

42 

A2 

6A 

C2 

53 

F6 

C8 

76 

HH 

5D 

DA 

A6 


SUM ： A164 96 B1 07 EC 2D 84 FB90 

EA80 10 ED 79 CB A0 3A 7A 2C : Cl 
EA88 ED 7918 39 CD ED 2A 18 : B3 
EA90 34 CD E4 2A 18 2F 09 44 : A3 
EA98 4D FI FE IE 2817 FE IF : B6 
EAA0 281C ED 79 0C ED 79 CB : E7 
EAA8 A0 3A 7A 2C F6 80 ED 79 : 5C 
EAB0 0D ED 791810 CD ED 2A : 7F 
EAB8 0C CD ED 2A 18 07 CD E4 : C0 
EAC0 2A 0C CD E4 2A El Cl3A : ED 
EAC8 78 2C 3C 32 78 2C FE 28 : DC 
EAD0 D8 AF 32 78 2C 3A 79 2C : 3C 
EAD8 3C 32 79 2C FE 19 D8 AF : B1 
EAE0 32 79 2C C9 CB A0 ED 78 : 70 
EAE8 E6 8F ED 79 C9 CB A0 ED : FC 


•J スト 2 SYSGEN 


E900 2310 F7 3E 07 32 7A 2C : 47 
E908 3A 7D 2C 67 3C 32 7D 2C : 61 
E910 2E 14 22 78 2C C6 30 CD : CB 
E918 52 2A 3E 3A CD 52 2A El:IE 
E920 23 06 0D 3E 0D 32 7A 2C : 59 
E928 7E 23 CD 52 2A 10 F9 3E : 31 
E930 2E CD 52 2A 06 03 7E 23 : 21 
E938 CD 52 2A 10 F9 3E 07 32 : C9 
E940 7A 2C DD El El Cl FI C9 : C0 
E948 D5 3A 76 2C 16 01 FE 02 : C8 
E950 28 0216 04 DD 7E 00 A2 : 41 
E958 2819 DD 7E 0E FE 47 20 : 0F 
E960 12 DD 7E 0F FE 72 20 0B : 17 
E968 DD 7E 10 D1 D6 30 D8 FE : 18 
E970 06 3F C9 37 D1 C9 F5 C5 : 99 
E978 E51A 13 B7 20 04 El Cl : 8F 


SUM ： F2 48 89 7E 19 AC 4D El FF88 

E980 FI C9 FE 20 38 05 CD 52 : 34 
E988 2A 18 EE FE 08 30 0F 32 : A7 
E990 98 29 3A 7A 2C E6 B8 F6 : 35 
E998 00 32 7A 2C 18 DB FE 13 : DC 
E9A0 30 D7 D6 08 87 21 B6 29 : 6C 
E9A8 06 00 4F 09 7E 23 66 6F : D4 
E9B0 CD B5 2918 C4 E9 CC 29 : 65 
E9B8 D5 29 DE 29 E7 29 F0 29 : 2E 
E9C0 0F 2A 22 2A 28 2A 2E 2A : 2F 
E9C8 3A 2A 46 2A 3A 7A 2C F6 : AA 
E9D0 08 32 7A 2C C9 3A 7A 2C : 89 
E9D8 E6 97 32 7A 2C C9 3A 7A : D2 
E9E0 2C F610 32 7A 2C C9 3A : 0D 
E9E8 7A 2C E6 8F 32 7A 2C C9 : BC 
E9F0 21 00 00 22 78 2C 2E 20 : 35 
E9F8 06 30 CD 012A 2E 07 06 : 69 


SUM: 37 2A DF 2A A41147 F6 59FE 

E800 3A 77 2C FE 03 30 0216 : 26 
E808 04 FE 02 2811 FE 05 28 : 68 
E810 0D 7E 23 ED 79 03ID 20 : 54 
E818 F815 20 F518 0A 7E 23 : E5 
E820 02 03ID 20 F915 20 F6 : 66 
E828 D1 Cl C9 C5 D511 00 08 : 0E 
E830 3A 77 2C FE 03 30 0216 : 26 
E838 04 FE 02 2811 FE 05 28 : 68 
E840 0D ED 78 03 77 23ID 20 : 4C 
E848 F815 20 F518 0A 0A 03 : 51 
E850 77 23ID 20 F915 20 F6 : FB 
E858 D1 Cl C9 F5 E5 3A 7E 2C : 19 
E860 21 00 2E 85 6F 30 0124 : 98 
E868 7E 32 7E 2C El FI C9 DD : D2 
E870 E5 D5 E5 2114 00 22 78 : 6E 
E878 2C 26 0B 11 DC 28 CD 76 : B5 


SUM ： 5154 9F 03 34 54 47 FI D2E1 

E880 29 25 20 F7 AF 32 7D 2C : EF 
E888 CD 24 2C 38 47 CD C9 2B : 5D 
E890 AF CD 55 2C IE 0F 21 00 : 4B 
E898 2E CD 512B 38 36 3E 01: 24 
E8A0 32 7E 2C CD FB 2A 38 2C : 32 
E8A8 DD 2100 30 1120 00 DD : 3C 
E8B0 7E 00 FE FF 28 0D B7 28 : 8F 
E8B8 06 CD 48 29 D4 E4 28 DD : 01 
E8C0 1918 EC 2A 7F 2C 2C 3A : 58 
E8C8 7D 2C 95 30 07 3A 7D 2C : 58 
E8D0 32 7F 2C B7 CD 46 2C El : B4 
E8D8 D1 DD El C9 07 09 0B 0E : 81 
E8E0 1410 14 00 F5 C5 E5 DD : B4 
E8E8 E5 2A 7D 2C 26 00 29 29 : 30 
E8F0 29 29 29 01 A0 2C 09 E5 : 36 
E8F8 06 20 DD 7E 00 DD 23 77 : F8 


SUM ： 27 72 89 30 69 02 D6ID 3181 


E728 D1 
E730 6E 
E738 29 
E740 F6 
E748 27 
E750 0A 
E758 53 
E760 29 
E76814 
E770 OF 
E778 24 


Cl FI C9 
27 CD 76 
114F 27 
2A FE 20 
CD 76 29 
0E 08 0F 
48 20 53 
00 0B 0E 
0D 10 14 
16 0A 00 
2C 38 22 


F5 D5 D5 
29 D1 CD 
CD 76 29 
20 F911 
D1 FI C9 
17 28 50 
50 4143 
00 0F 16 
0D 00 0E 
C5 D5 E5 
CD F0 27 


11 

FC 

76 

15 

CD 

E9 

62 

CA 

07 

25 

55 

13 

45 

27 

10 

77 

00 

60 

CD 

7B 

01 

8F 


10 CLEAR &HC000:WIDTH 40 

20 IF MEM$(&HD000,3)=HEXCHR$("C3 B311") THEN 90 
30 CFLASH 1 

40 PRINT "r シャラク j ホンタイカ * アリマセン ！" 

50 PRINT M D000H イコウニロート '• シテクタ•サイ •” 

60 CFLASH 0 
70 STOP 

80 1 —— IOCS COPY,DIR サクセイ 

90 FOR 1=0 TO 4064 STEP 32 

100 MEM$(&HC000+I,32)=MEM$(1,32) 

110 NEXT 

120 MEM$(&HC12B,2)=HEXCHR$("00 10"} 

130 »---DEVICE INPUT 

140 PRINT "IPL キト*ウフアイルヲサク 1! イシマス *" 

150 PRINT " テ * ハ•イスヲニユウリ b クシテクタ•サイ •” 

160 INPUT " -> D : DISK , C : CASSETTE" ； D$ 

170 IF D$=”D” OR D$="d" THEN 210 
180 IF D$="C" OR D$=”c" THEN 310 
190 GOTO160 
200 > - DISK 

210 PRINT " テ * ィスクヲト•ライフ *0 二 t ッ トシテクタ*サイ •” 

220 PRINT TAB(20) ； "(PUSH ANY KEY)" ； INPUT$(1) 


230 INIT"0：" 

240 SAVEM"0:r シャラク j .Sys",&HC000,&HEC9F,&H0 
250 DEVI$"0:",16,A$,B$ 

260 MID$(A$,21 ， 2)=CHR$(0,0) ： MID$(A$,31,1)=CHR$(&H20) 
270 DEVO$"0:",0,A$ ， B$ 

280 PRINT "END" 

290 END 

300 » - CASSETTE 

310 PRINT " カセットヲ t ットシテクタ * サイ *” 

320 PRINT TAB(20) ； "(PUSH ANY KEY)" ； INPUTS(1) 

330 MEM$(&HF000,8)=HEXCHR$( M 01 A2 BC AC D 7 B8 A3 20") 

340 MEM$(&HF008,8)=HEXCHR$("20 20 20 20 20 20 53 79") 

350 MEM$(&HF010,8)=HEXCHR$("73 20 C0 2C 00 00 00 00"> 

360 MEM$(&HF018,8)=HEXCHR$("00 00 00 00 00 00 00 00") 

370 MEM$(&HF020,8)=HEXCHR$("21 00 F0 0120 00 CD 3B") 
380 MEM$(&HF028,2)=HEXCHR$("00 C9") 

390 CALL &HF020 

400 MEM$(&HF020,8)=HEXCHR$( M 21 00 C0 01 C0 2C CD 3E") 

410 CALL &HF020 

420 CMT=1 

430 PRINT "END" 

440 END 


►僕が通っている塾では 4 台の MZ - 2000が現役でがんばっています。なんと BASIC で組ま 
れたブログラムで CAI (といえ 冬のかな あ） をやっているのです。 

長谷川彰 （14) 新潟県 


特集 カラーイメージツール 写楽 37 


EAF0 78 F6 10 ED 79 C9 3E FF : EA 


EAF8 

C3 

IB 

00 

C5 

D5 

E5 

3A 

7E : 

15 

SUM ： 

68 

66 

ID 

El 

85 

27 

E0 

18 7603 

EB00 

2C 

57 

CB 

3A 

17 

CD 

55 

2C 

ED 

EB08 

CD 

E2 

2B 

38 

15 

11 

01 

10 

49 

EB10 

21 

00 

30 

06 

08 

CD 

51 

2B 

A8 

EB18 

30 

04 

10 

F9 

18 

0 4 

1C 

15 

8A 

EB20 

20 

FI 

El 

D1 

Cl 

('9 

C5 

D5 

E7 

EB28 

E5 

3A 

7E 

2C 

57 

CB 

3A 

17 

3C 

EB30 

CD 

55 

2C 

CD 

E2 

2B 

38 

15 

75 

EB38 

11 

01 

10 

21 

00 

3 0 

06 

10 

89 

EB40 

CD 

8E 

2B 

30 

04 

10 

F9 

18 

DB 

EB48 

04 

1C 

15 

20 

FI 

El 

D1 

Cl 

B9 

EB50 

C9 

F3 

C5 

22 

8C 

2B 

01 

FA 

55 

EB58 

0F 

ED 

59 

0C 

D9 

C5 

01 

F8 

F8 

EB60 

0F 

3E 

80 

El) 

79 

CD 

6E 

2C 

9A 

EB68 

ED 

78 

FA 

7F 

2B 

CB 

4F 

20 

43 

EB70 

06 

0F 

DA 

68 

2B 

18 

08 

D9 

7B 

EB78 

ED 

A2 

04 

D9 

C3 

68 

2B 

Cl 

83 

SUM ： 

C5 

AF 

87 

87 

32 

97 

BC 

3E C6F8 

EB80 

D9 

Cl 

FB 

07 

E6 

9C 

C8 

2A 

10 

EB88 

8C 

2B 

37 

C9 

00 

00 

F3 

C5 

6F 

EB90 

22 

C7 

2B 

01 

FA 

0F 

ED 

59 

64 

EB98 

0C 

04 

D9 

C5 

01 

F8 

0F 

3E 

F4 

EBA0 

A0 

ED 

79 

CD 

6E 

2C 

El) 

78 

D2 

EBA8 

CB 

4F 

20 

06 

0F 

DA 

A6 

2B 

FA 

EBB0 

18 

08 

D9 

ED 

A3 

04 

D9 

C3 

29 

EBB8 

A6 

2B 

Cl 

D9 

Cl 

FB 

07 

E6 

14 

EBC0 

FC 

C8 

2A 

C7 

2B 

37 

C9 

00 

E0 

EBC8 

00 

F5 

C5 

3A 

7C 

2C 

E6 

03 

85 

EBD0 

01 

F8 

0F 

KI) 

79 

CD 

6E 

2C 

D5 

EBD8 

3E 

0F 

DB 

F8 

0F 

38 

F9 

Cl 

21 

EBE0 

FI 

C9 

C5 

D5 

IE 

05 

01 

FB 

73 

EBE8 

0F 

ED 

51 

3 A 

7C 

2C 

KB 

03 

18 

EBF0 

F6 

1C 

0E 

F8 

ED 

7 9 

CD 

6E 

B9 

EBF8 

2C 

ED 

78 

CB 

7F 

20 

19 

CB 

DF 

SUM ： 

19 

A9 

DE 

E7 

F7 

DA 

0D 

F9 32D4 

EC00 

47 

20 

F6 

E6 

98 

2 0 

02 

18 

15 

EC08 

18 

CD 

C9 

2B 

ID 

20 

D7 

37 

24 

EC10 

CB 

67 

28 

01) 

3E 

01 

18 

09 

C7 

EC18 

0E 

F8 

3E 

DO 

ED 

79 

37 

3E 

EF 

EC20 

80 

D1 

Cl 

C9 

C5 

D5 

CD 

55 

97 

EC28 

2C 

CD 

6E 

2C 

0 1 

00 

00 

16 

AA 

EC30 

08 

3E 

0F 

DB 

FR 

07 

30 

0B 

6A 

EC38 

0B 

78 

B1 

20 

F4 

15 

20 

FI 

6E 

BC40 

37 

3E 

80 

D1 

Cl 

C9 

F5 

C5 

0A 

GC48 

3A 

7B 

2C 

E6 

03 

01 

FC 

0F 

D6 

EC50 

ED 

79 

Cl 

FI 
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Xlturbo で 3 □デザインに挑戦 

トリフオニーで立体のモデリング 


形のある立体をデザインするには，平面図やイラストを描<のとはまつだ<違つだ手 
法が考えられます。今回は3次元ソフトトリフオニーの開発に参与しだ英氏に，立体 
図形のモデ U ンヴの手法について実践的に解説してもらいましよう。 


三次元グラフィックとトリフオニー 


三次元グラフィックによるデザインツー 
ルともいえるのがこのトリフォニーです。 
Xlturbo 専用というのがちよっと残念です 
が，なかなかにユニークなソフトウェアと 
いえるでしよう。 

一般に三次元グラフイックといっても， 
種々の設計に利用する CAD (キヤド），テレ 
ビや映画で用いられる CG など，その分野 
はいろいろあります力す，産業で用いられる 
コンピュータグラフイックは目的がはっき 
りしています。多くの場合，仕事の一部な 
いし全部をコンピュータに置き換え，より 
能率を高めるための道具として，用いられ 
ているわけです。 

それに対し，トリフォニーのようなパソ 
コンに おける三次元グラフ イ ックソフトウ 
ェアは，まった〈新しい仕事をすることを 
前提に考えられているといえます。 

トリ フォニーは ひと言でいうと三次元立 
体のモデリングソフトウェアです。モデリ 
ングとは立体図形（サーフ イス モデル）を 
作成していくことです力 5 ，もちろん単純に 
作成するだけではなく，立体の形状に検討 
を加えながら立体の切り貝占りをしたりする 
編集機能を含みます。要するに立体感のあ 
る図形を描くときに便利な道具なのです。 

一般的なグラフイ ック ツールと違うのは 
実際の描画はコンピュータが行ってくれ 
るということです。ユーザーは図形そのも 


のを考えるだけでよいため，その人のデザ 
インの技量はあまり影響しません。もちろ 
ん，絵ごころのある方なら，よりこのソフ 
卜を使いこなし斬新な作品を作ることがで 
きますが，いずれにせよトリフォニーを使 
う上で最も必要なのはパソコンが作成する 
映像が美しいかどうかを評価する眼であり， 
図形を考える頭脳なのです。 

トリ フォニーは いわば，立体図形のヮー 
ドプロセッサであり，その編集機能を通し 
て，自由に立体図形を推考していくことが 
できます。 

トリフォニーの表示モデル 

さて，立体をコンピュータ画像として表 
示するためにはさまざまな手法が考えられ 
ており，これらのうちどのような表示技法 
を使うかで大きくその表示品質が変わりま 
す。トリフォニーでは次のような表示方法 
を組み合わせて使うようになっています。 
ワイヤ フレーム 

線画モデルです。立体の輪郭だけを表示 
します。トリ フ ォニーでは通常の操作では 
ヮイヤフレーム 表示を利用して おり， 最も 
短い時間で表示します。 

サーフイスモデル 

サーフイスモ デルはワイ ヤフレームと比 
ベて一歩進んだ表示方法で，隠面処理を行 
います。見える面だけを表示するわけです 
が，トリ フォ ニーでは，立体の作成中， キ 
ーボー ドの H キーを 押す と いつでも隠面処 


理表示を行います。この表示方法では面ご 
とに色の細かい指定はできませんが，特定 
の1色（タイルパターン可）で着色するこ 
とはできます。デフォルトでは青い面に白 
い輪郭が表示されます。 

レンダリングモデル 

ここでは面ごとに着色された立体表示を 
レンダリングモデルと呼んでいます。本来 
この表示方法はサーフイ スモ デルのバ ソエ 
ーシヨンですが，立体を作成していく際に 
着色という手順を必要とするため操作を分 
けています。キーボードの R キーを押す}: 
着色された立体を表示します。輪郭線の才 
ンオフが可能です。 

多くの場合， レン ダリ ング モデルの表示 
を目的としますが，白黒プリンタに印刷す 
るだけなら，ワイヤフレームやサーフイス 
モデルのほうがよい場合もあります0 

さて，立体といえばあの「立体映像セッ 
卜」が思い出されるところですが，この卜 
リ フォニーでは 前記の3 つの 表示モデルと 
組み合わせて利用できる立体表示モードが 
あります。 

立体映像モード 

このモードは一般に起動時に指定します 
が，起動後でもコマンドにより変更が可能 
です。 Xl / Xlturbo 用の立体映像セット （C 
Z -8 BR 1) を接続して この モードにすると， 
立体映像セット付属の立体スコープを通し 
て，作成した立体が画面から手前に飛び出 
してきたり，ブラウン管より奥に入り込む， 
立体感のある画像を作ることができます。 
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一旦このモードに移行すると，ワイヤフ 
レーム，サーフイスモデル，レンダ'リング、 
モデルと も ステレオ 状態になり，立体 スコ 
ープを装着したまま立体を作成していくこ 
と もできます。 

ただし，このステレオモードでは右目用 
画面ぉよび左目用画面を別個に描画するた 
め，1画面の解像度は横640ドット x 200ラ 
インになります。また立体映像セットを接 
続しないでこのモードにすると，画面がち 
らちらします。 

立体の編集 


トリフォニーでは，立体の編集をする際 
に，その対象となるデータは3段階に分け 
られます。まず，すべての立体図形はひとつ 
または複数の部品（物体/オブジェクト）か 
ら成り立ち，オブジェクトは同様にひとつ 
または複数の面（ポリゴン）から成り立っ 
ています。さらにすべてのポリゴンは点（ポ 
イント）の組み合わせから成り立っている 
といったぐあいです。これらの立体の構成 
要素はそのまま編集単位となっており，す 
ベての編集操作はポイント•ポリゴン•才 
ブジェクトのいずれに対しても（ほぼ）同 
じ操作になるように考慮されています。こ 
れは非常にシンプルですが，なかなか強力 
で，多くの機能を実用的に組み合わせて使 
うことができるわけです。 

編集モードを切り換えるには，スペース 
キーを押します。押すたびに，ポイント— 
ポリ ゴン— オブジェクトと編集モードが 
切り換わっていきます。当然，現在どの編 
集モードであるか，確認する必要がありま 
すから，カーソルの形が次のように変化し 
ます。 

ぐ編集モード〉 くカーソルの形〉 

ポイントモード： + 

ポリゴンモード： △ 

オブジェクトモード： □ 

また，画面右上に表示されているガイド 
ラインにも編集モードが表示されます。 

次に編集のために必要なのが「ア フェ ク 
卜 j と呼ばれる操作です。編集モードを変 
更しても，実際にはどの物体（または面 • 
点）を指しているのかわかりませんから， 
なんらかの方法で特定の物体（面•点）を 
選択してやらねばなりません。このような 
操作のために，記号キーが割り当てられて 
おり，次のような作業が簡単にできるよう 
になって います。 ア フェ タトすると カー ソ 
ルは赤色となり，かつア フェ タトしたポイ 
ントから前後の頂点に向かって点線が引か 


れます。 

+: 次のポイントを選択する 

-: ひとつ前のポイントを選択する 

*: 次のポリゴンを選択する 

/: ひとつ前のポリゴンを選択する 

Z : 次のオブジェクトを選択する 

X : ひ！:つ前のオブジェクトを選択 

する 

ピリオド：最も カーソル 位置に近いポイン 
卜を選択する 

=: 同一座標の異なるポイントを選 

択する 

たとえば，ひとつの立方体があるとき， 
それをコピーして2 つに する手順は次のよ 
うになります。 

1) スペースキーを押して，編集モードを 
オブジェクトモード（□カーソル）にす 
る。 

2) Z キーなどを利用して，立方体にアフ 
ェクトする。 

3) カーソルキーを移動し，コピーしたい 
位置を決める。 

4) COPY キーを押す。 

これで，その位置に立方体をコピーするこ 
とができます。これは，コピーなどの編集 
操作だけでなく，立体の回転•移動といっ 
た処理においてもまったく同様で，編集モ 
ードを決定し，アフェタトしてから，その 
処理を行うと，指定した部分にだけ影響を 
及ぼします。 


立体作成作業の実際 

それでは実際に立体のモデルを作成する 
過程を順を追って見てみましよう。素材と 
していかにも トリ フォ ニーが 得意としそう 
な「ケン玉」を取り上げてみました（図1)。 
ここでは，画面モードを 640 X 400 とし，（ス 
テレオでない）モノラルモードで作業して 
いきます。 

トリフォ ニーでの 作業はマウスを使い， 
断面図を入力するところから始まります。 
気に入った形になれば，そのデータを フロ 
ツ ピー デイスタにセーブしておきましよう。 
セーブしないで作業することもできます力 5 '， 
途中で気に入らなくなり，やり直す場合も 
多いため，ときどきセーブしておくのがコ 
ツです。 

断面図から，回転体を作成するには，フ 
アンクシヨン キーの5番 （ F 5) を押してか 
ら，次のように入力します。 

command>rotate 12,0 
rotate は回転体を作成する命令です。スぺ 
ルが長いので， rot と省略して入力すること 
もできます。作成した3つの回転体を組み 
合わせれば，作業のほとんどは終わりです。 

ケン玉の場合には，別々の断面図から作 
成された3つの回転体（部品）を組み合わ 
せ，着色するだけなので，1〜2時間もあれ 
ば完成するでしょう。まったく初めての方 


三次元のデザイン感覚を 


立体的なものをデザインするというのは何か 
と難しいものだ。たとえば，かっこいいメカの 
デザインを考えるとしよう。男の子ならたいて 
いやったことがあると思うが，ノー トに未来の 
車や宇宙船や戦闘機や光線銃やモビルスーツな 
んかを描いたりするわけだ。しかし一般的にい 
って，こういう絵というのはひとつの決まった 
方向から見たイメージとしてしか考えられてい 
ないことが多い。べつに実際に作られるわけで 
はないから，二次元の世界で満足していればよ 
いのだが，実践的なデザイン感覚を磨くために 
は，やや疑問を感じないわけでもない。 

私的な話で申しわけないが，私は学生のころ 
は建築の図面等を引いていたりしたのである。 
いろいろと設計の課題が出たりして，簡単なェ 
スキース （デザインの スケッチ みたいなもの） 
から平面図や立体図なんかを起こして，う一ん 
これはカッコイイのができるなんて思い込むの 
だ。ところが困ったことに，そいつを模型など 
にしてみると，こんなはずでは……ということ 
になる。イメージしていたものと，実際に設計 
したものの違いに気づくのである。つまり，自 
分がイケルと思っていたのは平面上のイメージ 
でしかなかったということだ。で，設計する側 


からしてこんな調子だから，それを見せられる 
ほうも簡単にだまされる。広告のマンションが 
カッコイイからといって，それはカッコヨク見 
えるアングル（それも広角レンズで撮られたよ 
うな架空のアングルだったりする）で見せられ 
ているだけなのだ。 

さて，建物や車に限らず，どんなものでも模 
型を作ってデザインの検討というのがなされる 
わけだが，コンピュータグラフィックを使えば， 
この部分をシミュレートするのにけっこう役に 
立つはずと期待している。形のあるものをデザ 
インする場合，イメージを表現する作業（グラ 
フィックエディタなどを使う）と，模型作りに 
相当するシミュレーションをリアルタイムに行 
うことができれば，人間の立体をデザインする 
能力は飛躍的に向上するのでは，なんて思った 
りするのである。 

もっとも，視点を限定すること(こよって架空 
の空間にリアリティを持たせる場合も多い。マ 
ンガやアニメ，ゲームソフトなどもそうだろう。 
ゼビウスの空中戦が丨平面上での戦いであるこ 
とに気づかない感覚も大切なのである。ところ 
で，花形満の髮形をモデリングするにはどんな 
ソフトウエアが必要だろうか。 S . S . 
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にはいささかむずかしい素材だとは思いま 
すが，比較的簡単で楽しい形のひとつです。 

立体映像セットを接続し，立体像でレン 
ダリングしてみるととてもパソコンで作成 
した映像とは思えないでしょう。重量感が 
あり，金属でできているような錯覚を受け 
るほどです。 

ケン玉の例でもわかるように，トリフォ 
ニーではマウスとキーボー ドによる コマン 
ド入力の2種類の操作を組み合わせて用い 
ます。細かい位置設定や移動などは， マウ 
スのほうが便利です力す，多くの処理を正確 
に行う場合には コマン ドのほうが強力のよ 
うです。用意されているコマンドのうち主 
なものとして は 次のようなものがあります。 
square 

正方形，長方形を作るコマンドです。こ 
のように長いコマンド名は頭の2 ~ 3文字 
を取って省略することができます 。 square 
は sq と省略できます。 
circle 

正多角形を作成するコマンドです。トリ 
フォ ニーでは曲線を扱う こ とができないた 
め，円などは16角形や24角形で代用するこ 
とになりますから正多角形を作成するコマ 
ンドですが， circle というコマンド名にな 
図1 ケン玉のモデリング 


っています。 

正多角形だけでなく，扇型を作成するこ 
ともできます 0 circle コマンドではポリゴ 
ンを作ります。 

rotate 

面（ポリゴン）から回転体（オブジェク 
卜}を作成するコマンドです。ドーナツ型 
や球のほかにもワイングラス型などを作成 
するのに便利なコマンドです。ケン玉を作 
成する際にはフルに利用しています。この 
コマンドは何角形の回転体として展開する 
か指定することができます。また，回転を 
途中で打ち切ることができるので，ドーナ 
ツ型の一部分だけを取り出して， C 字型に 
することも可能です。 
sweep 

面（ポリゴン）に厚みをつけてオブジェ 
タトにするコマンドです。文字に厚みをつ 
けて立体文字にしたりする際に非常に便利 
なコマンドです。厚みをつける際に拡大縮 
小率を指定できるので，ピラミッド型（角 
錐）にすることもできます。 
shade 

光源の方向を指定し，その方向から平行 
光線が当たっているものとして，面と平行光 
線のなす角度に応じて，指定したパレット 


の中から色を選び，面に色を設定するコマ 
ンドです。1面1面色をセットしていくこ 
ともできますが，水色や青，または白黒な 
ど同一系統の色でグラデーションを指定し 
ておくと，簡単にそしてリアルに着色して 
くれます。非常に有効なコマンドです。部 
品ごとに指定を変えることもできます。 

以上のほかにも数多くの コマンドが あり 
ますが，たとえば circle コマンドで 円を作 
り，それを sweep コマンドで 厚みをつける 
と，それだけで円柱（多角柱）や円錐（多 
角錐） を 作成することができるなど，これ 
らの コマンドを 組み合わせるだけでも複雑 
な形を作ることができるでしよう。 

また，これらの基本コマンド以外に，立 
体の移動 • 拡大縮小 • 回転などを行う座 
標変換 （ トランスフォーム）機能がありま 
す。この機能は表形式にまとめられており， 
キーボードの ROLL DOWN キーを押すと 
いつでも画面に表示させることができます。 
カーソルキーと数字のキーを利用して，こ 
のテーブルに数値を書き込み， T キーを押 
すと，そのテーブルに設定した値に従った 
座標変換操作を加えることができます。 

なお， 3 D モデリング機能に加えてペイン 
卜機能もあります。このペイントモードは 



部品 I 
先端部 


部品2 
大皿小皿部 


部品3 
グリップ 


ケン玉を3つの部品に分解し， 
それぞれ断面図をマウスで入力， 
回転体コマンド （ROTATE) を用 
いる。 ROTATE 12, 0の 12は360 
度を12等分して30度ずつひとつ 
の面を作成することを示す。〇 
は中心線から面を発生しない指 
定〇 



醺 


部品の向きを合わせ.マージ 
する。部品の回転にはトラン 
スフオームテーブルを用いる。 


くワイヤ フレーム モデル〉 

部品丨，3にォブジェクトモ 
ードでアフエクトし，マウス 
を用いて組み合わせる。 
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基本的には通常のぉ絵描きソフトウヱァと 
大差ありませんが，特に 3 D モードで作成し 
た画像の色を変更するための機能が充実し 
ています。なかでも特定の色の部分だけを 
描画対象にするバックグラウンドモードを 
使うと，赤+白のタイルパターンで作成さ 
れている部分を青+白のタイルパターンに 
変更することなども簡単にできます。この 
機能はブラシ，ボックス，ラインなどすベ 
てのファンクションと組み合わせることがで 
きます。 3 D モードで用いるカラーパレット 
の変更もこのペイントモードで行います。 

実用例 

-_ 

トリフオニーはユニークなグラフイック 
ツールで すが，実際の用途は い 〈つかの種 
類に分かれるようです。 

ひとつは，トリフォニーを三次元データ 
作成用のモデリングソフトウェアとして， 
ソフトウェア作成，研究•実験などのため 
に利用されている場合です。実際，トリフ 
ォニーの三次元データは HuBASIC と同一 
のデイスクフオーマットで，かつアスキー 
形式で格納されていますから， BASIC プロ 
グラムから簡単に読み出し，他の用途で利 


用することができます。 

しかし，やはり多いのはなんといっても 
挿絵やイラストなどに利用しているケース 
でしよう。立体図形を組み立て，それをプ 
リンタで印刷するだけでも絵の巧拙を気に 
することなく，気のきいたイラスト作成が 
できますから，さまざまな利用ができます。 
今回紹介したヶン玉は比較的作りやすい素 
材ですが，これを手描きで描こうと思った 
ら大変です。内容によってはこのトリフォ 
ニーを使ったほうがはるかに能率的だとい 
えるでしよう。実際に雑.誌のイラストで利 
用している例もあるそうです。 

また，トリフォニーで部屋のレイアウト 
を入力し，見取り図の画面写真を撮影し， 
スライドに起こして利用するというのはど 
図2トランスフオームテーブルの機能 


Or f 9 in 
S ；7 .e 7, 
Ro t m 
Move 

K 

■K 

100 

V 

0 

100 

0 

0 

z 

0 

100 

0 

0 

Eye 

0 

0 

-1000 


1000 

1000 

-1000 


input : 一 


うでしょう。設計に利用できるほどの精度 
はありませんが，手描きとはひと味違いま 
すし，表示アングルも自由に選べます 0 
トリ フォニーは 立体の モ デリング能力が 
優れており，今までのパソコンソフトでは 
行うことのできなかった三次元処理を行 
うことができます。また，教育的な見地 
からも立体感覚を養い空間図形の把握力を 
高めることができるのではないでしょうか。 

ハ。ッ ケージには詳細な マニュアル （約 200 
ページ）も付属しており，第1章では基本 
操作を実習形式で理解するようになってい 
ます。はじめての方も短時間で操作を理解 
することができるでしょう。 

XI turbo 用 SD 版 16,800円 
アーマット 0045 (9 II )7427 


Origin :回転•拡大縮小時の基準点を示す。 

Size : 拡大 • 縮小率を％で指定する。 

Rot : 回転。 X , Y ， Z の項はそれぞれ X 軸 ， Y 

車由， Z 軸（に平行な軸）を中心に回転す 
る角度を Xo 度単位で指定する。 

Move :移動する距離を設定する。 

Eye : 視点位置。 Z 座標の値により，パースの 

強さを変えることができる。 

Light :原点から見た光源の方向。 shade コマン 
ドで有効になる。 


•図形印刷はすべて CZ -8 PC 1 による白黒ハードコピー 


⑧ 


⑩ 


⑪ 



H キーを押し，隱面処理を行 

う。 


上図はタイルバターンを用いた濃 
淡パレットを作成， SHADE コマン 
ドで陰影を付加したあと，輪郭つ 
きでレンダリングしたもの。描画 
時間約5分。 


ケン玉をやや傾けて表示する。回 
転*移動•拡大•縮小などはトラ 
ンス フォームテーブルに 数値を設 
定して T キーを 押す。 
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クラフィック画像の冒険 


TTYi X 6 的〇〇グラフィックデータ考 

illiiiiJ 1 広 く / J 、さく豊かなデ—夕 

あなだの画像データは死蔵されていませんか。51 2 K バイトものデータに圧倒されだ 
ことはありませんか。残念ながら X 68000 のデータ環境はまだまだ整備されていませ 
ん。夜明け前のグラフィックデータについて一緒に考えてみましよラ。 


Kato Masava 

加藤賢哉 

Nakano Syuichi 

中野 jf - 


孤高の Z’sSTAFF 

_ 

X 68000 用にようやく発売された Z’sST 
AFF PRO -68 K はまさにプロの名に恥じぬ 
秀作といえます。ほんの4，5年前にはグ 
ラフィックに使用できるようなソフトウエ 
アはパソコンには皆無といってよく， PDP - 
11とグラフィック端末を使った CMU PA 
INT SYSTEM 1 ) などはパソコンにとって 
夢のソフトでした。同システムの， CAD では 
なくアーティストを対象に「絵」を描くシ 
ステムを目指した，その操作性と対話性は 
並はずれていたといってよいでしょう。し 
かし，いまやその能力/操作性を遙かに超 
えるソフトがパソコンにも現れるようにな 
ったのですから感慨もひとしおです。 

しかし，無敵の Z ’ sSTAFF にも問題点が 
ありました。すでに前回のダラフィック特 
集でも懸念していたことですがグラフィッ 
クデータの仕様が BASIC と違うのです。つ 
まり Z ’ sSTAFF では BASIC などで作成した 
データは取り込むことができず， Z’sSTA 
FF で作ったデータは BASIC などで使用す 
ることはできません。その代わり， PC - 98 
01や PC -88 VA で描いた Z ’ sSTAFF のデー 
夕はなんら手を加えることなく読み込めま 
すから 「 PC -9801 または PC -88 VA と X 680 
00を持っていて，かつ両方で Z ’ sSTAFF を 
使っているユーザー」はきっと泣いて喜ぶ 
ことでしよう。 


Macintosh がグラフイツクデータやテキ 
ストデータで高い汎用性を示しているのは 
メーカーが最初から MacPaint，MacWri 



G-RAM を保存して Z’sSTAFF を起動 


te という標準ソフトとフォーマットを提供 
し，各ソフトハウスがそれを尊重したから 
にほかなりません。 

X 68000 の場合，かろうじて標準と呼べ 
るものは福袋デイレクトリに隠されていた 
img _ save 関数のベタフォーマットだけで 
しょう。確かにあまり利口な方式とはいえ 
ない面もありますが，あるからには尊重す 
るのが筋というものです。グラフイックに 
限ったことではありません力 ? ，どうも日本 
の メーカー やソフトハウスのデータに対す 
る認識の低さには頭を抱えさせられます。 

BASIC to Z sSTAFF 


マシンの性格上， X 68000 ユーザーのグラ 
フィックに対する関心は非常に高いものが 
あり，すでに多くの X 68000 ユーザーがレイ 
トレーシングなどで作った画像データなど 
を持っていると考えられます。それではレ 
イトレーシングで作った絵やこれまでカラ 
—イメージユ ニッ トから取り込んだデータ 
はどうすればよいのかという点に移りまし 

ょ5〇 

これらはふつう*. GL 3 のよフなフアイ 
ルとして存在するはずです。これをフアイ 
ルコンバートしてやればよいのですが ， B 
ASIC でやるとなると結構たいへんです。 

まず， Z’sSTAFF のマニュアルを見ると， 
なんと垂直型 G - RAM 構成の X 68000 に対 
して水平型のデータを書き込むという仕様 
となっています。これでは，まともなデー 
タコンバートはとても割が合いません。と 
なれば X 1時代からの必殺技， G - RAM 経 
由コンバートの線から攻めてみましょう。 

ありがたいことに Z ’ sSTAFF はスペース 
キーを押しながら起動すると画面をクリア 
しません。まず， BASIC を起動し G-RAM 
に絵を読み込むか，コマンドモードから gl 
• x 2> を 使って， とにかく G - RAM にデータ 
を送ります。すかさずリセットし，スペー 
スキーを押したまま Z ’ sSTAFF を起雪力して 
ください。 

この方法で img _ save されたすベてのデー 


夕を Z ’ sSTAFF に転送することができます。 
256 X 256 モードの絵は 512 X 512 のモードで 
読み込んでおいて Z ’ sSTAFF 側で拡大する 
とよいでしよう。 

ZsSTAFF to BASIC 


さて，こうして 32 ビット機並みのツールを 
使って作り出されたグラフィックも，ただ 
ながめているだけでは価値は半減してしま 
います。これをプログラム上から利用でき 
てこそ，正しいグラフィックツールたり得 
るのです。また， Z’sSTAFF ではできない 
画像処理を加えたいといった場合 3 >にもデー 
夕を BASIC 上で扱えるようにする必要が 
あります。 

さりとて今度はさっきのように単純に G - 
RAM 経由という手も使えません。 X-BA 
SIC では画面のモード設定をするとき，必 
ず画面がクリアされてしまうのです。これ 
は BIOS ROM の仕様によるものですから 
納得できなくても従ったほうがよいでしよ 
う。かといって外部関数で直接 I / O を操作 
するのは BIOS に対して失礼に当たります。 

ということで結論， BASIC を使わずに 
G-RAM のデータをディスクにセーブしま 
す。 リスト1は コマンドモードからグラフ 
ィックをセーブする命令です。 1987 年 9 月 
号のマシン語入カツールで入力してくださ 
い 0 このプログラムは同 9 月号の gl.x と対 
になるもので，『それゆけ X ファミリー』誌 
に掲載されたものと同じです。 
gs FILENAME 

というぐあいに使ってください。 

具体的な操作手順は，まず Z’sSTAFF を 
立ち上げデータをロードする 0 メニューバ、 
一やウィンドウはすべて消し，リセットす 
る。別のディスクから COMMAND.X を起 
動し， gs.x を使ってセーブする（拡張子は 
*.gl3 )， 以上のようになります。こうし 
てセーブされた画像は BASIC の img_load 
関数で自由に読み込むことができます。こ 
れでやつと Z’sSTAFF と BASIC が仲よし 
になったわけです。 


42 Oh ! X 1988.2. 

















サンプルで作った絵本 ( GT - 3000で入力） 


XB 8000の醜データ縮小法 

聞くところによると X 68000 ユーザーの 
5人にひとりはカラーイメージユニットを 
購入しているとのことです。しかし，現状 
ではとりあえずテレビなどの画像を取り込 
んで遊んでみるといったことくらいにしか 
使えそうにありません。というのも，画像 
データが 大きいので フロ ッ ピーディスク 1 
枚に2 つのデータ しか入らないからです。 

確かに 512 K バイトの映像は並ぶものがな 
いほど綺麗です。しかし，スライムを殺す 
のに丁 ILTWAIT を使う必要はありません。 
とりあえず絵が見えればそれでよい，とい 
った状況もあるのではないでしょうか。た 
とえば，ビデオテープのインデックスを作 
成したい，簡単な画像データベースを作り 
たいといった場合には フル サイズのデータ 
は必要ありません。そこそこに綺 M な，サ 
イズの小さなデータのほう力 ? 望ましいので 
す。そこで，1枚のディスクに「できるだ 
け多くの，できるだけ綺麗な，できるだけ 
汎用性のある」絵をフアイリングする方法 
について探ってみたいと思います。 

まずデータ圧縮というものが考えられま 
す。しかし，カラーイメージ ユニット など 
を使って取り込んだデータはそうやたらに 
小さくはなってくれません。ディスク1枚 
にどれだけのデータを入れることができる 
かという段階では，データが2〜3割小さ 
くなったとしても無意味ですし， GT - 3000 
で取り込んだ絵などは簡単には圧縮できま 
せん（逆に大きくなることもあります)。 

そこで圧縮ではなくデータそのものを加 
エして物理的に小さくしてやることを考え 
てみましょう。まず，全画面のデータなら 
1/4画面に，65536色の画面なら色数を少な 
く，というぐあいです。ここでは暫定的な 
フォーマットとして BASIC の img_load で 
読み込むことのできる形式の内， 256 X 256 
ドット，256色としておきましょう 4 >。 

256色というと少ないようにも思えます 
が，カラーイ メー ジ ユニットの 256色取り込 


みを思い出してはいけません。あの取り込 
みは最大256色というだけで，実際には100 
色程度しか画面に表示されていないのです。 
256色をちゃんと使えばかなり綺麗な絵を残 
すことができると思われます。 

画像取り込みを行い，画面上であれこれ 
画像データをいじっていると，単純に下位 
ビットを切っていっても4096色 （ RGB 各4 
ビット）あたりまでは，ほとんど画質に影 
響が出ないことがわかりました。そこでま 
ず無条件に画面上の点に対し an d & B 1111 
011110111100をとってやります。この時点 
で画面上で使われている色数を調べるとだ 
いたい1000色くらいになるはずです。これ 
以上ビットを切っていっても絵を悪くする 
だけですから，このデータを256色に変換 
することにします。 

最良の方法は画面上で使われている色の 
うち上位256色を取り出し，そのほかの色は 
その色に近い色2色で確率的に RGB のビッ 
卜構成が同じになるようにタイリングして 
やるというものです。しかし，これではい 
ささか処理が重くなりすぎますのでタイリ 
ングは諦め，できるだけ近い色に置き換え 
てやるという方法をとることにしましよう。 
リスト2は完成したプログラムです。 

1) 取り込んだ画像を整える 

2) 4096色に変換する 

3) 色 データを 取り込む 

4) 多い順にソートする 

5) 色を置き換える 

6) 画面/パレットデータを保存する 
という手順となっています。プログラムは 
短いものですがループの山となっています 
のでインタプリタではおそろしく時間がか 
かります。できればコンパイルしてお使い 
ください（それでも約10分かかります)。 

ただデータだけを作ってもしかたないの 
でサンプルとして簡単な画像データベース 
のようなものを作ってみました。といって 
もデータの登録も条件検索も削除もできま 
せん。ただメニューから選んで見るだけで 
す。それだけだといかにも芸がないので， 
画像ファイルと同じファイル名で抗張子が 
*. tdt のファイルがあればテキストデータ 
も表示するようにしました。テキストデー 
夕は62字，6行以内でエディタを使って作 
っておいてください。 

X - BASIC ではプログラム中でコマンド 
の実行はできませんから，起動時にバッチ 
フアイルでデイレクトリをフアイルに落と 
してやります。すなわち，このプログラム 
を起動するときには， 

dir *. gm 0 ク directory 


dir *. tdt >tdir 
basic sampleloader 

といったバッチを実行するとよいでしょう。 

最後に 

さて，今回取り上げてみた 256 X 25 6,256色 
というのはひとつの試論にすぎません。し 
かし，中森氏が XBASIC 入門でも取り上 
げているように，256色というのは半透明機 
能やパレットの回路構造からして実におい 
しいモードではないでしよう力*。65536色だ 
けが X 68000 の持ち味ではありません。 

そろそろメーカーさんにも本気でデータ 
の標準フォーマットを決めてもらわねばな 
らない時期だと思われます。今後はグラフ 
ィックだけでなく画面イメージ全体を対象 
としたデータフォーマットについても検討 
が必要となって〈るでしょう。なにぶん， 
画面制御が豊富ですから標準化もたいへん 
です。しかし，このようなコンセプトでマ 
シンを開発した以上，メーカーにもなんら 
かの考えはあるのでしょう。将来性で売れ 
ているマシンですから，ユーザーの期侍を 
褽切らないでほしいものです。 

1) カーネギーメロン大学で開発されたペイントシ 
ステム。いわく，「このシステムがあったらピカ 
ソは抑辟症にかからなかっただろう」。 

2) Oh ! MZ 1987 年9月号参照。 

3) Z ’ sSTAFF では拡大縮小で色の混ぜ合わせなど 
は行わない。そのため綺腿な縮小などをしたい 
ときには BASIC などでプログラムを組むしか 
ない。ちなみに FM 77 AV 用 P - EDIT ではちゃん 
とやっている。 

4) このフォーマットでは1枚のディスクに最大19 
枚のデータが格納できる。 


リス M gs.x 


eeee 

48 

55 

00 

00 

00 

00 

00 

ee 

9D 

0008 

00 

00 

00 

00 

00 

00 

00 

84 

84 

0010 

ee 

ee 

ee 

00 

00 

00 

00 

00 

00 

0018 

00 

ee 

ee 

0 4 

00 

00 

ee 

00 

04 

0020 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0028 

00 

00 

ee 

ee 

00 

00 

00 

00 

00 

0030 

ee 

ee 

ee 

00 

00 

00 

00 

00 

00 

0038 

00 

00 

ee 

00 

00 

ee 

00 

00 

00 

0040 

3F 

3C 

ee 

20 

52 

8A 

2F 

0A 

B0 

0648 

FF 

3C 

6C 

8F 

22 

00 

6B 

18 

CB 

0050 

2F 

3C 

ee 

08 

00 

00 

2F 

3C 

DE 

0058 

00 

ce 

ee 

ee 

3F 

01 

FF 

40 

3F 

0060 

4F 

EF 

ee 

0A 

6B 

OA 

FF 

00 

BC 

0068 

48 

79 

00 

00 

00 

3C 

60 

06 

63 

0070 

48 

79 

00 

00 

00 

62 

FF 

09 

2B 

0078 

58 

8F <FF 

00 

0D 

0A 

20 

83 

A0 

SUM ： 

EC 

39 

5B 

C5 

2B 

3D 

46 

B4 96FD 

0080 

74 

83 

40 

83 

43 

83 

8B 

82 

8D 

0088 

AA 

83 

49 

81 

5B 

83 

76 

83 

CE 

0090 

93 

82 

C5 

82 

AB 

82 

DC 

82 

E7 

0098 

B9 

H2 

FI 

81 

42 

OD 


ex 

10 

00AO 

00 

ee 

0D 

0A 

20 

83 

74 

83 

B1 

00A8 

40 

83 

43 

83 

8B 

82 

C9 

8F 

EE 

eeBe 

91 

82 

AB 

8D 

9B 

82 

DF 

82 

CC 

00B8 

DC 

82 

B9 

82 

FI 

81 

42 

0D 

5A 

eece 

0A 

OA 

ee 

00 

00 

2A 

ee 

08 

46 

eecs 

00 

00 

ee 

00 

00 

00 

ee 

00 

ee 

00D0 

00 

ee 

ee 

00 

00 

00 

ee 

ee 

00 

00D8 

00 

00 

ee 

ee 

00 

oe 

00 

ee 

00 

00E0 

00 

00 

ee 

00 

00 

00 

00 

00 

00 

eeE8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00F0 

00 

00 

ee 

00 

00 

00 

00 

00 

00 

00F8 

00 

00 

ee 

ee 

00 

oe 

oe 

00 

00 

SUM ： 

21 

9B 

F3 

A3 

C5 

C7 

45 

3A 7719 
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リスト 2 256色変換 


10 /*x:16-255 y ： 0-24O 
20 screen 1 9 3 9 1 9 1 
30 console "0 

40 int x | y , z , p( 28800 ) f t v c f e 9 gx,rx t bx 
50 int col(4096 ) 

60 int 81(4096) f s2(4096) 

70 int a,h，d 

80 char g(255) 9 r(255) 9 b(255) 9 cv(65535) 

90 str fnm f k 

100 input "file name** ； fnm 
110 img.load(fnm+ M .gl0 M ) 

120 get(16 f 0,2 55,239 f p) 

130 wipe() 

140 els 
150 print 

160 print ”65536 to 4096” 

170 put(0 f 0 f 239 f 239 t p) 

180 z=&Bllll 011110111100 
190 for x=0 to 239 
200 locate 0 f 0:print x 
210 for y=0 to 239 
220 t=point(x,y) 

230 pset(x 9 y,(z and t)) 

240 next 
250 next 

260 print "make col data" 

270 for x=0 to 239 
280 locate 0,0:print x 
290 for y=0 to 239 
300 t=point(x f y) 

310 k=right$( M 000000000000000 M +bin$(t),16) 

320 gx=val( M &b M +left$(k,4)) 

330 rx=val( M 4b M -Hnid$(k f 6 f 4)) 

340 bx=val( M 4b M +mid$(k f 11,4)) 

350 c=gx 拿 256+rx 拿 16+bx 

360 col(c)=col(c)+l 

370 next 
380 next 

390 print "sort col data” 

400 for t=0 to 4095 
410 bIU + 1 い co 丄 （ t) 

420 s2(t+l)=t 

430 next 
440 sl(0)r2048 
450 sort(1,4096) 

460 for t=l to 256 
470 col(t-l)=a2(t) 

480 next 

490 print "make 256 data” 

500 for x=0 to 255 

510 k=right$<"000000000000000"+bin$(col(x>),16) 
520 g<x>=val("itb”+mid$(k,5,4> > 

530 r (x) =val( M 4b M -fmid$ (k f 9 f 4)) 

540 b(x)=val( M 4b M +mid$(k,13,4)) 

550 next 

560 for x=0 to 239 
570 locate 0 f O：print x 
580 for y=0 to 239 
590 t=point(x,y) 

600 k = right$ ( ,, O00000000000000 ,, + bin$ (t),16) 

610 gx=val( M atb M + left$(k,4)) 


620 rx=val("&b”+mid$(k 9 6 9 4)) 

630 bxrvair&b'+midStk,11 f 4)) 

640 c=gx>256+rx*16+bx 

650 for e=0 to 254 

660 if col(e)=c then h=e : break 

670 next 

680 if e：255 then{ 

690 a=99 

700 h=0 

710 for e=0 to 254 

720 d=abs(gx-g(e))+abs(rx-r(e))+abs(bx-b(e)) 

730 if d<a then a=d:h=e 

740 next 

750 pset(x f y f rgb(r(h)t2,g(h)<2 f b(h)>2)) 

760 } 

770 cv<x+y 本 256>=h+l 

780 next 
790 next 

800 e=fopen(fnro+ M .pdt” ， "c"> 

810 col(0)=0 

820 for t:l to 255 

830 col(t)=rgb(r(t-1)>2,g(t-1)*2,b(t-l)»2) 

840 next 

850 fwrite(col f 256 f e) 

860 fclose(e) 

870 t = fopen ( fnm+” . gm() M ， "c” } 

880 fwrite(cv ， 65536•t > 

890 fc 丄 ose(t> 

990 end 

1000 func sort(11,rr) 

1010 int 1 ， r ， t ， k ， w 

1020 if ll>=rr then return() 

1030 k=sl(rr) 

1040 r=rr 

1050 1=11-1 

1060 repeat 

1070 repeat 

1080 1=1+1 

1090 until si(1)<=k 

1100 repeat 

1110 r=r-l 

1120 until si(r)>=k 

1130 if l>=r then break 

1140 t=sl(l) 

1150 w=s2(1) 

1160 sl(l)=al(r) 

1170 82(l)=s2(r) 

1180 s 1(r) =t 
1190 s2(r)=w 

1200 until 0 
1210 t=sl(l) 

1220 w=s2(i) 

1230 s1(1)=s1(rr) 

1240 s2(1)=s2(rr) 

1250 s1(rr)=t 
1260 s2(rr)=w 
1270 sort(ll f l-l) 

1280 sort(1+ 1,rr) 

1290 return" 

1300 endfunc 


リスト 3 サンブル□ーダ 


10 ジ？ program Sample Loader ; 

30 str n2 f dir(30) f tdir(30) f pra 

40 int t(256) f r,e f f f g,i f f1 f k = 2 , 

50 / 拿 const 

64) int eof1 

70 /* init 

80 color 3 


90 screen 1,2,1,1 
100 console ,,0 
110 window(0 f 0,255,255) 

120 mou8e(4) : mouse(1) 

130 msarea(0 f 0 9 51 1,511) 

140 palet(0 f 32129) 

150 /t begin 

160 locate 42, 1:print" INDEX" 
170 f = fopen(..directory.. 

180 for i:0 to 3:freada(n2,f) : next 
190 color 13 
200 /本 menu 

210 while f reads(n2 f f)<>eof 
220 locate 38，k 

230 freads(n2 9 f) 

240 dir(k)=left$(n2 f 19) 

250 print dir(k) 

260 k=k+l 

270 endwhile 
280 color 7 


m=2 f x,y,yl,bl,br 


: /t key list off 
: /t mouse init 

:/本 BG color 


:/拿 dir read 


:ハ read filename 
：/t disp menu 


290 for r:0 to 5 ：/t under line 

300 locate 2,r 本 2+19 

310 print string!(60, > 

320 next 

330 g=fopen<"tdir","r"> : /t text read 

340 while freads(n2,g><>eof 
350 tdir(m)=left$(n2 f 19) 

360 m=m+1 

370 endwhile 
380 /本 main 
390 while not br 
400 color 7 
410 mspos(xiy) 

420 if (y>32 and y<kM6) and (x>303 - and x<455) then { 
430 msstat(x 9 x f bl f br) 

440 if bl then gload() 

450 locate 38,y¥16 


460 print dir(y¥16) 

470 color 13 

480 if yl<>y¥16 then { 

490 locate 38,yl 

500 print dir(yl) 

510 color 7 

520 } 

530 f1=0 : /t in the menu 

540 } else { 

550 if fl=0 then { 

560 color 13 

570 locate 38 9 yl 

580 print dir(yl) 

590 } 

600 f1=1 : /t out of the menu 

610 ) 

620 yl=y¥16 

630 endwhile 
640 /拿 fin 
650 color 3 


660locate 0 f 0 
670 end 

680 /本 

690 func gload() 

700 e = fopen(dir(y¥ 16) + M .pdt M ) 

710 fread(t f 256,e) : /* n load 

720 wipe() 

730 locate 2,16 

740 print •• ;dir< y¥16 > ; " — : /* data name 

750 for r=l to 255 

760 palet(r f t(r)) ：/t set palet 

770 next 

780 img_load(dir(y¥16)+ M .gm0 M ) :/本 g 一 10 ad 

790 r=0 

800 repeat :/本 text search 

810 r=r+l 

820 until r=m or tdir(r)=dir(y¥16) 

830 if rOra then g = fopen(dir<y¥ 16 >+” • tdt" , "r") 

8‘I0 for i = 0 to 5 

850 if r=m then prs = str ing$ ( 62 • ” } else f reads ( prs , g ) 

860 locate 2,i*2+18 

870 print prs ； chr$(5) :/拿 print text 

880 next 

890 fciosealK ) 

900 endiunc 
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クラフィック画像の冒険 


入 MUUU 保系干囬祀订 

麵 | 幻_フ辦ルワールド 

12月号の黒い X 68000を飾った画面は今回のマンデルブ□集合表示ブ□グラムで作成 
されだものです。ここでは2本の投稿フラクタルヴラフィックをお届けします。複索 
平面に繰り広げられる不思議な幾何学模様をお楽しみ<ださい。 


lijima 1 aaashi 

飯島匡史 

Maruno Shouji 

丸野正治 


「フラクタルって なんの役にたつんです 力*」 
といわれても答えようがない。もともと非 
整数次元空間や複素平面などというものは 
現実社会からはまったくかけ離れたものだ 
からだ。自然界は自己相似に満ちていると 
いったところで，それを CG で表現すること 
にはなんの必然性もない。 

しかし，それでもフラクタル図形は美し 
い。有限の中に無限があり，図形の中に宇 


このプログラムはマンデルブロ集合を描 
くものです。マンデルブロ集合はさまざま 
な雑誌に紹介されていますから知っている 
人も多いと思います。この集合の名前はフ 
ラクタルの名付け親， IBM トーマス • J • 
ワトソン研究所のべノワ.マンデルブロ （Be 
noit Mandelbrot ) の名前から命名されまれ 
た。 

ここでマンデルブロ集合の話をしたいと 
思います。複素数とか複素平面とかの言葉 
がわからない方はここを飛ばしてくださっ 
て結構です。 

ある複素数 C に対して次の式で定義され 
る f 斬化式数列を考えます。 

Zo = 0 

Zn+i = Zn 2 + C 


宙がある。果てしない自己相似の無限連鎖 
はまさに数理世界の曼陀羅と呼ぶにふさわ 
しい。 

結局，なんの役にたつわけでもないが， 
ただ美しい，それだけのために数日間にも 
わたって単純計算を繰り返し，それだけの 
ために外部関数を作らせてしまう。そして 
そんなフラクタルにとりつかれた人たちの 
プログラムをお届けしよう。 （編集室） 


張子を*. FNC に変えます 。 MANDELBRO 
T . FNC を直接入力するときは以前誌上掲載 
したマシン 語入カ ツールを 使っ てくだ さい0 
ア セン ブ 、ラ ソース MANDELBROT . S を入 
力する方は ED.X を 使って ソースをデイス 
クにセーブした あと， コマンドシェルから， 

AS MANDELBROT 
LK MANDELBROT 
REN MANDELBROT . X MANDELB 
ROT . FNC 

とする か， または ビジュアルシェルから 同 
等の操作を行ってください。できた MAND 
ELBROT . FNC は BASIC ディ レクトリに 
置きます。 

次に同じ BASIC デイレクトリにある B 
ASIC . CNF に次の2行を付け加えます。 


XB 8000でマンデルブロ集合を描く 



最初は粗く指定するとよい 


ルダウンメニューが現れます。ここで計算 
描画を行うための定数やモードを決めます。 
初めは計算時間が短くなるように機能設定 
を行って大筋の感触を得，描画範囲を絞り 
込んだあとに計算時間の長い，画像が細かく 
正確になるような指定を行うのがよいでし 
X 1〇 

2) 分解能 

ここではどの位の細かさで表示するかを 
指定します。たとえば128と指定すると画面を 
128 X 128 の長方形に分割して表示します。 
当然大きいほど美しくなります力夂その分 
時間がかかります。 

3) 回数 

これは漸化式計算回数 n を指定するメニュ 
一です。 n が大きいほど画像の細かいところ 
が見えてきますが当然計算時間もかかるの 
で最初は64でいいでしよう。 


このとき， C の値によっては Zn の大きさ 
力 5 ' n の値に関わらずある数を絶対に越えない 
という現象が起こります。このような複素 
数 C の集合をマンデルブロ集合というので 
す。そして，それらの集合を収束の度合いに 
よって色分けして表示してやろうというの 
が今回のプログラムなのです。 

プログラムの入力方法 


まず Human 68 k のシステムデイスタのコ 
ピーを作り， BASIC のデイレクトリに福袋 
から IMAGE . FNC を持ってきます。 

次に MANDELBROT . FNC を入力する 
か， MANDELBROT . S を入力してアセン 
ブル•リンクし，できた実行ファイルの拡 


FUNC=IMAGE 
FUNC = MANDELBROT 
BASIC . CNF を書き換えるにはコマンド 
シェルから 

ED BASIC . CNF 

としてェディタを起動し，書き換えたあと 
に ESC + E とすればセーブされます。次に 
MAND 色定義。 BAS を BASIC から入力し 
て実行すると，色の配列ファイルが自動生 
成されます。あとは MANDMAIN . BAS を 
入力すれば終わりです。 

プログラムの実行 


1) 機能設定 

MANDMAIN . BAS を実行すると画面にプ 


4) 着色 

ここはマンデルブロ描画の際に帯状の画 
像とするかどうか指定するところですが， 
大抵は帯なしでいいでしよう。 

5) セーブ 

ここをクリックすると画面のセーブを行 
います0ファイルネームを聞いてくるので 
拡張子なしで入力してください。拡張子 . GL 0 
が自動的に付加されます。 

ロードルーチンはあり ませんが IMG-LO 
AD (“ FILENAME ”） でロードできます。 

6) 描画 

ここをクリックすると指定した分解能， 
回数，着色が表示されます。やり直すなら 
右クリックして〈ださい。 

OK なら左クリックして複素平面のどのあ 
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たりを表示するか決めます。まず範囲指定 
をマウスでするか，キーボード入力するか 
を決めてください。 

描画範囲の設定 


籲マウス入力 

マウスカーソルを 移動させて描画範囲の 
左下，右上の順にそれぞれ左クリックして 
決定してください。 

初期設定では画面の左下は 一 2 — 1.25 i , 
右上は 0.5 + 1.25 i に設定されています。す 
でに描画を行ってぉり設定をやり直すとき 
は，表示されている部分に対応して座標が 
設定されるので，拡大したい部分をそのま 
ま指定してくだされば結構です。このあた 
りをもっと大きくしてみたいな，という場 
合に直接画面上で指定できます。 

• キー入力 

キーボードから描画エリアの指定を行い 
ます。 

Xmin :左下座標の実数部 
Ymin :左下座標の虚数部 
Xmax :右上座標の実数部 
Ymax :右上座標の虚数部 

上の順序で入力して〈ださい。描画範囲 
の指定が終わると座標変換を行い，描画し 
ます。 

* 再描画 

終了するとべ ルが 鳴り，左 クリック する 
と プル ダウ ンメニューが 完成した図形に才 
ーバーラップするのでセーブするなり設定 
を変えて再描画するなりしてください。プ 
ル ダウンメニューの いちばん右に“再”と 
いう メニューが あります が， ここを クリッ 
クすると前回の描画の色をコントラストが 
つくようにつけ直して再相5画します。 

プログラムについて 


最初 ALL BASIC でマンデルブロ集合を 
計算させてみた結果，きれいな画像を得る 
には軽くひと晚以上時間がかかってしまう 
ことがわかりました。マシン語は68000を少 



拡大を続けるとこうなる 


しかじったことがあるくらいで，ましてや 
浮動小数点演算などできそうに思えません 
でした 。 C コンパイラと 数値演算プ ロセツ 
サが出るまで我慢しようかと思いましたが， 
短気な私は68000のマシン語の本を買ってし 
まいました。 

BASIC からマシン 語ルーチンを 呼ぶ方法 
はいろいろありますが， X - BASIC では外 
部関数として用意しておくというのが普通 
でしよう。そこで今回は BASIC の外部関 
数としてマシン 語ルーチンを 作りました。 
BASIC のメインプログラムの1730行から 
1840行で外部関数を呼んでいます。 
mandelbrot ( a ， b ， c ， d ， e ) 
int a /* 座標の実部の仮数 
int b /* 座標の実部の指数 
int c /* 座標の虛部の仮数 
int d /* 座標の虛部の指数 
int e /* 繰り返し回数 


マンデルブロやジュリア集合とならぶフ 
ラクタル図形の代表がこの自己平方型フラ 
クタルです。 

実はこの図形を得るための f 斬化式はマン 
デルブロ集合の場合とまったく同じものな 
のです。ただ，マンデルブロ集合が式の収 
束しない C の値の範囲を求めるのに対し， 
この集合では式の値自体を求めてプロット 
しています。そして，このときの複素定数 
C の値を変えてやることにより実に多彩な 
模様を持った図形を得ることができるので 
す 。 

入力方法 


このプログラムはすべて X - B A SI C で記 
述されています。フラクタルというのは， 

もとは非常に簡単な式からできていますの 
で，プログラム自体もおそろしく簡潔な形 
ですんでしまいます。できあがった図形が 
再帰的構造を持っているからといって，そ 
のプログラムが再帰的に構成されているわ 



60時間の成果 


仮数，指数のフォーマットは， 
仮数 (1>| X |>0.5) 

符号空 絶対値 (30 bit ) 


31 

30 

29 0 

指数 

無使用 符号つき I 6 bit 

31 16 

15 0 


0が正と負の2つあるなどちょつと変わ 
つていますが，今回はこうしています。詳 
しくは MANDMAIN . BAS の1460行から16 
50行を見てください。 

マンデルプロのプログラムは BASIC でル 
ープを回していますが，計算時間の大部分 
はマシン語部分で費やしています。通常， 
256 X 256 の分解能ですと（繰り返し回数に 
もよりますが）30分から2時間以上になる 
と思います0これはコンパイルしてもそれ 
ほど速くならないでしよう。（飯島匡史） 


けではありません。プログラムは単に多重 
ループと計算式のみであるといってもよい 
でしよう。 

ですから，リストをそのまま打ち込み実 
行させていただけば結構です。ただし，こ 
の自己平方型のフラクタルは実行開始から 
完成までだいたい 60 時間かかります。ほか 
のマシンに く らべ 決して遅いということは 
ありませんが，なにせ最大256回の浮動小 
数点演算処理を 512 X 512 回繰り返さないと 
いけないのですから 16 ビット機とはいえた 
いへんなのです。コンパイルしたり数値演 
算プロセッサをつけると飛躍的に速くなり 
ますが，ここはインタプリタでがんばって 
60 時間かけてみるのもよいのではないでし 
ようか。 

3□表示モード 


せっかく数日をかけて作ったグラフィッ 
クですから，当然できあがるとディスクに 
セーブす るようになっています。 しかし， 
これをそのまま眺めていてもつまらない， 
ということでできあがったフラクタルのグ 
ラフィックを地図に見立て，収束度による 
色の違いを等高線としてこれを立体的に表 
示してみることにしましよう。 

リスト6を見てください。これがフラク 
タルの3 D 表示用プログラムです。テンキ 
一で表示してみたい部分まで四角い枠を動 
かし，リターンキーを押してみてください。 
画面下のエリアに立体化されたグラフイツ 


自己平方型フラクタル 
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クが表示されます。 

では気長に，描画中はテレビを見たり音 
楽を聴いたりして不思議な数学の世界を視 
いてみてください。 （丸野正治） 


Profile 

◊飯島さんは長野県にお住まいの21歳，電子エ 
学専攻の大学生です。 マイコン 歴は約6年。 
今度は科学関係の シミ ュ レーシヨ ン な. どをや 
つてみたいとか。 


U スト1 フンデルフ□色定義 


10 /* マンデルブロ集合色定義ブログラム 
20 dim int col( 1024 ) 


30 

40 

42 

45 

50 

60 

70 

80 

90 

100 

110 

120 

140 

150 

160 

170 

180 

190 

200 

210 

230 

240 

250 

260 

270 

280 

290 

300 

310 

330 

340 

350 

360 

370 

380 

390 

400 

410 

430 

440 

450 

460 

470 

480 

490 

500 

510 

530 

540 

550 

560 

570 

580 

590 

600 

610 

630 

640 

650 

660 


float logn,b=0.32# 
for n=0 to 4 

n0=pow(2,n+6) 
logn=log(n0) 

print using "あと ## です * ";5-n 
for i=l to n0-l 

colh=(-192«0.8#*log(i+0.9#)/logn+560) mod 192 
if i>n0 拿 b then cola = 31 *(n0-i>/(n0*<1-b>> else 
if i<24 then colv=i + 6 else colv=31 
col(i)=hsv(colh,cols,colv) 
next 

col ⑴ =0 

if n=0 then { 

fn=fopen 「 .col64","c"> 
fwrite(col,pow(2 , n+6)+1,fn) 
fclose(fn) 
brank() 

fn=fopen("colb64" ， "c"> 
fwrite(col,pow(2,n+6)+1,fn) 
fclose(fn) 

) 

if n=l then { 

fn=fopen("col128","c") 
fwrite(col,pow(2,n+6)+1,fn) 
fcloseifn > 
brank() 

fn=fopen<"colbl28" ， "c"> 
fwrite(col,pow(2,n+6)+1,fn) 
fclose(fn) 

) 

if n=2 then { 

fn = fopen 「 col256" , "c" > 
fwrite(col,pow(2,n+6)+1,fn) 
fclose(fn) 
brank() 

fn=fopen< ”colb256","c"> 
fwrite< col,pow(2,n + 6) + 1 , fn) 
fclose(fn) 

) 

if n=3 then { 

fn=fopen("c 01512 ,, l ,, c H ) 
fwrite(col,pow(2,n+6)+1,fn) 
fclose(fn) 
brank() 

fn=fopen|”colb512" ， "c"> 
fwrite(col,pow(2,n+6)+1,fn) 
fclose(fn) 

} 

if n=4 then { 

fn=fopen<"coll024","c") 
fwrite(col,pow(2,n+6)+1,fn) 
fclose(fn) 
brank() 

fn=fopen("colbl024","c") 
fwrite(col,pow(2,n+6)+1,fn) 
fclose{fn} 

next 

end 

func brank() 


670 for i=1 to 1024 


680 if i mod 2 =0 then continue 

690 col(i)=0 

700 next 
710 endfunc 


リスト 2 マンデルフ□メイン 

10 screen 0,3,1,1 
20 console ,,0 
30 mouse(1) ： mouse(4) 

40 window(0,0,255,511) 

50 dim int colo( 1024) 

60 dim int col(10,1024) 

70 dim int x0(255),y0(255),xa(255),ys(255) 

80 int g=64,n=256 ， co=0,g8=64,ns=256 
90 int a,b,c,d,xf,yf,sx,sy,u,v 
100 float xmin=-2,xmax=0.5#,ymin=-l.25#,ymax=1.25# 
110 float xl,x2,yl,y2,x,y 
120 print " 色配列のロー ド中 ” 

130 fn=fopen("col64" , "r") 

140 fread(colo,64,fn) : fclose(fn) 

150 for i=1 to 64 ： col(0,i)=colo(i)：next 
160 fn=fopen("col 128" ,"r") 

170 fread(colo,128,fn) ： fclose< fn) 

180 for i=l to 128 ： col(l,i)=colo(i) : next 


Profile 

◊丸野さんは愛知県にお住まいの 43 歳，システ 
ム関係の仕事をされています。マイコン歴は 
約6年。 PC - 3200, MZ - 3500/6500ユーザーで 
X 68000は初めてのホビーマシンです。 
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190 fn=fopenrcol256" ， "r.. > 

200 fread(colo,256,fn) : fcloae(fn) 

210 for i=l to 256:col(2,i)=colo(i)：next 
220 fn=fopen に •col512"/'r"> 

230 fread(colo,512,fn) ： fcloae(fn) 

240 for i=l to 512:col(3,i)=colo(i) : next 
250 fn=fopen( ,, coll024" , "r") 

260 fread(colo,1024,fn) ： fclose(fn) 

270 for i=l to 1024 ： col(4,i)=colo(i) : next 
280 fn=fopen("colb64","r") 

290 fread(colo,64,fn) : fclose(fn) 

300 for i=l to 64:col(5,i)=colo(i) : next 
310 fn=fopen("colbl28 ，，， "r"> 

320 fread(colo ， 128,fn):fclose(fn) 

330 for i=l to128 ： col(6,i)=colo(i)：next 
340 fn=fopen<"colb256","r"> 

350 fread(colo , 256,fn) ： fcloae(fn) 

360 for i=l to 256 ： col(7,i)=colo(i) : next 
370 fn=fopen( ,, colb512 , ', "r") 

380 fread(colo,512,fn) : fclose(fn) 

390 for i=l to 512:col(8,i)=colo(i) : next 
400 fn=fopenrcolbl024","r"> 

410 fread(colo,1024,fn) : fcloae(fn) 

420 for i=l to 1024:col(9,i)=colo(i) : next 
430 els 
440 repeat 
4.50 locate 0,0 

460 print" 分解能 I 回数 I 着色 I セーブ I 描画 I 再 ” 
470 msstatic.d.a.b) : mapos(c,d) ： c=c/8:d=d/16 
480 if a=-l and d<1 and c<6 then { 


while a=-l 

mB8tat(c ， d ， a ， b> : mspos(c,d) : 。 =c/16 : d=d/16 : locate 0,1 
if d=l then color 3:print"16" else color 11:print"16 

if d=2 then color 3:print" 32" else color 

if d=3 then color 3:print” 64" else color 

if d=4 then color 3 ： print" 128" else color 

if d=5 then color 3:print"256" else color 

endwhile 

if 0<d and d<6 then gs=pow(2 f d+3) 
color 3 : els 


490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 } 

600 if a=-l and d<1 and 6<c and c<11 then 


llrprint" 32 
11 : print" 64 
ll ： print"128 
11 : print"256 


610 

620 


while a=-l 

msstat<c,d ， a ， b}:mapos(c,d) ： o=c/16 : d=d/16 


630 

locate 

7 ,1:if 

d=1 

then 

color 

3:print" 
3:print" 

64" 

else 

color 

11:print" 

64" 

640 

locate 

7,2：if 

d=2 

then 

color 

128" 

else 

color 

11:print" 

128" 

650 

locate 

7,3:if 

d=3 

then 

color 

3 : print" 
3:print" 

256" 

else 

color 

11 : print" 

256" 

660 

locate 

7,4：if 

d=4 

then 

color 

512" 

else 

color 

11:print" 
11:print" 

512" 

670 

locate 

7,5：if 

d=5 

then 

color 

3:print" 

1024" 

else 

color 

1024" 


endwhile 

if 0<d and d<6 then ns=pow(2,d+5) 
color 3 : els 


680 
690 
700 
710 } 

720 if a=-l and d<1 and 11<c and c<16 then ( 

730 while a=-l 

740 msstat(c,d,a,b) : mspos(c,d) ： c=c/16 : d=d/16 

750 locate 11,1：if d=l then color 3:print. • 帚無 " else color ll:print " 带無 


760 


locate 11,2 ： if d=2 then color 3: print ’ • 带有 ’. else color ll:print " 带有 


770 endwhile 

780 if 0<d and d<3 then if d=2 then co=5 else co=0 

790 color 3 : els 

800 } 

810 if a=-1 and d<1 and 23<c and c<28 then draw() 

820 if a = -l and d く 1 and 28<c and c<31 then drawagain() 

830 if a=-l and d<1 and 16<c and c<23 then aavegamen() 

840 until1=0 
850 end 

860 func draw() 

870 els 

880 repeat 

890 msstat(d,c,a,b) 

900 until a=0 

910 print" 分解能”； gs 

920 print" 回数"； ns 

930 print" 着色 "；：if co = 0 then print” 带無 " else print •• 帯有 ” 
940 print" O K = 左クリック ’’ 

950 print" CANSEL = 右クリック " 

960 repeat 

970 msstat(c,d,a,b) 

980 until a=-1or b=-1 

990 if b=-1 then els : return() 

1000 repeat 

1010 msstat(d,c,a,b) 

1020 until a=0 
1030 g=gs : n=ns 
1040 els 

1050 print" マウス入力：左クリック ” 

1060 print" キー入力 = 右クリック " 

1070 repeat 

1080 msstat(c , d , a , b) 

1090 until a=-l or b=-l 

1100 repeat 

1110 msstat(d,d,c t d) 

1120 until c=0 
1130 if b=-l then { 

1140 els 

1150 repeat 

1160 input"xmin=",xmin 

1170 input"ymin=",ymin 


48 Oh ! X 1988.2. 


X 68000 用に投稿された関数，ライブラリに関し Oh ! X 誌上での統合化をお願いした 
•。 成 技す る マシン だけに親になる存在が必要で，野放しにしてはいけない。 

清水克俊（25> 宮城県 







1180 input "xmax 二 ’’， xmax 

1190 input"ymax=",ymax 

1200 until xmin<xmax and ymin<ymax 

1210 ) 

1220 if a=-l then { 

1230 els 

1240 repeat 

1250 repeat 

1260 msstat < c,d ， a ， b):mspoa(c,d) : d=255-d 

1270 xl=xmin+(xmax-xmin)*c/255 

1280 yl=ymin+(ymax-ymin)«d/255 

1290 locate 0,0 : print"xl .，；： print using "## .#########. ；xl 

1300 locate 0,1:print "y 1"; : print using "##•#########’ 一一"； yl 

1310 until a=-l 

1320 repeat 

1330 m8stat(c,d,a f b) 

1340 until a=0 

1350 repeat 

1360 msstat(c,d,a f b) ： mspos(c,d) : d=255-d 

1370 x2=xmin+ixmax-xmin)*c/255 

1380 y2=ymin+(ymax-ymin)*d/255 

1390 locate 0,0 : print ,, x2 M print using "##.#########. ； x2 

1400 locate 0,1:print H y2" •，: print using "##.#########. ”； y2 

1410 until a=-l 

1420 until xl<x2 and yl<y2 

1430 xmin=xl : ymin=y1 : xmax=x2 : ymax=y2 

1440 } 

1450 els 

1460 print" 座標変換中 " 

1470 size=256/g : coll=co+log(n)/log(2)-6 
1480 for i=0 to 255 

1490 if i mod size<>0 then continue 

1500 xf=0 : yf=0 

1510 x=xmin+(xmax-xmin)*(i+size/2)/255 

1520 y=ymin+(ymax-ymin)*(255-(i+size/2))/255 
1530 if x<0 then x=abs(x) : xf=&H 80000000 

1540 sx=log(x+lE-100#)/log(2)+l 

1550 x=x/pow(2,sx) 

1560 if sx<0 then sx=&.H10000 + sx 

1570 if y<0 then y=abs(y) : yf=&H 80000000 

1580 ay=log(y+lE-100#)/log(2)+l 

1590 y=y/pow(2,sy) 

1600 if sy<0 then sy=iH10000+sy 

1610 x0 ⑴ =x*«tH 40000000 or xf 

1620 y0<i)=y*&H 40000000 or yf 

1630 xs(i)=sx 

1640 ya(i)=sy 

1650 next 

1660 els ： mou8e(2) 

1670 coll=co+log(n)/log(2)-6 

1680 switch size 

1690 case 1 

1700 for i=0 to 255 

1710 line(i,0,i,255,&HFFFF) 

1720 for j=0 to 255 

1730 c=mandelbrot(x0(i),xa(i),y0(j),ys(j),n) 

1740 pset(i,j,col(col1,c)) 

1750 pset(i,j+256,c) 

1760 next 
1770 next : break 
1780 default 
1790 u=0 

1800 for i=l to g 
1810 v=0 

1820 line(u,0,u,255,&HFFFF) 

1830 for j=l to g 

1840 c=mandelbrot(x0(u),xs(u),y0(v),ys(v),n) 

1850 fill(u,v,u+aize-1,v+aize-1,col(col1 # c)) 

1860 pset(u,v+256,c) 

1870 v=v+aize 

1880 next 

1890 u=u+size 

1900 next 

1910 endswitch 

1920 beep 

1930 repeat 

1940 ms3tat(c,d,a,b} 

1950 until a=-l 
1960 mouse{1) 

1970 endfunc 

1980 func savegamen() 

1990 els 
2000 vpage(0 ) 

2010 str name$ 114] 

2020 input"file name=",name$ 

2030 window(0,0,255,255) 

2040 img_save(name$+".GL0") 

2050 window(0,0,255,511) 

2060 vpage(1) 

2070 endfunc 

2080 func drawagain() 

2090 els 
2100 repeat 

2110 ms8tat(c,d,a,b) 

2120 until a=0 and b=0 
2130 print" 自動： 左クリック” 

2140 print" 手 動： 右クリック" 

2150 repeat 

2160 ms8tat(c,d l a f b) 

2170 until a=-l or b=-l 
2180 int min,max 


► X68000 でフロッピーを 2 台， RAMDISK, SRAMDISK, R0MDISK をつけてビジュア 
ルシェルを觔かすとデイスクのアイコンが A ~ E までぺロッと画面に現れるのです。もう 
壮奴！ 清水祐介 （ 16) m&m 
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64 65 6C 62 72 
00 00 00 00 50 
02 00 02 00 02 
01 00 00 00 62 
86 42 87 91 C8 
CA 97 CB 9D CE 
00 32 08 36 01 
A2 24 40 36 41 
00 32 09 36 01 
92 28 40 3A 41 
0B 61 00 01 0E 


0080 

0088 

0090 

0098 

00A0 

00A8 

O0B0 

00B8 

00C0 

00C8 

00D0 


SUM ： 48 55 00 3A 00 00 02 0E 


45 

33 

08 

E5 

AD 

88 

BB 

DE 

BD 

D6 

DF 


リスト 3 mandelbrot. fnc 


0078 00 00 00 00 00 00 00 00 : 00 


00D8 

24 

3C 

A0 

00 

00 

00 

36 

3C 

72 

00E0 

00 

03 

61 

00 

01 

00 

08 

00 

6D 

00E8 

00 

IF 

67 

r,o 

20 

3C 

20 

00 

52 

00F0 

00 

00 

32 

3C 

00 

02 

24 

07 

9B 

00F8 

36 

09 

61 

60 

24 

06 

36 

08 

68 

SUM ： 

3D 

95 

3E 

E2 

94 

95 

25 

99 43F3 

0100 

61 

5A 

24 

2F 

00 

20 

36 

2F 

93 

0108 

00 

2C 

61 

00 

00 

D8 

2E 

00 

93 

0110 

32 

41 

20 

0A 

32 

0B 

24 

0C 

0A 

0118 

36 

0D 

08 

42 

00 

IF 

61 

00 

0D 

0120 

00 

C4 

24 

2F 

0 0 

0C 

36 

2F 

88 

0128 

00 

18 

61 

00 

00 

B8 

2C 

00 

5D 

0130 

30 

41 

52 

4E 

BC 

EF 

00 

36 

F2 


0000 48 

0008 00 
0010 00 
0018 00 
0020 00 
0028 C0 
0030 00 

0038 00 

0040 00 

0048 00 

0050 00 

0058 00 

0060 00 
0068 00 
0070 00 


55 00 00 
00 00 00 
00 00 00 
00 00IE 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 60 
00 00 60 
00 00 60 
00 00 60 
00 00 40 
00 00 5C 
00 00 00 


00 U0 00 
00 00 02 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 


00 

9D 

42 

44 

00 

00 

00 

IE 

00 

00 

00 

00 

00 

00 

00 

00 

60 

CO 

60 

CO 

60 

CO 

60 

CO 

4C 

8C 

00 

5C 

00 

00 


2190 float 10 gn 
2200 max=0 : min=n 
2210 size=256/g 
2220 if a=-l then { 

2230 cla 

2240 print" 色定義中 " 

2250 for i=0 to 1024 
2260 colo(i)=0 
2270 next 
2280 u=0 

2290 for i=1 to g 

2300 line(u,0,u,255.&HFFFF) 

2310 v=0 

2320 for j=l to g 
2330 c=point(u,v+256) 

2340 colo(c)=1 
2350 v=v+8ize 
2360 next 
2370 u=u+size 
2380 next 
2390 min=l : max=n 
2400 for i=l to 1024 

2410 if colo(i)=1 then min=i : break 
2420 next 

2430 for i=l to n-1 

2440 if colo(n-i)=1 then max=n-i : break 
2450 next 
2460 ) 

2470 if b=-l then { 

2480 els:max=n 

2490 print" E N D = 左クリック " 

2500 repeat 

2510 ms8tat(c,d,a f b) : mspo8(c l d):c=o-(c mod size) : d=d-(d mod size) 

2520 c=point(c,d+256) 

2530 locate 0,1:print min；" ",c;" " 

2540 if c く min then min=o 

2550 until a=-1 

2560 els 
2570 u=0 

2580 for i=1 to g 

2590 line(u,0,u,255,AHFFFF) 

2600 u=u+size 

2610 next 
2620 } 

2630 min=min-l 

2640 logn=log(max-min) 

2650 for i=min to max 

2660 colh=(-154*log(i-min+0.9#)/logn+50+512) mod 192 

2670 if i>(max-min)*0.4#+min then cols=31*(max-i>/<max-min>/0.6# elBe cols=3 

2680 if i<min+24 then colv=i-min+6 else colv=31 

2690 col(10,i)=hsv(colh,cola,colv) 

2700 next 

2710 col(10,n)=0 

2720 els ： mouse(2) 

2730 if sizeOl then { 

2740 u=0 

2750 for i=l to g 
2760 v=0 

2770 for j=l to g 

2780 fill(u,v,u+aize-l,v+size-1,col(10,point(u,v+256))) 

2790 v=v+size 
2800 next 
2810 u=u+size 
2820 next 
2 〇〇 0 } 

2840 if size=l then { 

2850 for i=0 to 255 
2860 for j=0 to 255 

2870 pset(i,j,col(10 f point(i,j+256))) 

2880 next 
2890 next 
2900 ) 

2910 beep 

2920 repeat 

2930 msstat(d,d,c,d) 

2940 until c=-1 
2950 mouse(1) 

2960 endfunc 


E 0002540406 
6 0084920203 

142259607 OA 
67007 c 00000 

DF00E 301014 
66004926262 
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►ふつふつふ。私はこういう記屯を恃つていたんだ。「 XI 用のボードを MZ で使う j もう， 
XI のカラーイメージボードを使いたいがために XI を買おうかと思つたが，それも不 
要。本汽にありがとうといいたい。 横井慎司（17> 三通県 









0138 6D 00 FF 76 41 F9 
0140 0110 33 CE 00 00 
0148 30 BC 80 0142 80 
0150 00 00 00 00 00 00 
0158 00 00 00 00 2F 00 
0160 2F 02 D6 413A 03 
0168 C0 BC 3F FF FF FF 
0170 3F FF FF FF 24 00 
0178 48 42 48 43 38 01 


SUM ： 

0D 

BC 

92 

BF 

35 

51 

95 

AD 05C8 

0180 

C0 

C3 

C6 

C2 

C4 

C4 

Cl 

43 

97 

0188 

D4 

83 

36 

02 

48 

43 

42 

43 

9F 

0190 

42 

42 

D5 

43 

48 

42 

D2 

83 

7B 

0198 

Dl 

82 

E3 

89 

E3 

90 

E3 

89 

9E 

01A0 

E3 

90 

08 

00 

00 

ID 

66 

06 

04 

01A8 

53 

45 

E3 

89 

E3 

90 

26 

00 

9D 

01B0 

24 

IF 

22 

IF 

20 

IF 

02 

80 

45 

01B8 

80 

00 

00 

00 

02 

82 

80 

00 

84 

01C0 

00 

00 

B1 

82 

08 

02 

00 

IF 

5C 

01C8 

66 

08 

02 

83 

3F 

FF 

FF 

FF 

2F 

01D0 

60 

0C 

02 

83 

3F 

FF 

FF 

FF 

2D 


01D8 

00 

83 

80 

00 

00 

00 

32 

05 

3A 

0278 

E3 

88 

80 

83 

53 

42 

66 

F0 : 

59 

01E0 

20 

03 

•1 E 

75 

B2 

43 

6C 

04 

4B 











01E8 

Cl 

4 k! 

C3 

43 

B0 

BC 

00 

00 

75 

SUM: 

C2 

FC 

86 

53 

87 

AF 

DF 

3B B472 

01F0 

00 

00 

66 

02 

32 

03 

3A 

01 

D8 











01F8 

92 

43 

36 

01 

32 

05 

C6 

BC 

C5 

0280 

4E 

75 

00 

00 

00 

04 

00 

04 

CB 











0288 

00 

04 

00 

04 

00 

04 

00 

04 

10 

SUM ： 

BA 

ID 

A3 

7B 

88 

2E 

62 

FB A684 

0290 

00 

04 

00 

04 

00 

04 

00 

04 

10 











0298 

00 

24 

00 

10 

00 

A 2 

00 

06 

DC 

0200 

00 

00 

7F 

FF 

B6 

7C 

00 

20 

D0 

02A0 

00 

00 

00 

00 

0 0 

00 

00 

00 

00 

0208 

6D 

04 

36 

3C 

00 

20 

B6 

7C 

35 

02A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0210 

00 

00 

67 

12 

2A 

02 

02 

82 

29 

O2B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0218 

7F 

FF 

FF 

FF 

E6 

AA 

02 

85 

93 

02B8 

00 

00 

00 

00 

00 

00 

00 

00 

WO 

0220 

80 

00 

00 

00 

84 

85 

08 

00 

91 

G2C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0228 

00 

IF 

67 

08 

02 

80 

7F 

FF 

8E 

02C8 

00 

00 

00 

0« 

00 

00 

00 

00 

00 

0230 

FF 

FF 

44 

80 

08 

02 

00 

IF 

EB 

02D0 

00 

00 

00 

00 

00 

00 

00 

(川 

00 

0238 

67 

08 

02 

82 

7F 

FF 

FF 

FF 

6F 

02D8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0240 

44 

82 

D0 

82 

08 

00 

00 

IF 

3F 

02E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0248 

67 

08 

44 

80 

80 

BC 

HO 

00 

EF 

02E8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0250 

00 

00 

08 

00 

00 

IE 

67 

0C 

99 

02F0 

00 

00 

00 

00 

00 

00 

00 

0() 

00 

0258 

E2 

80 

C0 

BC 

BF 

FF 

FF 

FF 

9A 

02F8 

OU 
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00 

00 

00 

0() 

00 

()0 

00 

0260 

52 

41 

60 

1C 

34 

3C 

00 

20 

9F 











0268 

26 

00 

02 

83 

80 

00 

00 

00 

2B 

SUM ： 

4K 

\1 

no 

18 

00 

At 

1)0 

12 SATt 

0270 

08 

00 

00 

ID 

66 

0A 

53 

41 

29 












リスト 4 mandelbrot . s 


MANDELBROT 


.list 
.text 

dc,l X_INZ 

dc.l X^RUN 

dc.l X_END 

dc.l X_SYSTEM 

dc.l X^BRK 

dc.l X_CTRL_D 

dc.l X_RETADRS 

dc.l X_RETADRS 

dc.l PTRJTOKEN 

dc.l PTR_PARAM 

dc.l PTR_EXEC 

dc.l 0,0, 0,0,0 

*.Function name table 

PTR_TOKEN dc^b Mandelbrot 1 ,0,0 

t .Function parameter table 

PTR_PARAM dc.l MAND^FARAM 

MAND^PARAM dc.w $0002, $0002,$0002,$0002,$0002,$8001 

拿 .Function adress table 

PTR.EXEC dc.l MANDELBROT 

X 一 1NZ: 

X_RUN: 

X.END ： 

X_SYSTEM: 

X_BRK •• 

X CTRL D ： 

X_RETADRS: rta 

>...Main program 

MANDELBROT : 


d6 

d7 

a0 

al 

a2 


re2=re*re 


a2,d2 
a3,d 3 
ADD32 

#$a000_O000,d2 

#3,d3 

ADD32 

#31 f cl0 

OUT 

#$2O00_O000,dO 

#2,dl 

d7,d2 

al ， d3 

MUL32 

d6,d2 

a0 »d3 

MUL32 

32(sp),d2 

44(sp),d3 

ADD32 


拿 if re2+ira2-4>0 then OUT 


d7 


拿 re = re2-im2+x 


a4 
a5 
#31,d2 
ADD32 
12(sp),d2 
24(sp),d3 
ADD32 
d0,d6 
dl,a0 
n 1,a6 
54(sp) t a6 
LOOP1 
RETDAT.aO 
a6,INT^!)ATA+2 
»$80U1,(a0) 
dO 


RETDAT ： 

INT^DATA 


andi . 
andi . 


0 

d0,-(sp) 

dl,-(sp) 

d2,-(sp) 

dl,d3 

d3,d5 

d2,di 

d2 f dl 

#$3fff^ffff,d0 

d0 t d2 
dl,d3 
d2 
d3 

dl,d4 

d0,dl 

d3,d0 

d2,d3 

d4,d2 

dO t d3 

d3,d2 

d2,d3 

d3 

d3 

d2 

d3,d2 

d2 

d3,dl 

d2,d0 

#1,dl 

#1,d0 

#l,dl 

#l,d0 

#29,d0 

MARK1 

#1 ,d5 

#1,dl 

#l,d0 

d0,d3 

(sp)+ f d2 

(sp)+,dl 

(sp)-f.dO 

#$80O0.0000 f d0 

^$800O^0OOO f d2 

d0,d2 

#31,d2 

M_MINUS 

#$3fff_ffff f d3 

MULOUT 

猶 $3fff ffff f d3 

#$8000^OO00,d3 

d5,dl 

d3,d0 


d3，dl 

CHACK1 

d0,d2 

dl,d3 

#0 t d0 

CHACK2 

d3 f dl 

dl,d5 

d3,dl 

dl ， d3 

d5,dl 

#$7fff f d3 

#32 f d3 

CHACK3 

#32,(13 

♦ 0,d3 

CHACK4 

d2,d5 

,d2 

d3,d2 

#$8000_0000,d5 
d5 9 d2 
#31 f d0 
CHACK5 

♦$7fff ffff.dO 
d0 

*31 f d2 

ADD 

♦S7fff^ffff t d2 
d2 

d2,d0 
#31 t d0 
CHACK6 
d0 

#$8000^0000,dO 


CB20F 9670 
12F05A38D 


085012 C10 
017000 B0C 

01E0F 2262 
004022 C2C 


► 12 fl 号の Splash Wave は入力しづらかった。あのようにプログラムしてしまうと各小 
節ごとのチェックがとても難しい。別れの曲や月光そして1月号の悲しきチェイサーのよ 
うなデバッグの簡単な方式で作成してほしい。 小松英生 （18) 高知県 
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191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


CHACK7 : 

LOOP ： 


btat»1 
beq 


and.1 
addq.w 
bra 



andi.1 
btst.i 


*30 f dO 
CHACK7 
«1 f d0 

#$bfff ffff.dO 

•1，dl 

OUTADD 

#32 v d2 

<10,(13 

#$8000.0000, d3 
#29 f d0 


201： 

202： 

203 ： 

204: 

205 ： 

206 ： 

207 ： OUTADD ： 

208: t . 

209 ： 


bne 
aubq.w 
lal.i 
or .1 
subq.w 
bne 
rts 


• end 


OUTADD 
#1 9 dl 

fltdO 

d3 f d0 

#l f d2 

LOOP 


U スト 5 自己平方フラクタル 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 


key 11, "save@@frac 1@@": key 12,"screen 2,0,1,1@M" 
screen .1,2,1,1:console ,,0 
float Q,R,T,U,V,W,X,Y 
int t,u,v,x,y 

dim float p(5)={-0.5#,0.5#,-0.5#,0.4#,0.34# ,-0 . 4#} 

T=(p(1)-p(0))/511# : U=(p(3)-p(2))/511# : V=p(4) : W=p(5) 

for t=l to 255 : u=co8(pi((t mod 42)/21#))* 12 + 27.5# : if u>31 then u=31 

v=coa(pi(((t+21)mod 42)/21#))*7+23.5# : if v>31 then v=31 

,palet(t,hsv(190*t/255+ltU,v)) 

/t print t,190*t/255+l,u,v:x=(t mod 21)*20:y=(t¥21)*20': fill(x,y,x+10,y+10,t) : next : end 

next 


x=0 

y=0 

t=0:X=T»x+p<0> : Y=U*y+p(2> 
t=t+l 

— Y 本 Y+\^I?=2«X»Y+W 
X=Q ： Y=R 
y=y+l 
x=x+l 


repeat 

repeat 

repeat 

: if t=256 then break 

: if (Q*Q+RtR)>4 then break 
until 0 : p8et(x,y,t mod 256) 

,until y=512 
until x=812 


200 els 


210 dim char a(511) 


220 u=fopen("a ： fracdataOl.dat" , n c") 
230 for t=0 to 511 


240 get(t,0,t,511,a):fwrite(a,512»u) : next 
250 fclose(u):end 


リスト 6 3 D 表示ブ□クラム 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

441 

442 

443 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 


key 11,"saveddfrac2®®" : key 12,"screen 2,0,1,ldM" 
screen 1,2,1,1:console ,, 0 : contrast(14) : vpage(3) : apage(1) 

100 ate ,,0 : sp_clr() : sp_off() : ap_diap(1) : bg_aet(0,0,0) 
float A 

int s,t,u,v,x,y,z,x0,y0,z0,X ， Y,X0 ， Xl,X2 ， Y0,XB=0 ， YB=0,S=127,D=192,H=128,H0 
int c=384,d=384 

str k 

dim char a(5U) , b(150) , ap( 255 ) 

dim float p(5)={-0.5#,0.5#,-0.5#,0.4#,0.34#,-0.4#} 
color 6 : locate 13,10:print "full range full color gradations" 
locate 13,13:print " X 68000 FRACTAL WORLD” 

locate 13,16：print "this is speeded for demonstration" 
for t=l to 255 : u=cob( pi((t nod 42)/21#))*12+27.5# : if u>31 then u=31 

v=cos(pi(((t+21) mod 42)/21#)) *7423 .5# : if v>31 then v=31 

palet(t,hsv(190*t/255+1,u,v)) : next : color [ ， ， 63551] 

u=fopen("a:fracdataO1.dat","r") 
for x=0 to 511 

fread(a,512,u) : put(x,0.x,511,a) : next 
fclose(u>:color 1 : els ： apage(0) 

x=hav(30,9,31):palet(1.,x}:sp_color(1 ， x,1):sp_color(W,0,1) 
for s = 0 to 】 5:sp(s> =1:sp(s 本 16}=1:next:8p_def<1 ， ap> 
bg_scroll(0,c,d}:bg_aet(0,0,1) 

bg_put( 0731 ,31,&B11 000001000000 01) : bg_put(0,31,24,&B100000 10000000 1) 
bg_put(0,24,31,&B10 000001 00000001) ： bg_put(0,24,24 t &Bl 00000001 ) 
color 6 : locate 34,19 : print "view area selecting" 

locate 34,21 :print " f ^ return" 

k="" : repeat : k=inkey$ : z=asc(k) 
repeat 

repeat 
switch z 

case 28 : if XB=384 then break 

XB=XB+8 : c=c-8 : break 
case 29 ： if XB=0 then break 

XB=XB-8 : o=o+8 : break 
case 30 : if YB=0 then break 

YB=YB-8 : d=d+8 : break 
case 31 : if YB=384 then break 

YB=YB+8 : dad-0 : break 
case 13 : z=27 : break 

default : z=l 
endswitch : k=’’" 

if z く 28 then break 

bf_soroll(0,c,d) 

if YB<256 then break 

if XB<176 then home(0,0,0) : break 

hone(0,255»0) : break 

until 0 

if z<>27 then break 

color [,,34258] : apatfe(O) : wipe():circle(364 ,511,107,10 5,0,180,418) 

painU 350 ， 440 ， 105) : H0=S*H/(S+D) 
for y=0 to H0 : Y=S+D-H*D/(H-H0+y) 

X1=XB : X2=X1+S : Y0=Y+YB : A=(D+0#)/(S+D-Y) 
apage(l) : get(Xl ,Y0,X2,Y0,b) : y0 = y+5U-H0 
apage(O) : for x=(S/2-(S/2#)*A) to (S/2-(S/2-S)<A) 
x0=x+300 : X0=S/2-(S/2-x)*(S+D-Y)/D+1 
z=b(X0) : z0=(z+0#)*A/8+l 
apage(0) : 1ine(x0,y0-z0,x0,y0,z) : next 

apage(1) : next : color ["63551】: break 

until 0 
until 0 
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グラフィック画像の冒険 


MZ - 2500用グラフィックツール 

mM QUICK MZ PAINT 


Morinaka Minoru 

森中実 


文字の拡大/縮小，円やスブライン曲線の描画，パーツを呼び出して画面のどこに置こ 
うかといつだ処理さえ，すべて 1 J アルタイム表示で操作可能。ビジュアルシェルによ 
るファイル管理など機能と操作性がみごとに両立しだツールです。 


目指すは MacPaint 

GET.pcg 

BSD 

力してください。これを実行することで前 
記の BSD ファイルが登録されます。ただし 


PCGl.data 

BSD 

basic . tile 以外は各自でタイルパターンを登 * 

Macintosh の MacPaint を使っているとモノ 

basic , tile 

BSD 

録せねばなりません（後述)。 

クロながらその表現力の豊かさや操作性に 

datal.tile 

BSD 

なぉ， auto - run . m 25 はマウス使用のため 

は驚かされてしまいます。このプログラム 

data 2 .tile 

BSD 

NEW ON 命令を削除してぉいてください。 

では MZ - 2500を使って， MacPaint のような 
操作環境を実現することに挑戦しています。 

Parts l.gra 

OBJ 

基本的な使用方法 

せっかくアナログ RGB 対応なのにモノクロ 

Parts 2 .gra 

OBJ 


はさびしいという方もいるかもしれません 

Parts 3 .gra 

OBJ 

基本機能は画面左のアイコンをクリック 


が，プリンタへの出力などを考えた場合モ 
ノクロのほうがより実用的だといえるので 
はないでしようか。 

プログラムは BASIC - M 25 と若干のマシ 
ン 語で記述しました。 スプライン 曲線の ル 
ーチンはグラフイックパッケージ MAGIC の 
ルーチンを 抜き出して使っています。 さら 
にこれは EMM : を使用することで高速な フ 
アイル 処理が可能となります。 EMM ： の使 
用時には テ レ システムズのユーテイ リ テイ， 
UT -25 F に対応していますので，各自手持ち 
のものを組み込み， 270 行の変数 EMM の 値 
を1 に変更して起動してください。 

入力方法 


こ の QUICK MZ PAINT は MZ - 250 0 V 2 相 
当のシステム +マウスで稼動します。実行 
時には， 

BASIC - M 25 ( V 2.0 が望ましい） 
auto - run . m 2 o 


QuickPaint 

MP.obj 

SPLINE.obj 


BTX 

OBJ 

OBJ 


のファイルが必要です。このうち入力が必 
要なのは最初のブロックだけです。2番目 
のブロックの BSD ファイルはリスト 2 で作 
成し， 3 番目のブロックのパーツ群はこの 
ツールの ファイルモードで作成し登録して 
ください。また，メモリに余裕があまりあ 
りませんので，アルゴファイルはあまりぶ 
らさげないようにしてください。 

それでは，最初にリスト1のメインプロ 
グラムを入力してください。 エラー トラッ 
プを多用していますので，実行しながら入 
カミスのチェックをすることは非常に困難 
です。チェックにはリスト 3 のチェックサ 
ムプログラムを使用してください。まず， 

打ち込んだプログラムをアスキーセーブし， 
そのときのファイルを 1030 行に書き込んで 
実行してください。函面またはプリンタに 
チェックサムを出力します。 

次に2 つのマシン 語プログラムを入力し 
ます。 clear & H 6000 を実行後，モニタまた 
は MACINT 0- C などのマシン語入カツール 
で入力し，それぞれのファイルネームで bs 
ave してください。 

最後に BSD フアイル作成プログラムを入 




することで選択されます（右クリックでキ 
ヤンセル）〇機能を順に解説すると， 

1) ユーテイリテイモード 

クリックするとサブメニューが開きます。 
Ret Main 

このモードをす友けます。 

Icon uet 

アク テイブ画面 か ら48 X 48ドットの範 I 扭 
でアイコンデータを 取り込みます。フ ァイ 
ルモードの Icon Maker で使用します。 
Black/White 

全面または部分の白黒を反転します。 
Hcopy 

hcopy 2でプリントアウトします。 

Gload 

このッールで は基本的 に 作成中の画面は 
“グラフィック. M 25” のフ ァイ ル 名で扱わ 
れます。したがって この 名前で gsave された 
絵であれば（100,20) —（619,340)の範囲を 
画面に取り込むことができます。 

Gsave 

現在の画面を“グラフイック. M 25” のフ 
ァイル名でデイスタにセーブします。同一 
のファイル名がある場合にはそのファイル 
を削除してからセーブします。このモード 
では1画面につき 85 K バイト必要なので注 
意してください。 

End 

このプログラムを終了します。 

2) フアイルモード 

作成中の画面とは別にエディットで使用 
する パーツを 1画面ごとにファイ ルの 形で 
管理することができます。もちろん gsave の 
代わりに使ってもかまいません （25 K バイ 
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卜/画面）。ただし，ここでセーブしたデー 
夕はほかのプログラムなどから gload で読み 
出すことはできません。 

このプログラムではファイル名は6文字 
(漢字3文字）が有効となり，パーッの拡張 
子には* . gra というものが与えられます。 
また，各パーツファイルはそれぞれにアイ 
コンデータを持っており，ファイルモード 
ではビジュアルシェルとして動作します。 

このモードではフアイルのロー ド/セーブ/ 

コピー/アイコン定義/削除/作成を行いま 
す。メニューバーのところで一度クリック 
して機能を選択したあと，実行するファイ 
ルの アイ コンを クリックしてください。 

アイコン定義で PUT を指定すると現在の 
GET デ'ータが展開されます。 

3) CLS 

アクティブ画面でクリックしてください。 
ヘルプキーで 復帰できます。 

4) ERASE 

4種類の消しゴムモードがあります。 

5) LP (ルーペ） 

拡大モードです。 24 X 25 ドットの範囲を 
拡大します。 

6) PA (ペィント） 

黒を境界としてペイントを実行します。 
タイルパターンは画面下のメ ニューから 選 
んでください。ヘルプキーで復帰可能です0 



これが OR 


あまり一般的ではありませんが，閉曲線の 
内部は PUT ， 外部は OR を実行するもので 
す。使っているうちになんとな〈感じはわ 
かると思います。 

8) SP (スプライン） 

3点を通るスプライン曲線を描きます。 
両端を指定してやれば中点をリアルタイム 
で変化させて望みの曲線を得ることができ 
ます。 MAGIC 内のルーチンを400ライン用 
に変更して使っています。 

9) 文字 

フォントは 3 種類 8 X 8，8 X 16，16 X 
16 (漢字入カモード）から選択してくださ 
い0大きさ縦横比はマウスでリアルタイム 
に変更できます。 

10) FILL 

矩形範囲を塗りつぶします。タイルパタ 
ーンは画面下で選択されたものが使用され 




角の丸まった BOX を描きます。座標指定 
の順序で角の尖った BOX など一応4種類の 
指定ができます。 

13) BOX 

BOX をすきます。 

14) CONNECT 

複数点を指定して連続した直線を引きま 
す0 


7) コピーモード 


ます。 


15) LINE 


COPY & MOVE モードです。 


OR 

重ね合わせ 

UP 

Mac の投げ縄風移動 

PUT 

上塗り 


の3つのモードがあります。 UP というのは 


11) CIRCLE 

円を描きます。真円と楕円を選択でき， 
惰円モードではマウスの上下移動で縦横比， 
左右移動で半径が^*定されます。 

12) 特殊 BOX 


2点を指定して直線を引きます。 

16) PEN 

フリーハンドで線を引いていきます。 
のようになります。スプライン以外の線描 
画ではペン先，ラインスタイルを指定でき 




ルーぺモード 



自由に パーツを 登録できる 



タイルエディット 


ます。 

特殊機能 


以上で解説した機能のほかに フアンクシ 
ョ ン キーに割り当てられた機能があります。 
F 1 ラインモードでの座標表示と角度 
表示の切り換え 

F 3 マウススピード 高速 

F 4 マウススピード 通常 

F 5 マウススピード 低速 

F 6 パーツ呼び出し 

F 7 パーツ登録 

特によく使用するのは F 6の機能で I よ 
う。この機能とコピーモードの OR を組み合 
わせることでエアブラシ風の処理をするこ 
とも可能です。 

また，タイルパターンを右クリツクする 
ことでタイル エディツ トモードに入ります 0 
左端にある白と黒のパターン以外は自由に 
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エディツト可能です。基本•パターンが気に 
いらない人はどんどん描き換えてみてくだ 
さい。なお，基本パターンのほか，2つの 
拡張パターンファイルを持つことができま 
す。 

最後に 


設計ミスによりエアブラシの機能を付け 
ることができませんでしたのでパーツのコ 
ピーにより代用するようにしました。いち 
いちタリックするのは面倒だという方もい 
らっしゃるでしようが，ここは我慢してく 
ださい。 

clear 文で 40 K バイトもの領域を確保して 
いますがマシン語部分は少しで，残りはデ 
ータの退避/呼び出し， G - RAM との切り換 
えに使っています。メモリマップは以下の 


.おりです。 

600 Oh 〜 609 Oh 
60 A 0 h 〜 60 DBh 
60 F 0 h 〜 60 FFh 
610 Oh 〜 617 Fh 
6180 h 〜 61 FFh 
620 Oh 〜 631 Ah 
640 Oh — 651 Ah 
660 Oh 〜 6 A 32 h 
7680 h 〜 7 CFFh 
7 F 00 h -7 F 2 Fh 


アイコン関係 
退避/転送 
ファイル関係 
アイコン拡大 
ノレーぺ移動 
ディスクアイコン 
ダミーアイコン 
アイコン用ワーク 
スプライン処理 
スプラインデータ 


BASIC フ 。ログ ラムはフリーエリアの 関係 
上，コメントを減らしていますので非常に 
見づらいものになってしまいました 0 sere 
en ， color などのパラメータにも意味があ 
りますので注意してください。またチエツ 
クサムは10行ごとですので信用しすぎない 
ように0 



このプログラムは EMM を使うことでいつ 
そう快適な操作環境を作り出します 。 EMM 
ボードを実装されている方はぜひ試してみ 
てください。 

Profile 

◊森中さんは大阪府にお住まいの34歳，現在会 
社員です。マイコン歴は約8年。 Aplle, PET か 
ら始まり PC- 8001, 9801, Macintosh, MZ- 2500を 
使うベテランです。 


リスト 1 QUICK MZ PAINT 


10 



20 ( 

luick MZ 

Paint V a r 

30 • 



40 

By 

Minoru Mor 

50 

60 • 

70 CLKAR 

$6000 : 

B1.0AD MP. ob 


J ■' •- HI.0AI) 

I) K C R K K :; 


SPUNK, oh , 


80 DKF INT A l : OPTION AN01.K 
90 DEF lSR-$60K0 
100 

110 INIT CRT2 ： 640,400,16 ：IN FT CRT ：,.. 〇 : KLt ST 0 

120 

130 DIM At.2 5 7) .COP U 5 000：! .SMulOOi .TILE (7,7) , LI N<5.« 

HO DIM TILE$t30.< .FILE $(64) f FILEl* 1.641 . IC$ (64' . ICU *64 j .DISKS «3i . M01SES i7) , PAR 
T* (2 ； 

150 CLICK OFF : CIS 3 : VIKWf* U.1.'(0 ► 0 ；• : M DTH 4 0.25 

160 

170 L0CATK 5,7 : PRINT Q u i c k M X I ， a i n 1 

180 LOCATE 7,11 : PRINT Now S e » t i n « ! 

190 • 

200 K I N 4 1 ： b a s » c. t i I e : G0SUB 1 1 9 2 0 : G 0 S l B 12110 : GOSl'B 12370 

216 HH1-PEEK\S584> : HM2-PEEK : RM3-PEKK <$586j : K M 4 - P K E K i 4 5 8 7 j 

220 POKE 4584 .$20.$21.$28.$29 

238 POKE S7F0O.1 : POKE $ 7 K 0 D, 3 : POKE S7F20.2.2 : POKK 1-7F2M. 2. « 

24 0 - 


'HE-START 

ON ERROR GOTO *ERR0R : IF EMM THKN CLS : GOTO 300 
EMM»0 ' EMM トアリ ナ； 

IF EMM ELSE GOTO 300 
COPY ALL 1 : Paris* , EMM: 

OK KKY GOStB cKEYl..*KEY3.*KEY4,*KKY5.*KEY6.,,*KEY9 
KEY U) ON : KKY (3i ON : KEY H) ON : KEY (5) ON 
OH HELP G0SUB *HELP 
OS STOP GOSUB *RETL:RN : STOP ON 

CLS 2 : FOR 1*1 TO U : COLOR-(1,0) ； NEXT 

COLOR 7,,.1 : COLOR -(1.15) , (2,15j , (3,10：., 14,4) , (5.4) , (8.15f . {9,15) 


250 
260 
270 
280 
290 
360 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 

410 SP-$768& : SP1-S7C0O : KESI-2 
4 2 0 DISKSU)- FD1：' : DISKS (2) - _ FD2 
430 
888 
440 


SM0UE- 0.: Ll-0 
KAK-1 : KA 卜 0 
LO1-0 : L02=8 
DR3-0 : UR 卜 


L2-0 ： 1.3-1.1 ： L4-L2 : M0DK 0 : M0U-0 ： L I N - 0 ： COL > 1 ： C0l-0 
LPEN-0 ： S H A ^ 0 ：C K > 0 : GS1-0 : GET1-1 : GET 2-0 
BOX-0 


DR2- 


DR$- 


: IF EMM THEN DH2-3 
M0JI-2 : TRY-0 
： D1SK* (3 い EMM ： 


DR$- EMM : 


r a 


450 

460 

470 

480 

490 

see 

510 
520 
536 
540 
550 
56 0 
570 
580 
590 
600 
610 
620 


LIN { O )-$ FFFF ： LINil )-$ FFF 0 ： LINi 2 i - SKF 0 O ： LIKi 3 )-$ F 0 FO ： LlN ( 4 i -$ Fm ： LINi 5)-$8 
PS1-0 : PARTS (0)Parts!. 6 ra : PART$ (1)-"Hirts2.«ra ' : PART${2) -Parts3.g 
OPENFILE-O : IF EMM THEN 0P$- EMM：New File ELSE 0P$- FUl : New File 


MOUSE 0 : PRIORITY 16 : SCREEN ,,,,1 

LINE (0, 0:i - (639, 3991 •, B : LINE (99,19. (620.34 1»,.BF 

LINE (16,16)-(79.271),,B 

LINE (99, 350 い（ 620, 390} , ， B: LIME (1 50, 359) -(150,390) 


GOSUB 11999 

LINE U 04 . 355) -(14 5. 385) . » B 


: PAINT (120, 37e).0,1 
: LINE (16,1)-STEP (63 ， 14)，¢ 


,BF 


LINE ( 16, 283)- ( 79 , 390) ,,B 
PAINT (2,2} ,HEXCHR$ (WAKU $> ， ！ 

SYMBOL i 35, 289}, PEN 

FOR 1-0 TO 4 : PEN 丨： LINE (26.311+1*16)-STEP (40,0) : NEXT ： PEN 0 

GET_ (17, 284) - (78. 389) ,SM(0) ：LINE ( 1 7,284) - (78, 389) .0,BF 

FOR 1-0 TO 5 : LINE ( 26 . 295+1*16)-STEP (4 0.0) ,,,LIN i 1) : NEXT 

GET# (17, 284) - (78, 38-9) S M ( 3 4 0 01 : L 1 N K ( 1 7 . 284) - (78. 389) , 0, BF 
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630 SYMBOL {30 , 287) .Quick,1,2 

64 0 SYMBOL (36, 3231 , M 7 . . 1.2 

6 50 SYMBOL { 30 , 355) , Pa i nt .1•2 

660 GET ❷ (1 7, 284) - ( 78, 389) ,SM (17 00) 

6 7 0 LINE (518.2)- (619.17) ,,BF : SYMBOL ( 524, 2) , 0P$.,, 0 
680 VIEW ( 100 , 20)-(6 1 9, 34 1)) : WIDTH 80. 25 : VIEW 
690 PUT« (2,1)-(9,16),A 

700 M- 100 :N-100 : M1-M ： N1-N : MOUSE 5,4 ： MOUSE -4 ,17, 20, 6 1 9, 380 
710 MOUSE 1,M,N f 1 
720 • 

730 ON MOUSE GOSUB ，本 T1 ， *T2 

740 MOUSE OK : SCREEN .,.,2,(15) : PEN 0 : VIEW (100. 20) (6 1 9, 340) 

750 IF HEL-0 THEN HELP OFF 
766 M-MOUSE(e) : N-MOUSE (1) 

770 IF M>99 AND N<34 1 THEN 930 

780 IF LIN THEN LINE {Ml,20j-STEP (0.320).0 : LINE (100,N1) -STEP (526. 0),0 
790 MOUSE 】"，〗•• PRINT CHR$ (1 li ； Select : : COLOR (4.4) 

860 M-MOUSE (6) : N-MOUSE (1) 

810 IF M>99 AMD N<341 THEN 930 
820 IF N>270 THEN 850 
830 MOU-1 : GOTO 800 
840 * 

850 IF M>155 AKD N>351 THKN MOU-3：GOTO 800 
860 IF H<75 THEN M0U-4 ： G0T0 800 
876 MOU-0 ： GOTO 800 
880 • 


890 *T2 : MOUSE OFF ： M2-M0USE (0) : N2'M0USE(1) 
909 IF M2>186 AND M2<616 AND N 2 > 3 5 5 THKN 56 0 0 


910 

920 

930 

940 

950 

960 

970 

986 

990 

me 

1610 

1020 

1030 


MOUSE ON : RETURN 

MOU-2 ： KEY ON 
IF LIN-9 THEN 1630 


MOUSE 丨 … 0 

LINE (Ml,20)-STEP (0,320),0 : LINE 
LINE (M,20)-STEP (0,320),2 : LINK 

Ml-M : Kl-H : PRINT CHR$ (11,32) : M；N 
M-MOUSE (e) : H-MOUSE (1) : IF M-Ml AND 
IF M>99 AND N<341 THEN 969 
KEY OFF : KEY (1) ON : KEY (3) ON : 


100, N 1)STEP (520, 0),0 
JOO,N* -STEP 1.5 2 0 . 〇し 2 


-N1 THEN 990 


KEY ( パ ： KKY (5) ON 


COLOR- (4,15) ：IF MODE-4 THEN COLOR- (4.4) : 


1.1,MOUSES (KESI) : GOTO 105 


1 04 0 IF MODE-9 THEN COLOR- (4,4) - MOUSE 2,1,1,MOUSESMOJ!) 

1 050 : PRINT CHR$ (11,32) : H ； N ； : M>MOUSK >0t ： N>MOLSE (1) 

1060 IF H>99 AND N<341 THEN 1050 

1 070 IF MODE 4 OR MODK 9 THKN MOISK 2 ,1.1.M 01 S K n. . 0» 


1080 GOTO 1010 
1090 * 

110 0 ON SMODi* GOTO .12! 0,1340 , MOO. HG0.11G0, 1560 


1110 

] 120 1.2 i.N-306 ； Y16 : IF L2 く 0 OR L P E N 1.2 THKN KKTLKS 740 
I 1 ： U» l.r.PATK m . | I- K N * 19 : PRINT : : 1.0 (： Al K M , I *> ： fh I M . 

1140 l.PKN-1.2 : SM0UE*1 : KKTIHN 740 
1150 1 

1 160 L2- (N 2 90)Y 16 : IF L2<0 THEN L2-0 
117 0 IF S1IA L2 THKK RETl RN 740 

1ISO LOCATE 9.SHA+18 : PR I NT " ; : LOCATK 9,1.2+U : PKI NT へ； 

1190 SIIA-1.2 : SM0DE»6 : RHTIRN 740 
1 200 - 

1210 IF N<290 THKN RETCRN 740 
1220 IF N>337 THEN 1280 

1230 L2 - (N- 290j Y16 : IF L2>1 OR GET1 1.2 THFN RFTCRN MO 
1 24 0 CREV> ii. 18-CETli - i8,GET1 * 18).0 
1250 CREV> (3.18- L2：« - *8,18^L2),1 
1260 GET1-L2 : RETURN 740 
1 27 0 - 

1280 L5- (N- 337) Y16 

1 29 0 IF GET2-I.5 THEN RETIRN 740 

1 300 CREV^ (3,2 い GET2} (8.GET2+2",0 

mo CRE\> (3, 21^L3；» - (8. 21-L5).1 

1320 CET2-L5 : RETURN 740 

1330 

1340 IF N<320 OR N>367 THEN RETCRN 740 

1L2- (N- 320 jY16*1 : IF MOJ 1 * L2 THFN RETIRN 74 0 

136 0 CREV@ (3,19-MOJI) - (8,19-MOJI) ,0 

1370 CREV? (3,19*L2> - (8,19M.2；,1 

! 380 M0JI-L2 : RETURN 740 

1390 ' 

1400 IF N<306 OR N>351 THEN RETURN 740 

14 10 L2*iN -S06iY2 3 : IF B0X-L2 THEN HETIRN 740 

1420 CREVe (3,19^B0X1*2) - (8.B0\*2< 19) ,0 

14 30 CREV^ (3.19*-L2*2.i (8,19-L2*2),1 

1440 B0\ 、 L2 : RETIRN 740 


1450 

1460 IF N<304 OR N>364 THEN RETURN 740 
1 4 7 0 1. 2 - i ： N - 3 0 4 ) Y 3 2 + ( M V 4 7) * 2 + 1 
1480 IF KESI 1.2 THEN RETIRN 740 
U90 VIEW : SCREKN ….1 

1500 Kl-24+(KESIY3)*26 ： K2-343-(KES! MOD 2)*39 
1510 LINE (K l , K 2 ：» -STEP (22,21) ,0,B 
1 520 K124ML2Y3j *26 ： K2^ 3 4 3 - (L2 MOD 2) *39 
1 530 LINE i K I .K 2) -STEP (22,21)，，B 
1 54 0 K E SI - L 2 : KETURN 740 


1 550 * 

1566 IF N<292 OR N>382 THEN RETURN 740 

157 0 L 2 - •； N - 2 9 2» Y 4 5 : ! F L2-CR THEN RETIRN 740 

1580 VIE« : SCREEN ,…1 

1 590 LINE (26. 292*CR»4D) STEP t “，4 4 :• ， 0 ， B 
1600 LINE (26, 2 9 2^L2»4Cj - STEP <： 4 4 . 4 4 ) . , B 
1610 CR-L2 : RETIRN 740 


1620 

1630 *T1 : MOUSE OFF 

1640 KEY OFF : KEY (If ON : KEY (3) ON : KEY (4) ON : KEY (5) ON 


56 Oh ! X 1988.2. 


►令 N のシャープ常龙所のみ々， MZ の IPL ROM でお騒がせしてすみません 〇 でもユー 
ザーサポートは忘れないでくださいね！ 私は Super MZ 発表会の「できる限りサポート 
を紋ける！ j という，？装を f / f じてこの娘 ( MZ -2500) を H つたのですから。 

闕旅史 （20) 删県 


1 6 50 OH MOl GOTO 1 680 , 2 54 0 , 1890, 1090 
1660 RETURN 740 
1 670 ' 

1689 LI-<MOUSE (0)-17)Y31 ： L2 - (MOUSE (1)-19iY3 2 
1890 IF L1>1 OR L2>I5 THEN RETLHN 740 
1700 M0DE-L2*2^L1^1 

1710 U-LU4 卜 2 : L2"l-2*2 •1 

1720 IF MODE THEN CREV ❷ (L 3,L 4i - (L3*3,L4 -1 i ,0 
1739 CREV ❷ (LI,L2; - (LI 1),1 : L 3 » 1.1：L 4 L 2 

17 40 - 

1750 HELP OFF 

1760 IF M0DE>19 AND M0DE<16 THEN LIN=1 ELSE UNO 
1770 IF MODE-3 OR MODE>10 THEN GOSIR *COLORI 

1780 IF MODE-9 THEN GOSIB 2200 : GOTO 1880 

1 790 IF MODE-11 THEN GOSIB 2 4 4 0 : GOTO18«0 

1800 IF MODE-16 THEN GOSIB 2010 : GOTO 1880 

1810 IF M0DE>11 THEN GOSIB 2070 : GOTO18hO 

1820 IF MODE-7 THEN GOSUB 2120 : GOTO 1880 
1830 IF MODE-10 THEN GOSUB 2270 : GOTO 1880 
1848 IF MODE-4 THEN GOSUB 2340 : GOTO 1880 

1850 IF MODE-2 THEN GOSUB 86R0 : GOTO 8220 

1860 IF MODE-1 THEN GOSUB *SBO\ : GOTO GS80 

1879 GOSUB *SBOX 

1880 TRV-1 : RETURN 740 
1898 * TILE 

1900 Tl-(M-155)Y31 : T2 - (N- 35 5) V15 

1910 TIL-T2*15 + T1 + 1：IF COL-TIL THKN RKTIRN 7-10 

1920 COL-TIL : VIEW 

1930 IF C0L>1 THEN C01-1 ELSE CO い 0 

1 94 0 SCREEN ""1:UNE ( 105, 356)-( 1 4 4. 384) , 0, RF 

1950 PAINT (12®, 370),TILES (COL) f 1 : RKTIKN 74 0 

1 960 ' 

1970 *C0L0R1 

1 980 VIEW : SCREEN ""1: CO1-0 ： COL-1：L I N E (10 5 , 356) ( H 4 , 384 i , 0, BF ： VIEW (100,2 

0) - (619,340) 

1 990 SCREEN …， 2 : RETURN 
2608 ' 

2010 IF SMODE-1 THEN RETURN 

2020 VIEW : CONSOLE 18,6,0,20 ： CLS : CONSOLE 0,1,0,79 
2030 SCREEN ,",1 :PUT ❺ ( 1 7, 284) , SM (6) 

2040 LOCATE 9,LPEN+19 : PRINT 丫： SMODE-1 
2050 VIEW ( 1 00 . 20)-(6 1 9, 340) : SCREEN，"，2 : RETURN 

2060 ' 

2070 IF SMODE-6 THEN RETURN 

2080 VIEW : CONSOLE 18,6,0,20 : CLS : CONSOLE 0 ， 1,0，79 
2990 SCREEN , ，，， 1:PUT ， (17, 284) ,SM (34 00) 

2100 LOCATE 9,SHA + 18 : PRINT • : SMODE-6 : GOTO 2650 

2110 - 


2120 
2130 
2U0 
215 0 
: MfiO 
2170 
2180 
2190 
2 2 0 0 
22 10 
22 2 0 
2236 
22 4 0 
22 50 
22 60 
22 70 
2280 
22 96 
2300 
2310 
2320 
2H30 
2340 
235 0 
2360 
2370 
2380 
2390 
24 00 
2419 
24 20 
24 30 
2 4 4 0 
24 50 
24 60 
24 70 
2480 

24 90 
2506 
251d 

25 20 
25 30 
2540 
2550 
2650 ， 
25 6 e 
2570 
2580 
2590 
2606 
2610 
2620 
2630 
2640 
2650 


I K 1 ； M()DK 2 THEN RKTIKN 
GOSIB »RO\Cl.H 

LOCATE 4,18 : PR I NT move : LOCATK 4，19 : PRINT r 0py 

I.OCATF ： -1,2 1 : PRINT » r : I.OCATK む 22 : PRINT up 

LOCATK む 23 : PR I NT put : 

CKKV ぎ (3, 18* GFT1)18.18 • (； KT 1),1 : CREV# <3. 21• f ； F ： T2' 21 • GET2}.1 

SMODF-2 : GOTO 2050 

! F SMODF 3 THEN RETIRN 
GOSIB *B()\CLR 

LOCATE 4,18 : PRINT Mode : LOCATK 4.20 : PRINT H * K 

LOCATE 4,21: PRINT 8 * 1 f> : LOCATK 4.22 : PRINT 押 卞； 

CRKV^ (3.19*M0JI) (8,19.MO 川 ， 1 
SMODE ベ ■$ : GOTO 2 0 50 

IF SMODK • 4 THEN RKTIRN 
GOSIB ♦BOXCLR 

LOCATE 4，19 : PRINT 7” v : LOCATK 4,21 :PRINT • ， キ 7 ，； 

LOCATK 4.2 1 : PRINT •，”‘; 

CREV# (3,19 卜 BOX*2 卜 '8.19-B0\*2),1 
SMODE-4 : GOTO 2050 

IF SMODE-5 THEN RETIRN 
GOSIB *RO\Cl.R 

LINE (31,310) -STEP (7,7),1,BF 
CIRCLE (61,3 14 ： i.4 : PAINT (62, 314),1,1 
SYMBOL (28,346). ■ 

SYMBOL (54,346}.#. 

K1-24*(KESIV3)*26 : K2- 34 3- (KESi MOD 2)*39 
LIKE (Kl,K2; STEP ( 22 , 21；« .15. B 
SMODE-5 : GOTO 2050 

I F S M 0 D F. - 7 THEN RKTM KN 

GOSIB ♦BOXCI.R : L I HC1.K i4«,Sl4i,15 

CIRCLE (48, 360) f 15,... 2 : CIRCLE >48. 360).15.5 

LINE (26,292+CR*46| STEP (44,44)，.B 
SMODE-7 : GOTO 2050 


♦BOXCLR 

VIEW : CONSOLE 18,6,0,20 : CLS : CONSOLE 0,1,0,79 
SCREEN "..1 :LINE {17.284)-(78,389).0,BF : RETURN 

HE い 0 

ON MODE GOTO ,, 4170,5480,4520 .3720.3750,4210, 5160, 2980, 3390,3210.2840,2650 
2 596 

RETURN 740 
•PEN 

PEN LPEH 

SCREEN ， … 1:PSET (M, NK C0L1 
IF MOUSE (2,1 い 0 THEN 2640 

M»MOUSE(0) : N»M0USE(1) : L F NE -(M ， N し C01 
M 1-M ： N 1-N : PRINT CHR$(1),32) ； M ； N ； : GOTO 2610 

RETURN 740 
• Line 


►子供屯活相談室を WJ いていた。 「ロボットに 心はありますか」「あります。 ロボットの 心 
はそれを作った人，使う人の心で…… J 。 Oh ! X を読んでいると納沿してしまうような答 
でした。これは反省しなければならないと思うのでした。 径澤克美（18> 岡山似 
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2666 IF MOUSE (2,1)GOTO 2660 ELSE CLS 2 

2670 L1NE1-M ： LINE2-N : M1-M ： N1«N ： LINE (M.20) -STEP (0, 320) , 2：LINE (100,N)-STEP ( 
520, e) r 2 

2680 IF MOUSE (2.2) THEN 2830 
2698 IF MOUSE (2,1)THEN 2780 

2 76 0 M-HOUSE (0) : N-MOUSE (1)：IF M-Ml AND N-N1 THEN 2680 

2718 LINE (Ml,20)-STEP (0 ， 320) , 0 : LI NE i 100. N 1) - STEP (520, 0),0 

2720 LINE (M,20)-STEP (0,320).2：LINE (108, N)-STEP (520,0),2 

2730 SCREEN , , ,, 4：LIHE (LINEMINE2) - (M1,N1) ,e：UNE (L I NE 1,L I NE2) - (M,H) ,4, ,L1H ( 
SHA) 

2740 SCREEN，"，2 : M1-M ： N1-N ： IF KAK THEN PRINT CHR$(11, 32) ； M ； N ； : GOTO 2680 
2750 KA1-N-LINE2 : IF KA1 THEN KA 1 ATN { (M-UNE1)/KA 1)* 10 
2760 PRINT CHR$(11,32) ； KA1/10 ； - , ": CHR$(5) ；： GOTO 2680 
2770 • 

2780 SCREEN ， ” ， 4:L1NE (L I NE 1,L I NE2) - (M, N) , 0 

2799 PEN LPEN : SCREEN ,, ，， 1:L1NE (LINE1.LINE2) - iM,N),COl,.LlN(SHA：i : PEN 0 

2809 IF MODE-15 THEN RETURN 740 

2810 SCREEN … ，2 : LINE1-M : LIHE2-N : GOTO 2760 
2820 ' 

2830 SCREEN ,,, ， 4:LINE (LINE1,LINE2)-(M,N),0 : RETURN 740 
2840 * box 

2856 IF MOUSE (2,1)GOTO 2850 
2860 LINE1-M ： LIHE2-N : CLS 2 
2870 IF MOUSE (2,1)THEN 2930 
2880 IF MOUSE (2,2) THEN 297 0 

2890 M-MOUSE (0) : N-MOUSE (1)：IF M-Ml AND N-N1 THEN 2870 

2900 LIKE (LINE1, LIHE2) - (M1,N1),0,B ：LINE (L!NEl,UNE2j -M.N) ,2,B,UN (SHA) 

2910 M1-M ： N1-N ： PRINT CHR$ (11,32) : M ； N ； : GOTO 2870 
2920 - 

2930 LINE (LIHE1,LIHE2) - (M,N) f 0,B 

294 0 PEN LPEN : SCREEN ,,1：LIHE (L I NE 1,L I NE 2) - (M, N) . C 01,B. L 1 N (Sll A) 

2950 RETURN 749 
2960 ' 

2 9 70 LINE (LIHE1.LIHE2) - (M,H),0,B ： RETURN 740 
2980 ■ box-f 

2990 IF MOUSE (2,1)GOTO 2996 

3000 COLOR- (2.0), (3,0), (4 f 0), (5,15) : MOUSE 1,,,0 

3010 IF COL-1 THEN 30 30 ELSE IF COL-16 THEN SCREEN ,,,,4：LINE (180,26) - (619,340 

),4,BF : GOTO 3630 

3020 SCREEN ""4 : PAINT (329, 206) ,TILE$ (COL) 

3030 SCREEN , . . , 2 : COLOH- (6.15) . «7,15) : I.INH M ： L!NE2-N 
304 0 IF MOUSE (2,1)THEN 3100 
3050 IF MOUSE (2,2) THKN 3200 

3060 M MOUSE (0) ： N MOUSE (1)：I F M-Ml AKi) INI THKN 3040 

3070 LINE U.INF.1, 1.1 NK2; •. M J . N 11 . 0 . BF ： L I N K iL I NK 1.1. ! NK2; M, N) , 2. HI- 

3080 MI M ： N1 N：PR I NT CHR$ '11,32) ； M；N ； : GOTO 304 0 

3090 ' 

3100 SCRKKN ,，，，3 : LINK (UNEM.INE2) - (M.M) .O.liK : IF UNK1>M THKN SWAP LINE!. 
M 

3110 IF 1.1 KE2>N THKN SWAP U N E 2 , N 

3120 IF N>34 0 THEN N340 K I. S E IF 1.1 N E 1 < 10 0 TIIKN 1.1 ME 1■=1 ¢0 

3130 SCREEN _1 : VIEW (LINE1,L1NE2) - (M. M) : PAINT (LINE] 1.LINE2H) ,TILE$(COI.) 

3140 VIEW <100,20) (619. 340) 

3150 IF BOX THEM LINE (U NE1 ， L 1 NF.2) - (M. N) • 0, B 
3160 SCREEN …， 4 : CLS 2 

3170 COLOR - <2.15 ： i, (3.10} , (4.15) . (6, 0) , <7, 0) f (5, 4) 

3180 MOUSE 1… 1:RETURK 740 
3190 ' 

3200 LINE (LINE1.LINE2) - (M.N),0,BF : GOTO 3160 
3210 ' BOX -SP 

3220 IF MOUSE (2,1)GOTO 32 2 0 

32 30 CLS 2 : M い M*30 : Nl-N* 16 : MOUSE 1,Ml. N1,0 

324 0 CONNECT (M+4,N) - {Ml 4,N)-STEP (3,2) STEP (1,2) (Ml,Nl-4) -STEP (-2,3 卜 STEP 
(-2,1)(M - 4, N1 j - STEP (-3, 2) -STEP (-1,-2) - (M, 4) - STEP (2. 3：< STEP (1, 0) , 2, , L I N 

(SHA) : M2-M ： N2-N 

3250 IF MOUSE (2,2) THEN 3370 
32 6 0 IF MOUSE (2,1)THEN 3 3 2 0 

3270 M-MOISE (0) : N*MOUSE (1)：IF M-Ml AND N-N1 THEN 32 50 

3280 CONNECT (M2 + 4.N2) - (M1-4.N2)-STEP (3,2)-STEP (1,2) - (Ml,Nl-4) -STEP (-2,3 卜 ST 
EP (-2,1) - (M2* 4,N1)-STEP (-3,-2) -STEP (-1, 2)- IM2,N2♦4)-STEP (2, 3) - STEP (1,0) ,0 
3290 CONNECT (M2•4, N2)- (M 4,N2)-STEP (3,2) - STEP (1,2)- (M, N-4) -STKP (-2,3)-STEP 
(-2,1) - (M2*4,N)-STEP (-3,-2 い STEP (-1,-2) - (M2.N2+4) STEP (2,-3) -STEP (1,0),2,,LI 
N (SHA) 

3300 : PRINT CURS (11,32) ； M ； N ； : GOTO 3250 

3310 _ 

3320 CONNECT (H2 + 4.N2) - (M1-4,N2)-STEP (3,2)-STEP (1,2) - (M ],N 1- 4) -STEP (-2,3)-S 
TEP (-2,lj (M2M, Kl)-STEP (- 3,-2) STEP (-l f - 2) - (M2, N2-4) -STEP (2,-3) -STEP (1,0), 


3330 PEN LPEN : SCREEN … •1 

3340 CONNECT (M2^4 f N2)- (M1-4.N2)-STEP (3,2) -STEP (1,2)- iM 1,N 1- 4) -STEP (-2,3)-S 
TEP (-2,1)(M2+4, N1) -STEP (-3, 2) - STEP (-1,- 2) - (M2, K2M) -STEP (2, 3) -STEP (1,0), 
0,,LIN (SHA) 

3350 MOUSE 1 ， M ， N,1:RETURN 740 


3360 
3370 
TEP ( 

e 

3380 
3390 
3400 
3410 
3420 
3430 
3448 
34 50 
3460 
3470 
20 

3480 

3490 

3500 

3510 

3520 


CONNECT (H2 + 4.N2) - (Ml4, N2) -STEP (3,2)-STEP (1,2) - (Ml,Hl-4)-STEP (-2,3)-S 
2,1) (M2 + 4,N1) -STEP (-3, 2) - STEP (-1,-2) (M2,N2+4) -STEP (2, - 3) - STEP (1,0), 


MOUSE 1 ， M, 


RETURN 740 


IF MOUSE (2,1)GOTO 34 0 0 

SCREEN . , ,,4 : LIHE1-M : LIHE2-N : C1R1-10 : IF CR THEN 3550 
IF MOUSE (2,1)THEN 3490 
IF MOUSE (2,2) THEN 3530 

CU-HOUSE (6) ： CI2-M0USE (1) : IF Cl 1-CI 3 AND Cl 2-CI 4 THEN 3420 
CIR い ABS (LIKE 1 MOUSE (0)) 

CIRCLE (LIKE1,LINE2) ,CIR2,0 : CIRCLE (LI HE 1,LlNE2) ,CIR1,4 
CIR2-CIR1 : CI3-C11: CM-CI2 ： PRINT CHR$ (11)；" R = ； C I R 1 ； CHR$ ( 5 )； 


CIRCLE (LINE1,LINE2),CIR1,0 

PEN LPEN : SCREEN ,,"1:CIRCLE (L I NE 1,L IHE2) ,CIR1,C01 
MOUSE 1,M.N,0 : RETURN 740 
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► MZ -80 I / O には確かに MBUS という信 Vi . 線があり， I / O ボックス内のデータバスの方 
向を変えることはできますが， K / C 本体のほうはモード0や2の割り込みがかかつたとき 
にデータバスは切り換わらないので XI のボードを接続するためには本体の改造が必要な 
場合があります。 鈴木典雄 （18) 千葉貼 





3530 CIRCLE (LINE1,LINE2),CIR 1,0 : GOTO 3510 

3540 - m 

3559 XC-1 ： XC1-1 

3580 IF MOUSE (2.1) THEN 3660 

3570 IF MOUSE (2.2) THEN 3700 

3580 Cl 1-MOUSE (0) : CI2-M0USE (1) : IF Cl 1-CI3 AND Cl2-CI4 THEN 3560 

3590 C1R1-ABS U. INK1 MOUSE <0) i ： l. INKS = CI?-N ： IF I,INFS=0 THEN XOl : GOTO 3620 
3600 IF LINE3>e THEN XC-LINE3/7+1 : GOTO 3620 
3618 XC-l-ABS (LINE3/7)*.05：IF XC<0 THEN XC-. 001 

3620 CIRCLE (LINE1,LIKE2),CIR2, 0 ,,,XC1：CIRCLE (L I NE 1 ， LI ME 2} ， CIR 1 ， 4 ，，， XC 
3630 CIR2-CIR1 : XC1-XC : X-I NT (XC*1 600) / 1 000 

3649 CI3-C11 : CI4-CI2 : PRINT CHR$ (11)；' ； X ； CHR$ (5) : : GOTO 3560 

3650 - 

3660 CIRCLE (LIKE 1,LI HE 2),CIR1,0,,,XC 

3670 PEN LPEN : SCREEN ,,,, \ : CIRCLE (LINE 1,L1NE2) ,CIRl,C0l,,,XC 
3680 MOUSE 1 ， M ， N,0:RETURN 740 
3698 * 

3700 CIRCLE (LINE 1,L I HE 2),CIR 1, 0 ,,,XC : GOTO 3680 
3718 TAINT 
3720 GOSUB 13890 

3730 SCREEN ",,1 :PAINT (M f N) ,TILES (COL) ,C0L1 
3740 HELP ON : HEL-1 : RETURN 740 
3750 - COPY* 

3760 IF MOUSE (2,1)GOTO 3760 
3770 LINE1-M ： LINE2-H 
3780 IF MOUSE (2,1)THEN 3840 
3790 IF MOUSE (2, 2) THEN 4 6 5 0 

3809 M-MOUSE (9) : H-MOUSE (1) : IF M-Ml AND N"N1 THEN 3780 

3810 LINE (LINE1,LINE2) - (M1,N1),0,B : LINE (L1NEM.IKE2) - (M, N) . 2.B 
3820 M1-M ： N1-N：PRINT CHR$ (11,32) ； M ； N ； : GOTO 3780 

3830 * 

3840 IF H<LINE1 THEN SWAP H,LIHE1 

3859 IF H<LINE2 THEN SWAP N,L1KE2 

3860 MOUSE 1,,,0 : LINE (L I NE 1,L I HE 2) - (M, N) r 0 , B : LL1 = L.IKE1 : LL2-LINE2 
3870 VIEW : M0V1-M-LIHE1+1 : M0V2-N-LINE2+1 

3880 MOUSE 4,180,2fl, 620-HOV 1,341-M0V2 : MOUSE 1 ， L I NE 1,L 1 NE2,0 
3890 * 

39 0 0 COLOR- (8,0), (9,0), (2,0}, (3,15) 

3910 IF GET2 THEN COLOR- (2,15) 

39 20 IF GET2-2 THEN GET# (L I HE 1,LIHE2)-(M,N),COP 
3938 COLOR REPLACE (LINE 1,LINE2) - (M,N), (®,8), (j,3) 

3940 IF GET2-1 THEN COLOR- (2,IS) : SCREEN ， … 2:VIEW (L I NE 1,L I NE2) - (M,N) : PAINT (L 
IHE1 + 1,LIHE2+ 1),0, 0,8 ： VIEf! 

3956 IF GET1-6 THEN PAUSE 2 : SCREEN ， … 1:LINE (L 1 NE 1,L I N E 2) - (M,N) , , BF 
3960 SCREEN ,,,,10 : GOTO 4030 
3970 ^ 

S980 FF MOUSE (2, 2 ) THEN 4150 
3990 IF MOl SE (2,1)THEN -1090 

4 0 0 0 C0P1-M01SE (0) ： C0P2^M0L：SE il) : IF COP I - C0P3 AND C0P2 =C0P4 THKN 3980 
4010 MOVE (L!NK1,LIHE2) .M0V1.M0V2, (COP1,COP2« ,,0 
4 020 LINE 卜 COP〗：LIN E 2 C 0 P 2 : PR I NT CHR« ill.32) ；COP 1;C0P2 ； 

4030 C0P3C0P1:C0P4 C0P2 : GOTO 3980 
4 0 4 0 - 

4050 LINE I ； L I N F 1,L I N E 2) - i M , N) , 0 , B 

4060 VIEW ( 1 0 0 , 20)(619,340) : SCR KEN ,,, , 10 : CLS 2 : COL0R • 2,15) . (3,10 i 
4 0 70 MOUSE 4 ,17, 2,0 , 619, 3 8 0 : MOl SE l,LlNKl,LfNE2,l : RETURN 740 
4 080 - 

409 0 IF GET2-2 THEN SCREEN ,…1: PUT? (LINE1.UNE2) ,COP：GOTO 4120 
4100 IF GET 2 0 THEN COLOR REPLACE (L INE 1.L I NE2：» -STEP (M0V11.M0V2 -1),(9, 0) , (0,8 
),(1,8) : GOTO 4120 

4110 COLOR REPLACE (L I NE 1,L I NE2) - STEP (M0V11 , M0V2 -1), *9,8) , (2,3) 

4120 IF CET1 THEN 3960 
4U0 GOTO 4 060 
4 140 - 

4150 CLS 2 : GOTO 4060 
4160 ' ERASE 
\ 170 GOSUB 13090 

41S0 SCREEN ""1 :LINE (1 00 , 20i - (6 19, 340) , , BF 
4190 HELP ON : HEL=1 : RETURN 740 
420 0 • SPLINE 
4210 COLOR- (2,10) 

4220 POKE $584,$22,$23.$2A,$2B : POKE SP1,$20 : CALL SP 
4230 IF MOUSE (2,1)GOTO 4 2 30 ELSE LINEl^M : LINE2-N 
4 2 4 0 IF MOUSE (2,2) THEN 45 0 0 
42 50 IF MOUSE (2.1)THEN 4 30 0 

4 2 6 0 M-MOUSE (0) ：N = MOUSE (1) : IF M = M1 AND N-N1 THEN 4 24 0 

42 70 LINE (LINE1,LINE2) - (Ml.Nl),0 : LINE (LINE1,LINE2) - (M.N) .2 

4280 M1-M ： N1-N : PRINT CHR$(11,32) : M:N ； : GOTO 4 24 0 

4290 ' 

4300 MOUSE 1，"0 : MOUSE 4,0,0,639,399 : MOUSE 1,M, N, 1 

4310 POKE $7F01, LINE1 MOD 2 5 6 ,LINE1Y25 6 , LINE2 MOD 256 , LINE2Y256 : POKE $7F09, M 
MOD 256,MY256,N MOD 256, NY256 
4320 IF MOUSE (0)-M AND MOUSE (1)-N THEN 4 320 
4330 LINE (L INE 1,L INE2)- (Ml,N 1),0 

4 34 0 S1 = MOUSE(0) : S2 = M0USE(l；t : PRINT CHR$(11, 32) ； S1 ； S2 ； 

4358 POKE SP1,0 : POKE $7F05 ， S1 MOD 256 ， S1Y256 ， S2 MOD 256,S2Y256 
4360 CALL SP 

4370 IF M0USE(2 ， 1) THEN 4370 
4380 IF MOUSE(2,1) THEN 4440 
4 39 0 IF MOUSE (2,2) THEN 44 7 0 

4400 IF MOUSE (0) -SI AND MOUSE (1)-S2 GOTO 4 380 
4410 POKE SP1,$28 : CALL SP : POKE SP1,0 
4420 CALL SP : POKE SP1,$20 : CALL SP : GOTO 4340 
44 30 • 

4440 POKE $584,$20, $21,$28,$29 : POKE SP1,$28 i CALL SP : POKE SP1,0 ： CALL SP 
4458 POKE $584,$22,$23,$2A,$2B : GOTO 4429 
4460 ' 

4470 MOUSE 1"，0 : MOUSE 4,17, 20 , 6 1 9,380 : MOUSE 1,Si,S2,1 

4486 POKE SP1,$28 : CALL SP : POKE SP1,0 : CALL SP : POKE SP1,$20 : GOTO 4510 
4490 * 

4580 LINE (LINE1,LINE2) - (M» N) .0 
4510 C0L0R-(2,15) : RETURN 740 

4520 • A-a' 


► 88 甩 “ SWORD ” のバグ担当の方ありがとうございました。質問電話のあとすぐ“ SWORD ” 
が起動しました。12月18日を S - OS “ SWORD ” 記念 n にします。起動した瞬問は天にも昇る 
気持ちでした。 久松利昭 （20) 大分県 


特集 QUICK MZ PAINT 59 


4530 IF MOUSE (2,1)GOTO 4530 

4540 MOUSE 1,,,0 : COLOR-(2,10} ， （ 4,10) , (5,10) , (8,15},(10,10) 

4550 • 

4 56 6 IF M>395 THEN A1-104 ： A2- 2 96 ： A3- 320 : A4 - 300 ELSE A 1 -424 ： A2-616 ： A3-0 : A 
4-400 

4570 SCREEN ，，貧， 11:VIEW : GET© (Al,112) - (A2, 340) ,COP : GOSUB 11770 
4 580 * 

4 590 POKE $584, $20,$21,$28,$29 

4686 IF M<114 THEN M-100 : GOTO 4 6 2 0 ELSE IF M>596 THEN M- 596 : GOTO 4 6 20 
4610 M-M-12 : M- (MY4)*4 

4620 IP N>316 THEN N-316 : GOTO 4640 ELSE IF N<33 THEN N-20 : GOTO 4640 
4630 N-N-12 

4640 SCREEN，"，4 : Jl-M-1 : J2-N-1 : LINE (J1,J2) -STEP (25, 26) , 4 , B : SCREEN 
11 

4650 H1-MV8 : IP (M MOD S) >3 THEN J-$BD J M-Ml* 卜 4 ELSE J-$91 : M-MU8 
4660 H1-$50*N+M1 : POKE $6181, N1 MOD 256,$801Y256 : POKE $618F,J 
4670 IF Al>400 THEN POKE $6184, $35 ELSE POKE $6184, $D 
4680 CALL $6180 
4690 * 

4700 MOUSE 3 ， 0 ， 12:MOUSE 3, 1，12 

4710 MOUSE 4,Al + 4 t 116^2-4, 336 ： M0USE 1,Al 116,1 
4720 • 

4730 IF MOUSE (2,1)THEM L01-8 ： L02-5 : GOTO 4 7 76 
4740 IF MOUSE (2,2) THEN L01-1 ： L02-4 : GOTO 4770 
4750 GOTO 4730 
4760 * 

4779 L0P1-M0USE (0) : L0P2-M0USE (1) 

4780 IP L0P2>311 THEN 4850 ELSE I-PO I NT (LOP 1,I.0P 2) 

4798 IF I<4 OR I>5 THEN 4830 

4800 IF I-L01 THEN 4836 

4810 L0P3-M+ (L0P1-A1)V8 : L0P4-K+ (L0P2 - 112)Y8 

4820 MOUSE 1，"0 : PAINT (L0P1.L0P2) ,L01, 2, 3 : PSET (LO P 3, 1.0 P 4) , LO1 : MOUSE 1, 

，， 1 

4830 GOTO 4730 
4840 ' 

4850 L0P1-M0USE (0) : LOP2-MOUSE (1) 

4860 IF L0P2<321 THEN 4730 
4870 * 

4880 IF LOP1>580-A3 THEN 5120 

4890 IF L0P1>499-A3 THEN 4730 

4 90 0 L0P3- (L0P1-A1)V20+1 

4910 ON L0P3 GOTO 4930, 4950,4990, 5620 

4920 GOTO 4730 

4930 N-N-4 : IF N<20 THEN N-20 : GOTO 5050 HLSE GOTO 5050 

494 0 ' 

4950 N-N>4 ： IF N>316 THEM N-316 : GOTO 5050 

4960 IF A3 AND M<A4 AND N>86 THEN N-N 4 : GOTO 4730 

4 970 IF A 3-fl AND M>A4 AND N>86 THEN NU : GOTO 4 7 30 ELSE GOTO 50 5 0 
4 980 ■ 

4 99 0 M-M 4 ： IF M< 100 THEN M-100 : GOTO 5050 

5000 IF A3 AMD M<A4 AND M>86 THEN M > M M : GOTO 4 730 ELSE GOTO 5 0 50 
5010 - 

5020 M=M^4 ： IF M>596 THEN M=596 : GOTO 5050 

5030 IF A3-0 AND M>A4 AND N>86 THEN M M 4 : COTO 4730 ELSE GOTO 5050 
5040 * 

5050 SCREEN ,,.,4 : LIKE (J 1,J2)-STEP (25, 26), 0,B 

5966 J 1-M-1 ： J2-H-1 : LINE (J 1.J2) -STEP ( 2 5 , 26) , 4 . B : SCREEN ,"，11 
5070 M い MY8 : IF (M MOD S) THEN J-$BD ELSE J-$91 
5080 N1-$50*N+M1 

5090 POKE $6181,N1 MOD 256,S80+H1Y256 : POKE $618F,J 
5100 CALL $6180 : GOTO 4730 

5110 - 

5120 MOUSE 1,,,0 ： PUT? (Al,112) f COP : SCREEN，，，，4 

5130 LIKE (J1,J2)-STEP (25,26),0,B ： C0L0R (2,15), (4,15), (5,4), (8,0), (10,0) 

5140 MOUSE 3,0,8 : MOUSE 3,1,8 

5150 MOUSE 4,17,20,619,380 : MOUSE 1 ， M ， N ， 1: RETURN 740 
5160 • モシ ， 

5170 CONSOLE 18, 6, 15,61 

5180 MOUSE 1,,,0 : MOJI 1-1：MOJI 2-1 ： MOJI3-1 : MOJI 4-1 

5190 LIHE1-M-lOO ： LINE2-N-20 : M2 = M ： H2-N 

5200 IF MOJ I > 1 THEN M0J15-0 ELSE MOJ15-1 

5210 COLOR- (8,0) , (9.8) : SCREEN ,,,.8 

5220 LINE (1 08. 316) - (6 1 2, 338) . 8,BF 

5230 KEY 0 . ~" : IF MOJI -3 THEM VIEW (0, 0)-(639, 379) : INIT "KB：,,, r 

5240 LOCATE 15,20 : PRINT "input = : INPUT MOJI$ 

5250 FOR 1-1 TO 2 ： A$-INKEY$：INIT 'KB ： ,,,0" : NEXT 
5260 CLS : VIEW* 

5270 LINE (108, 316) - (612, 338), 0,BF 

5280 SYMBOL (L1NE1 ， L l NE2) ， MOJU ， MOJ11,MOJI 2 ， 8,,•MOJI 5 
5290 - 

5 306 IF MOUSE (2.1)THEN 5 4 30 
5310 IF MOUSE (2,2) THEN 5450 
5320 MI-MOUSE (0) : N い MOUSE (1) 

5330 IF M1<M THEN M い M 

5340 IF N1<N THEN Hl-K 

5350 M0JI3* (Ml-M)Y10+1 : M0JI4- (Nl-N)V1041 
5360 IF MOJI3>4 THEN MOJ I 3-4 
5370 IF MOJ I 4>4 THEN MOJI 4-4 

5380 IF M0JI3-M0J11 AND MOJI2-MOJI4 THEN 5290 
5390 SYMBOL aiNEl,LIHE2),M0JI$,M0JIl,M0JI2,0,,,M0JI5 
5 4 00 SYMBOL (L 丨 NE 1 • L 1 HE2 丨， MOJ1 $ , MOJ13 ， MOJ 丨 4 • 8 ， ，， MOJI 5 
5410 MOJI 1-MOJI 3 : M0JI2-M0JI4 : GOTO 5300 
5420 ■ 

5430 SCREEN ,，，，9 : SYMBOL (LINE1,LIHE2).MOJI$,MOJI1,MOJI2,0,,,MOJI5 
5440 GOTO 5470 
5450 ' 

5460 SYMBOL (LlHEl,LINE2),M0Jl$,M0JIl r M0JI2,0, f ,M0JI5 
5470 MOUSE 1 : CONSOLE 0,1,0,79 : RETURN 740 

5480 . ケシ； r ム 

5490 SCREEN ， … 1:VIEW : PRINT CHR$ (11) ； SPACE$ (10) : 

5506 HOUSE 4 , 1 7, 20, 606, 326 ： M0USE :COLOR- (5,4) 

5510 M-MOUSE (6) : N-MOUSE (1) 

5520 IF M<99 THEN 5580 


►1 月兮あなぬの知らない世界で「ようやく Ccompiler PRO -68 K も発売された j に於い 
てカラー 広:*; •を 探す ともっと驚いた。 39.800 1 'J !私は I/O ボックス並の 重装 C を 想像し 
て12川 1 J の f •订を紺んでいたので余った仍•金（くう一っ）で 5 M バイトの此界に突入しま 
す。 瀬戸暢彦 （22) 神奈川姒 
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5530 IF MOUSE (2,1)GOTO 5560 
5546 GOTO 5510 
5550 ' 

5560 COLOR REPLACE (M,N)-STEP (15,15 ) ， （ 4,5} : GOTO 5510 

5570 - 

5580 HOUSE 1",0 : MOUSE 4.1 7, 20, 619,380 

5590 HOUSE 2,1,1,MOUSES (0) : HOUSE 1,M,N,1 : RETURN 740 

5600 * TILE 

5610 VIEW : MOUSE 1",0 : TILE1-(M2-155)V31+((N2-355)V15)*15+1 

5620 SCREEN ,,,,1 :LINE (1 05, 356) - ( 1 4 4 , 384) , 9,BF 

5630 GOSUB 13090 

5648 C0L0R-(2,2) : SCREEN …， 3 

5650 LINE (19 0 ， 55 卜（ 400,304), 1，BF : LINE (190, 55) - (480, 304) , 0.B 
5660 FOR 1-110 TO190 STEP 10 : LINE (210, I) - (290, I) f 2：NEXT 
5670 FOR 1-210 TO 290 STEP 10 : LINE (I,110)- (I, 190) ,2：NEXT 
5680 LINE (310 ， 110)- (380 ， 190} ， 2, B : LINE (31 2,112) - (378, 1 S8) .2,B 
(313, 113)- (377, 187) ， 0， BF 


(206,68) -(384, 90) ， 0,B 
(2 18, 210)- (282,232) , 0,B 
(218, 242) - (282,264) 

(218,274) - (282,296) 


0, B 
0, B 


(310, 242) - (380,264) ,6,B 
MOUSE 3,1,10 


SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 

: SYMBOL 
: SYMBOL 
MOUSE 4, 


Tile Maker 
"Cancel",, 
"Load" … G 


《 218,72), 

(226.214) , 

(235, 246), 

(235,278). 

(324.214) , 

(328, 246). 

2 1 3, 1 13, 370,290 


Change" 
E n <T , 


-VAL r ， A$i 


5690 LIKE 
5700 

5710 LINE 
5720 LINE 
5730 LINE 
5740 LINE 
57 50 

5760 LIKE (310, 210) - (380 ， 232). 0， B 

5779 LINE 

5780 MOUSE 3,0,10 
5798 - 

5800 SCREEN ”"1 :TI $-ASCCHR$ (TI LE$ (TI LE 1)) 

5810 FOR 1-0 TO 7 : A$-MID$ (TI$,1*8 + 1,2) 

5820 A$-RIGHT$ (* 0 0 6 0 0 0 6 **+B I K$ (A) , 8) 

g 0 0 0 p Qg J . J |»Q g 

5840 IF MID$ (A$,J,1) -*0" THEN PAINT (J*10* 202, 1* 1 0-112),0,2 : TILE (I,J-l) - 
E PAINT (J*1 0 + 202, 1*1 9+112),1,2 : TILE(I,J-l)-1 
5850 NEXT：NEXT 

5860 PAINT (350, 1 60) , TILES (TILE1), 2 : MOUSE 1 …！ 

5870 IF MOUSE (2,1)THEN TI-0 ： GOTO 5900 
5880 IF HOUSE (2 V 2) THEN TI-1：GOTO 5900 
5890 GOTO 5870 
5900 M-UOUSE (8) : N-MOUSE (1) 

5910 IF N>189 THEN 6030 

5920 IF M>289 THEN 3890 

5930 IF (M MOD 10-0) OR (N MOD 10)-0 THEN 5890 
594 0 IF POINT (M, N) <2 OR POINT (M. N) -4-TI TIIKN 5890 

5950 Ml- (M-210) Y10 : N 1■■ {H-110) Y 10 : PAINT (M, N) ,TI . 2 : TI LF. (N 1,Ml) TI 
5960 A-0：FOR J-0 TO 7 

5970 IF TILE (N1, J) THEN A-A*2"ABS (J 7) 

5980 NEXT : A$-RIGHT$ ("0 +HE\$ (A) .2) 

59 9 0 MID$ (TI$,Nl*8^1,8)-STRINGS (4,A$) 

60 00 LINE (313, 113)- (377, 187) ， 0, BF : PAINT (350 , 1 50) ,HEXCHRS (TI$),2 
6016 GOTO 5890 

60 20 ' 

6030 IF M>310 GOTO 6420 

6040 IF M>282 GOTO 5890 

6050 IF N>210 AND N<232 GOTO 6090 

6060 IF N>242 GOTO 6100 

6070 GOTO 5890 

6080 ' 

6090 MOUSE 1" ， 0: LINE (31 3,113) - (377, 187) , 0,BF : GOTO 5800 


6100 
6110 
6】 20 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
62 4 0 
62 5 6 
6266 
6270 
6288 
6290 
6300 
6316 
6320 
6330 
634 0 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
64 26 
6430 
6440 
6458 
6460 
6470 
6480 
64 90 
6560 
6510 
6520 
6530 
6540 


.file 

IF N>274 THEN A-1 : GOTO 6140 

IF N>264 THEN 5890 

A»0 


MOUSE l"，fl : COLOR REPLACE (218, 24 2^ A*32) -STEP (64, 22) , (0,1),(1, 0) 
SCREEN ,,,,10 : COLOR-(3,0), (8,15), (9,15), (13.0) 

LINE (410, 230)- (538,298) ,8,BF : L!NE (4 1 0, 230) - (536, 298), 2,B 

LINE (4 13, 233) - (533, 295) . 2 , B : LINE (413, 264) - (533, 264) ,2 

LINE (473, 233) - (47 3, 295) , 2 : SYMBOL (424, 24 1) ,"Datal",,, 2 

SYMBOL (484 , 24 1 ) ，•- D a t a 2 " , ,, 2 : SYMBOL (420, 272) , " Ca n c e I ' , , , 2 
IF A-0 THEN SYMBOL (484, 272) ，•- B a s i c _ , 2 
MOUSE 4, 421 ， 239,522,285 : MOUSE 1.430,285,1 
IF MOUSE (2,1)THEN 6240 
GOTO 6220 

M1-(MOUSE(0)-410)Y6 4+((MOUSE(1)-23O)Y34)*2+1 
IF A AND Ml=4 GOTO 6220 
IF Ml-3 THEN 6370 
F I N $ --1：b a s i c . t i I e - 

IF Ml-1 THEN FIN$-"l ： datal. tile" ELSE IF Ml-2 THEN FIN~1：data 2. ti le 
MOUSE 1 … 0 : IF A THEN 6350 


GOSUB 11950 : SCREEN ，… 1 

LINE (155, 355)- (6 1 6,385), 0,BF：GOSUB 11990 

GOTO 6530 


KILL FIN$：OPEN ..o 一， 》 1,F1N$ 

FOR 1-1 TO 30 : WRITE it 1,ASCCHR$ (TI LE$ (I) ) : NEXT : CLOSE 

MOUSE 1 … 0 : LINE (41 0, 230) - (538, 2 98), 0, BF 
COLOR REPLACE (2 18, 242+A*32)-STEP (6 4 , 22) . >0, \), (1,0) 
MOUSE 4,2 1 3,113, 370,290 : MOUSE 1, 348, 278, 1 
SCREEN ， … 1:GOTO 5890 

IF N>210 AND N<232 THEN 6460 
IF N>242 AND N<264 THEN 6530 
GOTO 5890 

IF TILE 卜 15 OR TILE1-30 THEN A-25 ELSE A-29 

TILES (TILED-HEXCHRS (TI$) : IF T!LE1>16 THEN 6500 

LINE ( (TILE 1 - 1)* 3 1+ 1 56, 356)-STEP (A.13) ,9,BF 

PAINT ( (TILE 1- 1)*31 + 1 56, 356),TILE$ (TILED ,1 : GOTO 5890 

LIKE ( (TILE 卜 16}*31 + 1 56, 371)-STEP (A,13),0,BF 

PAINT ((TILE1-16)*31+156, 371),TILES (TILE1),1 : GOTO 5890 

HOUSE 1,，，0 : PAINT (129, 370) r TILE$ (TILED,1 : C0L-TILE1 
SCREEN ,,,,10 : CLS 2 : GOSUB 13070 


ELS 


►フアミコンでも X 68000 でもゲームはすべて女房のほうがうまく，なんでも煅後までク 
リアしてしまいます。私はどうすればよいのでしょうか。 松尾修 （40) 大阪府 


待集 QUICK MZ PAINT 〇1 



6550 

6560 

6570 

6588 

6590 

6606 

6610 

6620 

6630 

6640 

6650 

6660 

6678 

6680 

6690 

6788 

6710 

6728 

6730 

6749 

6758 

6766 

6779 

6780 
6796 
6809 
6818 
6820 
6839 
6846 
6850 
6866 
6876 
6888 
6890 
6900 
6910 
6920 
6930 
B5M 0 
0950 
096 0 
0970 
6980 
G990 
70 0 0 
7016 
7 0 20 
70 30 
70 4 0 
70 50 
70 60 
7 0 7 0 
7 080 
7 0 9 0 
7 100 
7110 
7120 


MOUSE 4 ， 17,20,619,380 : MOUSE 1,M2 ， N 2，1 
COLOR - (2,15), (3,10), (8,0), (9.0) ： RETURN 740 
* UTY 

MOUSE 1 … e : VIEW : SCREEN … ，3 : COLOR- (2,10) 

GOSUB 13090 

GET* (1 00, 28) - (2 ie, 20 5) ,COP 

LIKE (ISO, 20)- (218, 205), 6,BF : LIKE (1 05, 25) - (285, 200) .,B 
FOR 1-50 TO 175 STEP 25 : LINE (1 05, 1 )- (205, I) : NEXT 

SYMBOL (116,31),'Ret Main "： SYMBOL (116,56),-Hard Copy - 
SYMBOL (116,81),'I eon Get~ : SYMBOL (114,106) ,"Black/Wh i te* 
SYMBOL (116,131),“ Gload" : SYMBOL (116 ， 156}，" Gsave~ 

SYMBOL (116,181), - E N D" 

H2-8 : COLOR REPLACE (1 05, 25* (H2+1))-STEP (99, 24}, {0,2) 

HOUSE 4,11 0, 30, 195, 193 ： M0USE 1 ， 160 ， 31 ,1 
IF HOUSE (2,1)THEN MOUSE 1,"C : GOTO 6770 
N-HOUSE (1) : HI - (N-25) V25 
IF N1-N2 THEN 6708 

MOUSE 1，，，0 : COLOR REPLACE (16 5, 2 5* (N2+1))-STEP (9 9 , 2 4), (2,e) 
COLOR REPLACE (1 05, 25* (Nl+1))-STEF (99, 24) , (0, 2) : MOUSE 】，"1 

K2-M1：GOTO 8780 


IF Nl<>3 THEN COLOR REPLACE (1 0 5, 2 5* (N2+1))-STEP (99,24), (2,0) 
ON Hl+1 GOTO 6998,7210,7020,7289, 7710,7710 
END 

COLOR 2 : GOSUB *KOUSIN 
LINE (189, 317)- (61 1,337),1,B 
IF EMM ELSE GOTO 6950 
.EMM :コウシン 

LOCATE 22,20 : PRINT .Parts の更新をしますか ‘’ 

GOSUB *YH : IF HANTEI ELSE GOTO 6950 


FOR 1-0 TO 2 : 
LOCATE 22,20 : 
GOSUB *YN : IF 
LOCATE 22,20 


KILL M:** + PART$(I} 
KILL icn" 

COPY ALL "EMM ： _ +AS+* 
NK\T 


AS-LKFT$ (PARTS (I),6) 

PRINT A$; •• を更新しますか？ 

HANTEI ELSE 6940 

PRINT AH 更新中です一 


GOSUB *ERASE 


LOTATK 2 2.2 0 : PRINT •終了していいですか ？~ 
GOSl K ♦ YN : IF HANTEI KI.SE COSIB 13070 : COLOR 7 
MOISK (i : KKY OFF : PRINT : CLS 3 : END 


GOTO 6610 


PL TO (100.2 0}. COP 

MOUSE 4.17,20.619,380 : MOUSE 1 ， 10 ， 30 ， 1:RETURN 740 
'ICN GET 

MOISE 4,99,19, 572, 292 
PIT 妒 *100, 20),COP 
SCRKKM .,,,2 : M 200 ： N 100 

LINK (M.N) STEP (49.49).2,B : MOUSE 1,M,N, 0 : GOTO 7080 

IF MOUSE {2.1)THEN LINE (M,N) -STEP (4 9, 49) , 0.B : GOTO 7130 
Ml MOUSK (0) : N1 MOUSE (1) 

IK M.M1 AND N-N1 THEN 7070 

LINE (M,N) STEP (49.49) ,0,B ： LINE (Ml, N1) -STEP ( 4 9 , 4 9), 2,B 
M - M 1：N N 1 : PRINT CIIR$ (11. 32) ；M ； N ； : GOTO 70 70 


7130 VIEW : SCREEN ""9,(7) : COLOR REPLACE (MM, K+l) -STEP (4 7, 47),( 1 , 9) 

7140 SCREEN . . , f 8 : MOVE (M+1,NM) ,48,48, (200,100) ,,0 

7150 POKE $584,$26,$27,$2E,$2F 

7160 POKE $6101,$59,$9F : POKE $6185, $66 

7170 CALL $6100 : LINE (200, 100) -STEP ( 4 7 , 4 7), 0,BF : POKE $6105, $68 
7180 SCREEN ,.,,2,(15) : GOTO 7060 

7198 • 

7200 hcopy 

7210 PUT# (100,20),COP 

7228 COLOR- (8.15) : COLOR REPLACE (100, 20) (6 1 9, 340) , (0 , 8) 

7 2 30 VIEW ❺ ( 1 0 0, 20} - (619, 34 0) : SCREEN ",,,(8): CONSOLES 0,1 ， 10,40:LOCATE 
: PRINT [i ： Now Hcopy ! ! " ； : CFLASH® (12,0) - (32,0) ,1 : HCOPY 2 
724 0 LOCATE 12.0 : PRINT •- ~ ； : CFLASH_ (12,0) - (32,0) , 0 

NSOLEf 


7250 SCREEN ，…8, （ 8) : CLS 2 : VIEW* : SCREEN t , , ,2, (15) 

7260 GOTO 7060 
7270 • b/w 

7286 LINE (106,126)-STEP (98,23),0,BF : LINE (106,151)-STEP (98,23),0，BF 
7290 LINE (106, 176)-STEP (98,23 し 0,BF • 

7300 SYMBOL (132, 131),"A I I - : SYMBOL (132,15 6 K ■ P a r i •• 

7310 SYMBOL (132, 181)，- E n d 

7 320 BW1-2 : COLOR REPLACE (1 0 6 , 1 2 5+BWU25) -STEP (98, 24) , (0, 2) 

7330 MOUSE 4, 11 0, 130,1 95,193 : MOUSE 1 ， 160 ， 193，1 
7 34 6 IF MOUSE (2,1)THEN MOUSE 1 … 0 : GOTO 7400 
7350 H- (MOUSE (1)-125)Y25 ： IF N = B»1 THEN 734 6 

7360 MOUSE 1,,,0 : COLOR REPLACE (106 , 125 + BW 1*25)-STEP {98 ， 24}, ( 2 ， 0) 

7378 COLOR REPLACE ( 1 06 , 1 2 5 + N*25) -STEP (98,24), (0,2} : MOUSE 1,,,1 

738 0 BW1-N : GOTO 7340 

7390 - 

7400 COLOR REPLACE ( 1 8 6 ,12 5 ^BW 1 * 25)- STEP (98,24) r (2,0) 

7410 N-(HOUSE (1)-125)V25 


74 20 
7430 
7440 
7450 
74 60 
7470 
7480 

74 90 
7500 
7510 
7 5 20 
7530 
7540 

75 59 


IF H>1 THEN 6610 

GET# (160 . 20) - (216, 295J ,COP (7000) 

PUT* (100,20),COP : IF N-1 THEN 7490 

COLOR REPLACE (100, 20)- (619, 34 0) . ( 0,1 ),( 1 , 0) : GOSUB 13090 

GET# (1 00 , 20) - (21 0，20 5). COP 

PUT# ( 1 00, 20),COP ( 7000) GOTO 7320 

MOUSE 4 , 1 00 , 20 , 6 1 9 , 34 0 : MOUSE 1,100 ， 100，1 
IF MOUSE (2,1)GOTO 75 00 

IF MOUSE(2,1) THEN LI HE 1-MOUSE (0) ： L I HE2-M0USE (1) : GOTO 7550 
IF MOUSE (2,2) THEN MOUSE 1 … 0 : GOTO 7470 
GOTO 7510 


IF MOUSE (2,1)GOTO 7550 ELSE SCREEN ",,2 


12 , e 
:CO 


62 Oh ! X 1988.2. 


►別れの曲そして悲しきチェイサーと私は感激で涙がチヨチヨぎれんばかりです。なにを 
踗そう，私は靖子ちゃんの大大大フアンなんです。 松本忠文 （19) 兵庫県 



756 0 IF MOUSE (2,2) THEN 7620 
7 5 7 0 IF MOUSE ( 2 , 1)THEN 76 4 0 

7580 M-MOUSE(0) : N-MOUSE(1)：IF M-M1 AND N-N1 THEN 7 56 0 
7 5 9 0 LINE (LINE1,LINE2) - (M1,N1).0,B : LINE (LIKE 1,LINE2) - (M,N),2,B 
760 0 M 卜 M:N 卜 N : PRINT CHR$ (11,32) ； M ； N ； : GOTO 7 5 6 0 
7610 * 

7620 LINE (LINE1, LINE2) - (Ml, N1) , 8, B ： SCREEN ,",3 : GOTO 7460 
7630 * 

7 6 4 0 MOUSE 1，，，0 : LINE (LINE 1,LIHE2)- (Ml.Nl),0,B 
7650 IF LINE1>M1 THEN SWAP LINE1,M1 
7660 IF LINE2>N1 THEN SWAP LINE2.N1 

767 0 COLOR REPLACE (LINE1,LIHE2)-(M1,N1), (1,0), (0,1): GOSUB 13090 
7680 GET# (100 ， 20}- (21 0 . 205 し COP 

76 90 SCREEN ,,,,3 : MOUSE 1,.,1 : GOTO 7500 
7 70 0 ' 

7710 - GSAVEA 

77 20 PUT# (100 ， 20) ,COP 
7 7 30 GOSUB *GSSU-B 

7 74 0 IF HOUSE (2.1)THEN 7 76 0 
7750 GOTO 7740 

7 760 M^MOUSE (0) : N-MOUSE (1) 

77 7 0 IF N>102 THEN MOUSE 1,,.0 : GOTO 6610 
7780 IF N>75 THEN MOUSE I,,,0 : GOTO 7«60 
7790 IF N>25 GOTO 7810 ELSE 7740 
7800 - 

7810 N1-(M-107)Y33 : IF N1 GSl THEM 7750 

7820 MOUSE 1",0: COLOR REPLACE (10 6 ， G S 1» 3 3 • 5 2 卜 STEP {32, 24) , (2 , 0) 

7830 COLOR REPLACE (106^-N 1* 33, 52) STEP ( 32, 2 4 ) , ( 0 . 2) 

784 0 MOUSE 1,,,1 : CS い N1: GOTO 7750 
7850 ■ 

7860 IF N2-5 THEN 7920 

7870 PUT? (100 , 20),COP : SCREEN ""1:LINE UOO,20) (6 19,340).0, BF 

7880 SCREEN ， … 4 , ⑴ 

7890 GLOAD D 1 SK$ (GS 1♦1) ♦ 丫 ラフ〇夕 .M25 ■ 

7900 COLOR REPLACE (100, 20) - (619, 340) , (4,1) : CIS 2 
7910 SCREEN ,",3, (15) : GOTO 6G00 

7920 • GSAVE 

79 30 PUT_ (100,20 し COP : SCREEN ， " ， 15:C0L0R REPLACE (100 , 2 0) - (619 , 34 0) , (I,15) 

7 94 0 GSAVE DISK$(CS1M) ^ (100,20)-(619,340) 

79 50 SCREEN ,,,,14,(15) : CLS 2 ： SCREEN ,",3 : GOTO 6610 

7960 本 GSSUB 

7 9 70 MOUSE 1,，，0 : LINE ( 1 03, 2 3) - (207, 127), 0,BF 

7 980 LINE ( 1 05 , 2 5) - (205 .125) . , B 

799 0 FOR 1-50 TO125 STEP 25：LINE (1 0 5, I)- (2 0 5, I) : NEXT 
8000 LINE (139, 50) STEP (0,25) : LINE (17 2, 50 卜 STEP (0,25) 

8016 IF Hl-5 THEN SYMBOL (132,31),"GSAVE" ELSE SYMBOL (132, 31),"GLOAD 

802 0 IF EMM THEN SYMBOL (113,56) , _ FD1 FD2 EMM ELSE SYMBOL (ll3,56),*FD1 FD2. 

8030 SYMBOL (132.81), '0 K" : SYMBOL (13 2,1 0 6) , C a n c e I ' 

804 0 COLOR REPLACE (106 -CSU 33, 52) STEP ( 3 2 , 2 4 i , (0,2) 

8050 MOCSE 4,118,60,195,110 : MOUSE 1.120,62,1 : RETURN 
8060 *SBOX 

8070 IF SMODE-O THEN RETURN 

8080 VIES : CONSOLE 18,6,0,20 : CLS : CONSOLE 0 ， 1 ， 0,79 
8090 SCREEN … ， 1:PUT#» (17, 284 ) , SM( 1 7 0 0) 

8100 VIEW (100,20)-(619.340) : SCREEN … ，2 

8110 SMODE-9 : RETURN 
8120 *SAME 

8130 LINE (518,2)- (619,17),1,BF : SYMBOL (524, 2) , 0F$,,,8 : RETURN 
8140 *KOUSIN 

8150 SCREEN ,,,,7 : LIKE (100, 20) -(619,340),, BF 

8160 LIKE (168, 316) -(612, 338) » D,B 

8170 IF OPENFILE AND TRY ELSE GOTO 8216 

8180 LOCATE 20, 20 : PRINT 0P$;- を更新しますか？ 

8190 GOSUB *YN 

8200 IF HAHTEI THEN KILL OPENS : POKE $584 ,RM1 ， RM2,RM3,RM4 : BSAVE OPENS,$864B, 
$6560 

8219 RETURN 

8220 * file 

8230 MOUSE OFF : Jl-1 : CONSOLE 20,4,10,67 
824 0 VIEW : COLOR 0 ： MOUSE 1" ， 0: COLOR- (2,19) 

8250 GOSUB 13096 

8269 MODE-3 : GOSUB *KOUSIH 

8279 GOTO 8310 

8280 ' 

8290 SCREEN ,,,,7,(15) : LINE (100,20) - (619, 3401 ,,BF 

8300 LINE (108,316) (612, 338).0,B 

8310 LINE ( 108, 24) - (6 1 6 , 4 3) v 0,B 

8320 SYMBOL (128, 27), Load Save Files Copy Icon Kill Open 
En d ~ ，，， 0 

8330 POKE $6165,$62 : POKE $584»$20,$21 ( $28,$29 
8340 POKE $6161,$F3,$93：CALL S6160 

8350 SYMBOL (550, 92),•FDl",,,9 ： LINE (526, 53) - (593, 1 28), 0,B,LIN (5) 

8360 POKE $6161, $23,$AF：CALL $6160 

8370 SYMBOL (S50 ， 178}, ■ FD2 ■ • " 0 : LINE (526, 1 40)- (59 3, 21 S),0,B,LIN (5) 

8380 IF EMM ELSE GOTO 8410 

8390 POKE $6161,$53, $C 入 ： CALL $6160 

8400 SYMBOL (550, 265),"EMM",,,0：LIHE (526,227)-(593,302),0,B,LIN(5) 

841 0 COLOR REPLACE (526, 53 + (DR2-1)*87)-STEP (67, 75), (0, 2) 

8420 POKE $6165,$64 : GOSUB 9010 

8430 MOUSE 4,122,27,596 ,337 : MOUSE 1,200,56.1 

8440 MOUSE 3,0,6 : MOUSE 3 ， 1, 6 

84 56 * 

8460 IF MOUSE (2,1)THEN 8490 
8470 GOTO 8460 

8 4 8 0 

8490 M-MOUSE(0) : N-MOUSE (1) 

8500 IF N<43 THEN 8740 

8510 IF M>526 AND N>54 THEN 8640 

8520 PAUSE 2 : GOTO 8460 

8539 * 

8540 LOCATE 15,20：PRINT - ファイル処理は終わりですか？ 

8550 GOSUB *YH 

8560 IF HANTEI-0 THEN 8430 


► NEC から FM 荇源 6 音，リズム6茂というものが出たそうである。しかしクラシックの 
ピアノ曲を演奏するのにドラムなんかいらないのである。私だって別れの曲を間きたい。 
私の FR はいま a いている。 舞木克央 （17) 岐阜県 


特集 QUICK MZ PAINT 〇3 


8570 

8580 

8590 

8696 

8618 

8620 

8639 

8640 
8656 
8666 
8670 

8689 

8690 

8709 

8710 
8720 
8730 
8749 


HOUSE 1 … 0 

SCREEN ，… 15 : LINE (1 00 , 20) - (6 1 9, 340) ,, BF 

IF J1OR OPENFILE THEN GOSUB 13070 
HOUSE 4,17, 20 ， 619,38 0 : COLOR 7 : GOSUB *SBOX 
COLOR-(2,15), (3,10) : MOUSE 3,0 ， 8:MOUSE 3, 1，8 
CREVf (L3,L4) - (L3+3,L4+1),0 : MODE-0 : CONSOLE 


0,79 : TRY-fl : RETURN 740 


IF H<124 THEN DR1-1 ： IF DR1»DR2 THEN 8700 ELSE GOTO 8680 
IF K>140 AND N<212 THEN DR1-2 ： IF DR1-DR2 THEN 8700 ELSE GOTO 8680 
IP N>227 人 ND N<299 AND EMM THEN DR1-3 ： IF DR1-DR2 THEN 8700 ELSE GOTO 8680 
GOTO 8528 

MOUSE 1 … 0 : COLOR REPLACE (526 , 53+ (DR2-1)*87)-STEP (67, 75), (2, 0) 

COLOR REPLACE (526, 53+(DR1-1 い 87)-STEP (67, 75), (6,2) 

COLOR REPLACE ( 1 48, 27) - (543, 42), (2, 0) 

DR2-DR1；MOUSE 1,, ， 1:GOTO 8470 

.FILE MENU 
E-HI : F-H 


8750 

HOUSE 1,, 

, ， e: 

COLOR 

REPLACE (124, 

,27) - (544,4 ： 

8760 

IF 

M>574 

THEN 

: MENU 

レ 0:GOTO 8540 

• END 


8770 

IF 

M>122 

AHD 

M< 16 e 

THEN 

MENU-1 

GOTO 

8856 

8780 

IF 

M>186 

AND 

M<224 

THEN 

MENU-2 

GOTO 

8S50 

879® 

IF 

M>250 

AND 

U<296 

THEN 

UENU-3 

GOTO 

8850 

8800 

IP 

M>314 

AND 

M<352 

THEN 

UENU-4 

GOTO 

8856 

8818 

IF 

H>372 

AND 

M<410 

THEN 

MENU-5 

GOTO 

8850 

8820 

IF 

M>442 

AND 

M<480 

THEN 

MENU-6 

GOTO 

8850 

8830 

IF 

M>506 

AND 

M<5“ 

THEN 

UENU-7 

GOTO 

8850 


MOUSE 1,, ， 1:GOTO 8460 

COLOR REPLACE (12S+ (MENU-1)*64. 27)-STEP <39, 14} • <0 ， 2} : GOTO 8930 
. OPEN 

IF OPENFILE ELSE GOTO 8970 

LOCATE 15, 20：PRINT "New File を Open l ますか 
GOSUB *YN : IF HANTEI-0 THEN F-FMO : GOTO 8970 
OP$-D I SK$ (DR2) *~New File' : COSUB *NAMK : OPEHFII.E»0 : J 卜〇 
GOTO 8970 

ON MENU GOTO 9210,9400,,9570,10950,1024 e.8878 


■ ( 5 4 4 . 4 2) r (2 ， 0) 
MOUSE 1 ， E ， F ， 】 


GOTO 8470 


8840 
8858 
8860 
8878 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 
8990 
9000 
9010 
9020 
9030 
904 0 
9050 
9060 
9970 
9880 
9096 
9160 
9110 
9120 
9136 
9140 
9150 
9160 
9170 
9180 
9190 * 

9208 GOSUB *ERASE : LOCATE 22, 20 ：PRIKT DISKS (DR3 )；' には 
: PAUSE 25 : GOSUB *ERASE : GOTO 9160 
9210 • load 

9220 GOSUB 9009 : CFLASH 0 : HOUSE 1 … 1 
9230 IF MOUSE (1)<43 THEN 92 30 
9240 GOSUB 傘 MOVE 

9250 IF HAN THEN GOSUB *CAN：GOTO 8970 

9260 COLOR REPLACE (128 + M*80, 59^N*87) -STEP (48, 68), (9, 2) 

9270 • 

9280 SCREEN , ， " ，（ 7}: POKE $584, RM 1 ， RM2, RM3, RM4 

9290 OPEN$-DISK$ (DR3)+FILE$ (M01) : BLOAD OPENS : OP$-LEFT$ (OPENS,10) 

9300 POKE $584,$26.$27,RM1,RM2：CALL $60C0：POKE $584,$2E,$2F,RM3,RM4：CALL $69D0 
9310 VIEW* (168, 28) - (6 1 9, 340) : SCREEN ,,,,8,(12) iCOLOR- (5,4), (8,15), (9,15),(13,4 
I 

9320 CONSOLE* 20 ， 1,15,64 

9330 LINE (108,316) -(612,338) ,8,BF：CO LOR -(12,4) 

9 34 0 LOCATE 15, 20: PR I NT ••メイン M e n u に 戻ります か -: GOSUB *YH 


COSUB 9000 

COLOR REPLACE (124,27) - 
MOUSE 4，122 , 2 7 , 596 , 377 
• FILES 

IF DR3-DR2 THEN RETURN 

ERASE IC$,FILE$：DIM ICS (64),FILES (64) 

FREE-DEVF (DISKS (DR2)) : GOSUB fGETFILE 
LINE ( 1 28,59) - (496 , 302) ,,BF 
11-48:12-59 : POKE $584,$20.$21,$28,$29 

IF FI-0 THEN DR3-DR2 : GOTO 9200 

FOR い 1 TO FI ： NAMES-LEFT$(FILES(I),6) ： NAHEl$-NAME$ + .icn" 

IC0H1-SEARCH (ICS,NAHE1S) : IF IC0H1 1 THEN GOTO 9106 

BLOAD DISKS (DR2)+NAHE1S 

I 1-1 1+80：IF I1>448 THEN I 1-128：I 2-12^87 

15-I 1V8+I2*$50 : I 3-I5V256 + $80 : N-15 MOD 256 

IF ICON 1-- 1 THEN POKE $6161,14,I3：CALL $6160：GOTO 9140 

POKE $6121,14,13 : CALL $6120 

SYMBOL U 1 ， 12+52) ,NAMES" , 0 

NEXT : DR3-DR2 

SCREEN，，，，7 : LINE ( 54 0 . 1 1 2 ^87*(DR2-1))-STEP (40,15),1,BF 

SYMBOL ( 54 0,11 2 + 87* (DR2 -1)),STR$ (FREE) + , , 2 

RETURN 


フ 7 •イルがありません‘ 


9356 SCREEN 


,8 : CLS 2 ： SCREEN ,,,,7, (15) : GOSUB *NAME 


9360 C0L0R-(5 f 4) f (12,0), (8,0), (9,0), (4,15) : CONSOLE# 

9378 VIEW* : IF HANTEI THEN 8589 - MAIN MENU 
9380 COLOR REPLACE (128 + M*8e,59 + N*87)-STEP (48, 68) , [2, 0) 
9390 GOTO 8970 
9400 save 
94ie gosub deee 

9429 IF FI-15 THEN GOSUB *SUB1 : GOTO 8960 


9430 FINS- - ** ： LOCATE 18, 20：PRINT 'Input File Naae (r e t u e n - c a n c e I) 
H$ 

9440 IF FIN 卜 - ■ THEN GOSUB *ERASE : GOSUB *CAN : GOTO 8970 
9450 FINS-LEFTS (FIN$+" ",6) +gra" 

9460 FIH-SEARCH (FILES,FINS) 

9470 IF FIN--1 THEN 9520 * NEW FILE 

9489 GOSUB 零 ERASE : GOSUB *SUB2 

9498 GOSUB *YN 

9500 IF HAHTEI-e THEN 9430 

9510 KILL DISKS (0R3)+FIHS 

9520 POKE $584,RM1,RM2,RM3,RM4：BSAVE DISKS (DR3)^FIN$,$864B t $6500 


：INPUT FI 


9536 0PEH$-D1SK$ (DR3)+FIN$ ： 0PENFILE-1 
9540 GOSUB 9010 ' re FILE 
9550 GOSUB *ERASE：COLOR REPLACE (124,27) 
9560 GOTO 8436 


OP$-LEFT$ (OPENS,10) 
(529, 42) , (2, 0) 


GOSUB *HAME 


► NANNO が站 Iriific t られたとかでワメイている人がいますが笑っちゃいますね。あ 
んな小*7:化でもできそうな芝 W •をするどこにでもいそうな女の子のどこがいいんでしよう。 
あれが Oh ! X のウラ衣紙にどんと出てたら，私は及/片で買えなくなってしまいます。とい 
うことで私はラップトップの X ファミリーを今をときめく女性 ニュースキヤスターに 持た 
せるのがいいと思うのであります。 内藤宏人 （23) M 都府 
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9570 

9580 

9590 

9660 

9610 

9620 

9636 

9640 

9659 

9660 
9670 
9680 
9690 
9700 
9716 
9720 
9736 
9740 

9759 

9760 
977¢ 
9780 
9790 
9800 
9810 
9826 
9830 
9846 
9850 
9860 


• copy 

GOSUB 9900：CFLASH 0：MOUSE 1 … 1 
IP MOUSE (1)<43 THEN 9590 
GOSUB 拿 MOVE 

IF HAN THEN GOSUB *CAN：GOTO 8970 


HOUSE 4,1 29, 59, 54 5, 248 
SCREEN ,,,,8:C0L0R-(8,e),(9,0) 

M 1-128 + 11*80 ： HI-59 + H*87 ： MOUSE 1,M1,N1,0 

COLOR REPLACE (M1,N1)-STEP (48, 68) , (0,8) : GOTO 9 70 0 

IF MOUSE (2,1)THEN 9780 
IF MOUSE (2,2) THEN 9756 
H-HOUSE (8) : N-MOUSE (1) 

IF M-Ill AND H-Kl THEN 9680 
MOVE (Ml, N1) ,48,68, (M,N),，_ 

H1-H ： N1-H ： G0T0 9686 

CIS 2 : GOSUB *CAN : GOSUB *EBASE 
SCREEN ， … 7:G0T0 8970 


IF Ml<515 THEN 9796 

IF Nl<71 THEN C0PY1-1 ： G0T0 9830 

IF Nl>141 AND Hl<153 THEN C0PY1-2 ： G0T0 9830 

IF Hl>228 AND EMM THEN C0PY1-3 ： G0T0 9830 

GOTO 9700 

* FILE COPY 

IF DR3<>C0PY1 THEN 16049 

IF FI-15 THEN GOSUB *SUB1：GOSUB *ERASE：GOTO 9706 


9870 
9880 
9890 
9900 
9910 
9920 
9930 
994 0 
9950 
9960 
9970 
9986 
9990 
1 0 0 0 0 
10010 
tO 920 
1 0030 
10040 
1 0050 
1 0660 
1 0070 
1 0080 
1 0090 

moo 
ieiie 
10120 
10130 
10140 
10 150 
10160 
10170 
10180 
10190 
1 0206 
10216 
1 0220 
16230 
1 024 0 
1 0 2 50 
1 0260 
1 0270 
10286 
1 0299 
1 0386 
10310 
1 0320 
GOTO 
19330 
10340 


FIN$-~ : GOSUB *ERASE : GOSUB »SUB3 :INPUT FINS 
COSUB *ERASE : IF FINS-" ' GOTO 9750 

FIN$ = LEFT$ (FIN$+" ,6) + - .gra " ： FIN 1 $-LEFT$ (FIN$,6) ^. icn 

FIN-SEARCH (FILES,F!N$) : DUMY$»LEFT$ (FILES(M01),6) ^. icn' 

IF FIN--1 THEN 9 9 5 0 

COSUB *ERASE ： REEP：LOCATE 15, 20 ： PR I NT -问じ ファイルが ります！ : PAUSE 30 
GOTO 9878 

GOSUB 本 TAIHI 

BLOAD DISK$ (DR3)^FILES (N01): BSAVE DISK${DR3)>FIN$ > $864B,$6500 
IF SEARCH(ICS,DUMY$)--1 THEN 10000 

BLOAD DISKS (DR3) *-DUMY$, $6800 : BSAVE D ! S K $ (DR 3) + F I N 1 $. $ 6 8 0 0, 2 88 
POKE $584,$26,$27,RM1,RM2 : CALL $6eA0 
POKE 5584 ,$2E,$2F,RM3,RM4 : CALL S6OB0 : SCREEN … ，8 
CLS 2 : SCREEN , , ,,7, (15) : GOSUB 9010 : GOTO 9760 
another 

ERASE FILE1$,IC1$ : DIM FILE1S (64),1C1$ (64) 

GOSUB *GETFII.E1 : GOSIB »TAIH I 

IF FI 1-15 THEN GOSUB *SUB1 : GOSUB 零 ERASE:GOTO 9700 
FIN»SEARCH(FILE1$,FILES (MOl))：IF FIN--1 THEN 10100 
KILL DISKS (C0PY1)+F1LE$(M01) 

FIN$ = LEFT$ (F1LE$ (M0 1),6)icn" 

IF SEARCH (IC1$,FIN$)>0 THEN KILL DISKS (COPY!)+FIN$ 

BLOAD DISK$(DR2)+FILE$ (M01) : BSAVE DISKS (C0PY1)^FILE$(M01),$864B,$6500 
IF SEARCH (IC$,FINS) --1 GOTO 10160 

BLOAD DISKS (DR2)+FINS, $6800 : BSAVE DISKS (COPY1)+FIN$, $6800, 2 88 


POKE S584,$26,$27,RM1» RM2 
POKE S584,$2E r $2F,RH3,RM4 
CLS 2 : SCREEN … ， 7,(15) 


CALL $6eA0 
CALL $60B0 
GOTO 976¢ 


SCREEN …、 8 


*TAIH1 

SCREEN …，，⑺： POKE $584 , $26, $27, RM 1,RM2 : CALL $60C0 
POKE $584,$2E,$2F,RM3,RM4 : CALL $60D0 
POKE $584,RM1,RM2,RM3,RM4 : RETURN 
* kill 

GOSUB 9006 ：CFLASH 8 ： U0USE 1 … 1 
IF MOUSE (1)<43 THEN 1 0 26 0 

GOSUB *MOVE : IF HAN THEN GOSUB *CAN : GOTO 8970 

Ml-128+M*80 ： Nl-59fN*87 : MOUSE 1 ， M1 ， N1,0 
COLOR REPLACE (Ml,HI)-STEP (48,68),(9,2) 

LOCATE 15,20 : PRINT "Kill していいですか -;: GOSUB *YH 

GOSUB *ERASE : IF HANTEl-0 THEN COLOR REPLACE (Ml, N1) -STEP (48, 68), (2,0) 

KILL DISKS (DR2) +FILES ： (MOl) 

FIN$»LEFT$(FILE$(M0l),6)+~.icn- 


1 0350 IF SEARCH (ICS,FINS)>0 THEN KILL DISKS (DR2)+F1N$ 

1 0360 IF 0PEN$-DISK$(DR2)>FILE$(M01) THEN 0P$-D1SK$ (DR2)+*Kew File" : GOSUB *KAM 
E : OPEHFILE-0 

18370 COLOR REPLACE (M1,N1)-STEP (48, 68) , (2, 6) 

16380 GOSUB 9610 : GOTO 8976 
10390 *ERASE 

10400 LOCATE 15,20 : PRINT SPACE$(63) : RETURN 

10410 *YH 

10420 LOCATE 60,20：PRINT "Yes No "： 

10430 MOUSE 4, 450 ， 320 ， 590 ， 335: MOUSE 1,452,324,1 

1 04 4 0 IF MOUSE (2, 1)-0 OR MOUSE (0)<4 7 5 GOTO 10 4 4 9 

1 0450 IF MOUSE (9) >538 THEN HANTEI-B ELSE HANTEI - 1 

10460 MOUSE 1,,,0 : GOSUB *ERASE : RETURN 

10470 拿 GETFILE 

16480 IF EMM GOTO 10590 

1 0490 A$-USR (DISKS (DR2)) : FI-1 : FMI 1 

1 6500 FOR I-S 1 020 TO S17E0 STEP $20 : M2-PEEK (I) 

10510 IF M2<>1 THEN IF PEEK (1 + 1)-0 THEN 1 0580 ELSE GOTO 1 0570 

10520 PS-"- : FOR J-l TO10 

10530 A-PEEK(I+J) : IF A-$D THEN 10570 

10548 PS-P$+CHR$ (A) : NEXT 

1 0550 IP RIGHTS (P$, 4) gra" THEN FILES (FI) ^P$ : F I • F 1 + 1•• GOTO 1 0 5 7 0 
10560 IF RIGHTS (P$,4) - .cn~ THEN IC$(FMI)-P$ : FMI-FMI + 1 
10578 NEXT 


► 南野陽 f •と M 1:讪の契約期問はどれくらいなのでしようか？ 契約期限にあわせて X 68 
020の発衣をお願いしますよシャープさん 。 NANNO CLUB 11596 W - (17) 40;( 都 
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19580 FI-FI-1 : RETURN 

1 0590 GET FILES FILE$,DISK$ (DR2)+"*.gra^ : GET FILES IC$,DlSK$ (DR2)+"*. icn" 

16600 FOR 1-1 TO15 : IF FILES (I)" GOTO 1 0620 
16619 NEXT 

10620 FI-I-1 : RETURN 

19639 *GETFILE1 

19646 IF EMM GOTO 19740 

1 0650 AS-USR (DISK$(COPYl)) : Fll-1 : FM い 1 
1 0660 FOB I-$192e TO $17E9 STEP $20 : M2-PEEK d) 

18670 IF M2<>1 THEN IF PEEK (1 + 1)-0 THEN 1 0730 ELSE GOTO 1 0 7 2 0 
10680 P$- 一： FOR J-l TO10 : A-PEEK(I^-J) : IF A-$D THEN 107 2 0 
18690 P$-Pt + CHR$ (A) : NEXT 

10766 IF RIGHTS (P$,4)gr»" THEN FILE1$ (FI 1)-P$ : FI1-FI1-1 : GOTO 1 0720 
10710 IF RIGHT$(P$,4)-". icn' THEN IC1$(FMI)«P$ : FM1FMI 十 1 
10720 NEXT 

10730 FI1-FI1-1 : RETURN 

10740 GET FILES F ILE 1 D 1 SK$ (COPY 1)+ **♦. gr a ~ : GET FILES I C I $, D I SK$ (COPY 1)+ * *. icn 


TO15 : IF FILE1$(I)• 


GOTO 10770 


0：MOUSE 4.129,59.493,290 ： H0USE l.M.N,1 


HAN- 


10750 FOR 1-1 
10760 NEXT 

10770 FI1-I-1 : RETURN 
10780 本 MOVE 

10790 M-MOUSE (0) : H-MOUSE (1) : MOUSE 
1 0800 SCREEN … ， 1:HAN = 0 
10810 IF MOUSE (2,1)THEN 1 084 0 
18820 IF MOLSE (2,2) THEN MOUSE 1, 

10830 GOTO 10810 

1 0840 M (MOUSE (0)-128)Y80 ： N-(MOUSE(1j -59)Y87 
1 0850 M(M M + N*r い 1:IF M01>FI THEN PAUSE 3 ： G0T0 10820 
10860 MOUSE 1,,,0 : RETURN 
10870 - 

10880 *CAN : BEEP : LOCATE 20• 20 : PR 1 NT •キャンセルしました 
UB *ERASE : RETURN 
10890 • 

10900 *SUB1 : BEEP : LOCATE 20, 20 ： PR!KT " F i I e の数が 15 を越えます - ; 
25 : GOSUB ♦ERASE : RETURN 
10910 • 

10920 *SUB2 ： L0CATE 15,20：PRINT \s ] じファイルが あります K i I1 します か 

1 0930 
10940 
10 9 50 
10 96 0 
1 0970 


PAUSE 15 : COS 

: PAUSE 

: RETURN 


i I e Nan 


a n c e I ) 


1… 1 


*SUB3 ： L0CATE 15,20：PRINT 
* ICON 

GOSUB 9000：CFLASH 0 ： M0USE 
IF MOUSE (1)<43 THEN 1 09 70 
10980 GOSUB *MOVE : IF HAN THEN GOSUB *CAN : GOTO 8970 
10990 ‘ 

11000 POKE $584, S20,$21,$28,$29 : IC0N3 - 1 

11010 POKE $6004, 6,$68 ： FIN$-LEFTS (FILES(MOlj, 6)*". icn' 

11020 IF SEARCH(IC$,FIN$)»-l ： ICON3=0 ： POKE $6005, S64 ： GOTO 11040 
11 030 BLOAD DISKS (DR2)+FIN$ 

11 04 0 MOUSE 5,1：MOUSE 1",0 : SCREEN ,",15 
11 050 COLOR- (2,4), (3,4).(1,15), (5,10), (4,10) 

11 060 LINE (1 00, 20) - (620, 34 0).1 ,BF : SYMBOL (128,30)，"I con Maker" 
11070 • 

11 080 FOR い 0 TO 48：LINE (320 , 1 *6^ 36) - (608, 1 *6 + 36), 2 : NEXT 

11090 FOR I-0 TO 48：LINE (1*6+320,36) - (!«6^320,324),2 : NEXT 

11100 FOR 1-7 TO 39 STEP 8 ： L1NE (320, 1 *6 + 36) - (608, 1 *6+ 36) , 4 : NEXT 

11110 FOR 1-7 TO 39 STEP 8：LINE (I * 6 卜 320 ， 36 卜 (I * 6♦ 320, 324) ， 4 : NEXT 

11120 • 

11130 IF IC0N3 THEN POKE $6121,$31,$9C：CALL $612« ： P0KE $6121,$3C,$9C ：CALL 
ELSE POKE $6161,$31 ， $9C:CALL $6166 ： P0KE $6161,$3C,$9C：CALL $6160 
11140 - 

11150 SYMBOL (145, 68} , .OLD-，• ， 0 : SYMBOL (236, 68) , -NEW, , , 6 

11160 SYMBOL ( 1 37, 1 4 4) ,LEFTS (FINS,6),,,9 : SYMBOL (2 2 2, 1 4 4),LEFT$iFIK$,6), 

11170 CALL $6000 
11188 

11190 LINE ( 1 4 0 , 2 35) - (27 1 , 26 1 ), 8 f B : LINE (140, 275)- (27 1 , 30 1) ,0 f B 

11208 SYMBOL (17 9, 2 4 0) , - S A V E ', , , 0 : SYMBOL (1 63, 280) ，- C a n c e \ , 

11210 • 

11220 LINE (140, 1 95) -(180, 22 1),0,B : SYMBOL (148,200) , "CLS",,,0 

11230 LINE (232, 1 95}- (271 ， 221},0，B : SYMBOL (240, 200) , B/W,,,0 

11240 UNE ( 1 8 7 , 1 9 5) - ( 225 , 22 1 ),0 , B : SYMBOL ( 1 95 , 20 0) , "PUT-, , . 0 

11250 • 

11260 SCREEN ,"，3 : MOUSE 4, 130, 37, 607, 323 ： M0USE 1. 380 , ]80, 1 
11270 • 

11280 IF MOUSE(2,1)THEN 11310 
11290 IF MOUSE (2,2) THEN 11350 
11300 GOTO 11280 
11310 M-UOUSE (6) : N-HOUSE (1) 

11320 IF M<322 THEN 11420 

11330 IF POINT (M,N)-0 THEN PAINT (M,N) ,0,NOT 1 ： GOTO 11400 

11340 GOTO1 1300 

11350 M^MOUSE (0) : N-MOUSE (1) 

11360 IF M<322 THEN 11300 

11370 IF POINT (M,N)-1 THEN PAINT (M,N),1,N0T 0 ： GOTO11390 
11380 GOTO 11300 

11396 M- (H- 320)V6 : N- (N-36) Y6 : PSET (224 + M,90>N),1 : GOTO 11300 

11400 M- (M-329)Y6 : N- (N-36) Y6 : PSET (224 >M,90 + K),0 : GOTO 11300 

11418 ' 

11420 IF N>90 AND N<137 THEN 11640 

11430 IF M<141 OR M>271 THEN 11300 

11446 IF N<195 OR N>301 THEN 11300 

11450 IF N<221 THEN 1 1500 

11460 IF N>232 AND N<262 THEN 11710 

11470 IF N>274 THEN MOUSE 1,，，0 : GOTO 11750 

11480 GOTO 11300 

11490 ' 

11500 IF M<180 THEN 11570 

11518 IF M>187 AND H<225 THEN 11610 

11520 IP M<232 OR M>271 THEN 11360 

11530 COLOR REPLACE (32 1 , 37) - (607, 323).(1,0), (0.1) 

11546 COLOR REPLACE (224, 90) - (271,1 37) .(1, 0), (0 ,1) 

11550 GOTO 11300 
11560 * 


66 Oh ! X 1988.2. 


►先校から姑るとどでけえ II 本ソフトバンクの封筒が。なんだろな一と思いつつ開け 
てみると通知と-緒にブラオニのファイルケースが……〇 87年8月号のプレゼント当選者 
の惻をよく W •ると「他4名 j の文字。そ一か，私は他4名の人だったのか。 

mm 城… （17) 埼玉県 



11570 SCREEN ,,,,1:LINE (32 1 , 37) - (607, 323),,BF 
11580 LINE (224, 90) - (271, 1 37),,BF 
11590 SCREEN … ，3 : GOTO 11300 
11680 ' 

11610 POKE $6121,$3C,$9C ： P0KE $6125, $66 : CALL $6120 : POKE $6125, $68 
11620 POKE S6085,$66 : CALL $6600 : POKE $6005, $68 : GOTO11300 
11630 " 

11640 IF M>220 AND M<270 THEN 11690 ELSE IF M<136 OR M>183 THEN 11300 
11650 IF IC0H3 THEN POKE S6121,$3C,SflC：CALL $6120 : CALL $6000 : COTO 11300 
11660 POKE $6161,$3C,$9C : CALL $6166 

11670 POKE S6005,$64 : CALL $6690 : POKE $6005,$68 : GOTO 11300 
11680 * HEW ICON GET 

11690 MOUSE 1",0 : POKE $6101 ， $3C, $9C : POKE $6105,,$G6 : CALL $6 100 
1 1780 POKE $6105,$68 : MOUSE 1 ，，， 1:GOTO 11300 
11710 • CHANGE 

11720 MOUSE 1 … 0 : POKE $6101, $3C,$9C：CALL $6100 
11730 IF IC0N3 THEN KILL DJSK$ (DR2) -FINS 
11740 BSAVE DISKS (DR2)-FINS,$6800, 288 
11750 COLOR- (2,10), (3, 15}, (4.15}, (5.4) 

11760 HOUSE 5.4 : GOTO 8290 

11 770 • rt- へ * 7 ク 

11780 LINE (Al,112) - (A2, 340) , 0, BF : LINE (Al,112) - U 2. 340} , 2, B 
11790 FOR I -A1 TO A2 STEP 8 : LINE (1,112)-(1,312),2 : NEXT 
11800 FOR 1-112 TO 312 STEP 8 : LINE (Al, I)- (A2, I) f 2 ： NEXT 
11810 FOR 卜 Al + 20 TO Al + 86 STEP 20 : LINE (I,321)-(I, 339) , 2 : NEXT 
11820 FOR I-AIM 20 TO Al + 160 STEP 40 : LINE ( 1 , 32 1 )(1, 339), 2 : NEXT 
1 1 830 LINE (A], 329) - (A2, 320) f 2 

1184 0 SYMBOL (A 1 + 2 • 3 2 3) ，- , , r 8 ： SYMBOL (A 1 + 2 2 ， 32 3) •"丨 ',,8 
11850 SYMBOL (Al + 43, 323) , , , , 8 ： SYMBOL (A 卜 6 3, 3 2 3) , … 8 

11860 SYMBOL (Al+166,323), end",,,8 
11870 • 

11880 LINE (Al + 86,323)- (A1+ 114, 337), 8,B 
11890 LIKE (A 1M 26, 323)- (A 1+ 154, 337), 8,BF 

11900 SYMBOL (A い 98, 32 3),-l-" ， 8:SYMB0L (A い 13 7 , 32 3} ， ■ 2 ■ • ， ， e 
11910 RETURN 
11920 • PEC A GET 

1 1 930 OPEN *r,»l,*GET.pcg~ : FOR 1-0 TO 257 : INPUT «1 f A (I) : NEXT : CLOSE 
11940 WAKU$- 8800880022002200880088062200220088008800220022608800880622602200" 
11950 - READ TILES 

11960 OPEN •i" ， m,FIN$ : FOR 1-1 TO 30 ： INPUT # 1,A$ ： T I LE$ (I)-HEXCHR$ (A$) : NEXT 

11978 CLOSE : RETURN 
1 1986 

11990 * tile box 

12000 LINE (1 55, 355)- (6 1 6, 385),,B : LINE (155, 370) - (6 16, 370) 

12010 FOR 1-186 TO 616 STEP 31:LINE (1,355)-(1,385) : NEXT 

12020 J-1 : FOR 1-160 TO 600 STEP 31:PAINT ( 1 , 360),TILE$ (J),1 : J-J + l:NEXT 
12030 FOR 1-160 TO 600 STEP 31 : PAINT ( 1,375),TILE$ (J),1 : J-J+l : NEXT 
12040 RETURN 
12050 • 

12060 *HELP 

12 0 70 HELP OFF : MOUSE 】，，， 0 
12080 GOSUB 13070 

12090 HE い 0 : MOUSE 1 … 1:RETURN 
12100 • 

12110 • ケシコ • ム & A-a* 

12120 RESTORE 12150 
12130 FOR 1-0 TO 7:READ 入 $ 

12140 • 

'H{0f(feffeeffeeffceffcefffefffecffccffcc3ffc3ffe0fce0{c0e3eee3e 
"0ee07{807f8e7f8e7f8e7f8e7[8e7r8e7F8oeee00ee00eee0e0eeeeeeeeeeeee' 
00007FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF.7FFF7FFF7FFF7FFF7FFF7FFF" 

‘ 00001 F00 3F8fl7Fce7FC97Fce7FC0 3F80iFeeeeeeeee 00000 eeeeueee 00 900 0 (r 
•000003E00FF81FFC3FFE3FFE7FFF7FFF7FFF7FFF7FFF3FFE3FFE1FFC0FF803E0" 
~FFeo8iee8iee 810081 eesieesieeFFeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee' 
"FF 0081008160810081008100810081008100810081008100810081008100 FF00" 
"FFFF 80018001800 1800180018001800 18001800 1800180018001800 1800 IFFFF M 


MOUSES (1)-HEXCHRS(A$) : NEXT 


12150 DATA 
12160 DAT 入 
12170 DATA 
12186 DATA 
12190 DATA 
12200 DAT 入 
12210 DATA 
12220 DATA 
18230 ' 

12240 *LINESUB 

12250 IF MOUSE (2,1)THEN LINE (Ml,20)-STEP (0, 320) , 0 ：LINE 
0 : LINE1-M ： LINE2-N : RETURN 

12260 M-M0USE(6) : N-MOUSE(l) : IF M-Ml AND N-N1 GOTO 12258 
LINE (Ml,20)-STEP (0, 320} ， 0:LINE (1 08,N1)-STEP (520,ft) 
LINE (M,20)-STEP (6, 320) ,2：LIHE (108, N)-STEP (520,0),2 
Ml-M : Nl-N : PRINT CHRS(11,32) ； M ； N ； : GOTO 12250 


100,N1) -STEP (520 ， 0), 


12270 

12280 

12290 

12306 

12310 

12320 

12330 

12340 


♦BOXSUB 

IF MOUSE ( 2 , 1)THEN MSW-0 : RETURN 
IF MOUSE (2,2) THEN MSW-1 : RETURN 

M-MOUSE(e) : N-MOUSE(l) : IF M-Ml AND N-N1 GOTO 12320 
12350 LINE (LINE1,LINE2) - (M1,N1),0,B ： LINE (L1NE 1,L 1 NE2)- (M,N),2,B 
12360 Ml-M : Nl-N : PRINT CHR$ (11,32) : M ； N ； ： GOTO 12320 
12370 - PCG SET 
12380 OPEN "I*, #1, PCG1. data" 

12390 FOR I-S130 TO $1FE STEP 2 ： INPUT #1,D$ : DEF CHR$ (1,1)-HEXCHRS (D$) 
12400 FOR J-S130 TO $15E STEP 2 ： INPUT »1,D* : DEF CHR$ (J,2)-HEXCHR$ (D$) 
12410 CLOSE : RETURN 
12420 - 
12430 *KEY1 

12440 IF KAK THEN KAK-0 ELSE KAK-1 
12450 RETURN 


NEXT 

NEXT 


12460 *KEY3 
12470 *KEY4 
12480 本 KEY5 
12496 *KEY6 
12500 本 KEY9 


MOUSE 3 ， 0, 4 
MOUSE 3,0,8 
MOUSE 3.0,16 


MOUSE 

MOUSE 

MOUSE 


PS-8 

PS-1 


GOTO 12510 


3,1,8 
3,1,16 


RETURN 

RETURN 

RETURN 


VIEW 


SCREEN 


12510 IF M0DE<5 THEN RETURN 

12520 MOUSE OFF : MOUSE 1 … 0 : CLS 2 : KEY OFF 
12530 COLOR- (2,10) : GET_ (200, 24) (290,138),COP 

12 54 0 LINE (200, 24)- (290,138) , 0,BF : LINE (262, 26) - (288, 1 36),,B 
12550 FOR 1-26 TO 114 STEP 22 : LINE (202, I)-STEP (86 ， 0} : NEXT 

12 56 0 IF PS THEN SYMBOL (206, 30) , "Parts Save ",1 ELSE SYMBOL (206, 30) ,"P 
ad-,,,1 

12570 SYMBOL (218,52),"PARTS 1' : SYMBOL (218, 74) ,~PARTS 2 


►編114率:も年末進行でヒイヒイいってるだろうから遅くとも買ってから3 H 後くらいまで 
には出さなきやなんないだろうと思ってあわててかきました。 小薮 W (18) 埼玉跟 
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12580 SYMBOL (218, 96) , PARTS 3 : SYMBOL (222 , 1 18) ,"CANCEL 

125 90 SCREEN ,,,,2 : COLOR REPLACE (202, 48♦PS1 * 22)-STEP (86,21),(0.2) 

12600 MOUSE 4 , 2 1 0,50, 280, 1 32 : MOUSE 1 ， 240•PS I * 22♦50 ， 1 
12610 IF MOUSE (2.1) THEN MOUSE 1..,0 : GOTO 12660 
12 6 20 FS2- (MOUSE (1)-48)Y22 : IF PSI-PS 2 THEN 12610 

12630 MOISE 1，，，0 : COLOR REPLACE (20 2 , 4 8+PSU22) -STEP (86, 2 1), (2,0) 

12 64 0 COLOR REPLACE (202 , 48^ PS2*22) - STEP (86,21),(0,2) 

12650 MOISE 1 ， "1:PS1 = PS 2 : GOTO 12610 

1266 0 LINE ( 2 0 2 ,48) - (288,136) , 0, BF : SCREEN ， … 1:PUT(» (2 0 0, 24 ) , COP 
12670 

12680 IF PS い 3 THEN MOUSE 4 ,17, 20, 6 1 9,380 : MOUSE 1, 24 0 , 1 2 2, 1 ： RETURN 740 
12 6 90 SP3-SM0DE : GOSIB 8080 : SM0DE-SP3 

12700 PEN 0 : VIEW : M- 320 :N- 2 00 : MOUSE 4,106,20, 6 1 9, 340 : MOUSE 1,M,N,0 
12710 IF PS THEN 13120 
12720 ' LOAD 
12730 GOSUB 13090 

1274 0 IF EMM THEN POKE $584,$20,$21,$28.$29 : BLOAD DR$+PART$ (PS 1) : GOTO 12810 

12750 SCREEN ,,.,8,(7) : POKE $584,$20,$21,$26,$27 : CALL $60 入 0 

12760 POKE $584,$28.$29,$2E,$2F : CALL S66B0 

12770 POKE $584 ,RM1 ， RM2,RM3,RM4 : BLOAD DR$ + PART$ (PS 1) 

12780 GOSUB 13070 

12790 POKE $584,$26,$27,RM1,RM2 : CALL $60A6 

12800 POKE $584,$2E,$2F,RM3,RM4 : CALL $60B0 : CLS 2 

12810 SCREEN … ， 2,(IS) 

12820 GOSUB *LIHESUB : MOUSE 丨 … 1 
12830 * 

12840 IF MOUSE (2,1)THEN 1284 0 
12850 GOSUB 本 BOXSUB 

12860 LINE (LINE1,LINE2) - (M1,N1),0,B J IF MSW THEN 12820 
12870 * 

12880 IF LINE1>M THEN SWAP LINE1,M 
12890 IF LIHE2>N THEN SWAP LIHE2,H 
12900 MOUSE 1,,,0 

12910 COLOR REPLACE (UNE1, LIHE2) - (M, N) , (0,8) 

12920 GOSUB 13070 

12930 SCREEN ，… 8 : COLOR- (9,0) , (8, 0) 

1294 0 : N1-N-LINE2+1 : MOUSE 4,1 08, 20, 620-M 1, 340 -N 1 : MOUSE 1,LINE1 

,LIHE2,e : M-LIHE1 : K-LINE2 

12950 IF MOUSE (2,1)GOTO 129 50 

12960 IF MOUSE (2,1)THEN 13020 

12970 IF MOUSE (2,2) THEN 13040 

12980 M-MOUSE(0) : N-MOUSE (1) : IF M-LINE1 AND N-LINE2 GOTO 12960 
12990 MOVE (LINE1.LINE2)(M,N), ,0 

13000 LIHE1-M ： LIKE2-N : PRINT CHR$ (11,32) : M ； N ； : GOTO 12960 
13610 ' 

13020 COLOR REPLACE (M,N)-STEP (M 1,N 1),(9 ， 8) : GOTO 129 50 

13030 * 

13040 CLS 2 : MOUSE 4 ,17, 20, 61 9, 386 : MOUSE 1,L I NE1,L I NE2,1 
13050 RETURN 740 
13060 - 

13070 POKE $584, $20,521, RH1.RM2 : CALL $6OC0 • VRAI4 へ 

13080 POKE $584, $28,$29,RM3,RM4 : CALL $6000 : RETURN 

13090 POKE $584,$20,$21,RM1,RM2 : CALL $66A6 . ? イヒ 

13100 POKE $584,$28,$29,RM3,RM4 : CALL $60B0 : RETURN 

13110 * SAVE 

13120 GOSUB *LIHESUB : MOUSE 丨 … 1 
13130 IF MOUSE (2,1)THEN 13130 
13140 GOSUB 本 BOXSUB 

13150 LINE (LINE1,LIHE2)- (Ml,HI),0,B : IF MSW THEN 13120 
13160 IF LINE1>M THEN SWAP LIHE1,M 
13170 IF LINE2>N THEN SWAP LINE2 f N 
13180 MOUSE 1 … 0 

13190 COLOR REPLACE (LIKE 1,LINE2) - (M,K), (0,8) : GOSUB 13090 

13200 POKE $584,$20,$21,$28,$29 

13210 IF EMM THEN BLOAD DR$ + PART$ (PS 1) : GOTO 132 4 0 
13220 VIEWi* (1,1)-(1,0) : BLOAD DR$+PART$ (PS 1) : VIEW ❷ 

13230 ■ 

13240 SCREEN ，… 8 : COLOR- (9,0) , (8, 0) 

13250 M1-M-LINE1 + 1 : N1-N-LIHE2 + 1 : MOUSE 4,1 00, 20, 620-M 1, 34 0-N1 : MOUSE INLINE 

1,LIHE2,0 : M-LINF.l : N-LIHE2 

13260 IF MOUSE (2,1)GOTO 13260 

13270 IF MOUSE (2,1)THEN 13330 

13280 IF MOUSE (2,2) THEN 13360 

13290 M-MOUSE(0) : N-MOUSE (1) : IF M-LINE1 AND N-LINE2 GOTO 13270 
13360 MOVE (L1NEMINE2) (M,N) , ,0 

13310 LINE1-M ： LINE2-H : PRINT CHR$ (11,32) : H ； N ； : GOTO 13270 
13320 ' 

13330 COLOR REPLACE (M,N)-STEP (Ml, N1) .(9.0) : CLS 2 ： KILL DR$ + PART$ (PS1) 

1334 0 IF EMM THEN BSAVE DR$ + PART$ (PS1),$86 4B, $6500 : GOTO 13360 

13350 VIEW» (1,1)-(0,0) : BSAVE DR$^PART$ (PS 1),$864B, $6500 : VIEW9 

13360 GOSUB 13070 : MOUSE 4, 1 7, 20, 6 1 9, 380 : MOUSE 1,L I NE 1,LIKE2,1 
13370 RETURN 740 
13380 ' 

13390 CLS 2 : GOTO 13350 
13400 *ERROR 

13410 IF ERL- 37 30 AND ERR-6 THEN GOSUB * H K I. P : RESUME 740 

13420 IF ER い 290 AND ERR = 28 THEN INIT "EMM: •: RESUME 

13430 IF ER い 290 AND ERR-42 THEN RESUME NEXT 

13440 IF ERL-290 AND ERR-40 THEN RESUME NEXT 

13450 BEEP 

13460 IF ERL-3920 AND ERR-3 THEN RESUME 4050 

13470 IF ER い 6350 OR ERL- 1 1 96 0 THEN MOUSE 1,,,0 : LINE (4 1 4 , 234) - (532, 294 ) , 0,BF 
: SYMBOL (436, 256 } ， Disk Error',.,2 : PAUSE 25 : RESUME 6370 

1 3480 IF ERL-6910 OR ER い 6930 THEN COLOR 7 : GOSUB 13640 : GOSUB 1 3076 : RESUME 
6600 

13490 IF ERL-6920 AND ERR-40 THEN RESUME NEXT 
13506 IF ERL-7230 THEN RESUME 7240 
13510 IF ERL-7890 OR ERL-7940 THEN 13690 

13520 IF ERL-8200 THEN GOSUB 13640 ： IF MODE-1 THEN GOSUB 1307 0 : COLOR 7 : RESUM 
E 6606 ELSE RESUME 8290 

13530 IF ERL>8220 AND ERL< 1 1729 THEN 13590 

13540 IF ERL- 1 1 7 30 OR ERL-11 7 4 0 THEN SCREEN ,,,,15 : GOSUB 13650 : RESUME 11750 

13550 IF ERL- 1 2740 OR ER い 12770 THEN SCREEN ， " ， 8: CLS 2 : SCREEN " , , 7 •• GOSUB 1 


68 Oh ! X 1988.2. 


► NEW Z - BASIC がほしい。しかし* K の免許のためバイトをしているので今は H えな 
い。早く免許を取沿してパソコンにお金がかけられるようにしたい。 

大描広士 （18) 京都府 


VIEW® : SCREEN ，… 7 


3650 : GOSUB 13676 : PS1-3 : RESUME 12680 

13560 IF ER い 13200 AND ERL< 1 3360 THEN SCREEN ,,,, 8 ： CLS 2 : 

: GOSUB 13650 : RESUME 13360 
13570 STOP 
13580 • 

13590 GOSUB 13630 

13600 IF DR2-2 THEN IF EMM THEM DR2-3 ELSE DR2-1 
13610 COLOR- (5,4), (8,15), (9, 15 し（ 13,4) : RESUME 8299 

13620 - 

13630 VIEW : SCREEN ，… 14 : CLS 2 : SCREEN ， … 15 ，（ 1) 

13640 GOSUB 拿 ERASE 

136 50 LINE ( 100， 2 0)- (619 , 340) ， 0, BF 

13660 LOCATE 20，3 : PRINT [2] ;”D I S K ERROR ! 

13670 PAUSE 30 : LOCATE 20,3 : PRINT SPACE$(35) : RETURN 
13680 ' 

13690 IF ER い 7940 THEM 13740 ELSE SCREEN ,,"15 ，（ 1S} 

137 00 IF ERR-40 THEN LINE (190, 20 )- (619, 340) , 0 ,BF : LOCATE 20,3 : PRINT [2];* ■グ 
ラフィック . M 2 5 が A りません -: GOSUB 13670 : GOTO 13720 

13710 GOSUB 13650 

13720 SCREEN，，"3 : GOSUB 13070 : RESUME 6660 

13740 IF ERR-42 THEN KILL D 1 SK$ (GS い 1)+_ ク * ラフィ 7 ク •M25 - : RESUME 

13750 SCREEN ,,,,15,(15) : IF ERR-53 THEN LINE (1 00 , 2 e)- (619, 34 0 ), 0 ,BF : LOCATE 

20 ， 3: PRINT [ 2 ] ； " D I SK にスペースが ありません 1 *: GOSUB 13 6 7 6 : GOTO 13770 
13760 GOSUB 13650 

13770 SCREEN …， 3 : GOSUB 130 7 0 : RESUME 7950 

13780 STOP 
13790 * 

13800 *RETURN : RETURN 
13810 * 


BASIC チェックサム 


リスト 2 BSD フアイ j レ作成 


20 
30 
40 
50 
60 
70 
80 
90 
00 
10 
20 
30 
40 
50 
60 
70 
80 
90 
200 
210 
220 

$ 

230 

XT 

240 

250 

XT 

260 
270 
280 
eeee 
001 0 
0020 
0030 
0 0 4 0 
0050 
0060 
0 0 7 0 
0080 
0090 

eiee 
eile 
e 12 d 
ei3e 
6140 
0150 


BSD FILE サ Jt イフ W ム 


PCG 

RESTORE 10000 
OPEN 0 ,¢1,1: GET.pcr 
FOR 1-0 TO 257 : KEAD AS 
CLOSK : SKT 1 : GET.peg . 


W RITK « 1,VAL ( $ •A $) : NEXT 


• PCG SET 

RESTORE 20000 

OPEN 0 •# 1 ， 1:PCG 1.data 

RKAD KS : IF A$- END THEN CLOSE 

WRITE »1.A$ : GOTO140 

SET •1:PCG1.data , P• 


GOTO160 


• TILES 
RESTORE 300&6 
OPEN ' 0'.# 1 , 1 ： b a s1c. 1 1 I 
NEXT : CLOSE : SET 1 ：b a s 1 c. t 1 Ie , P 
RESTORE 3000 0 : KEAD A$ : RESTORE 30150 


FOR 


OPEN '0 .«1, 1 ：d a t a 1. 

WRITE #1,B$ : FOR 1=1 
OPEN 0 • ,« 1 ," 1 ：d a t a 2. 


TO 30 : READ A$ : WRITE »1,A$ 

READ B$ : RESTORE 30020 : READ C 
WRITE «1,A$ : FOR 1-1 TO14 ： WRITE # 1 ， C$: HE 


: WRITE #1,C $： NEXT : CLOSE 
WRITE »1.A$ : FOR 丨 -1 TO14 


WRITE ¢1,0 $： HE 


WRITE » 1 ， B$ : FOR I-1 TO 
END 

DATA 30 .1 407 , 32 ,1 4 0 7 , 34 ,1 4 0 7, 36 
DATA 38 .1407,3 A, 1407,3 C, 1407,3 E 
DATA 50 , 140 7 , 5 2 , 14 0 7 , 54 ,1 4 0 7, 56 
DATA 58,1 407 , 5A ,1 4 0 7 , 5C ,1 407, 5E 
DATA 70.140 7 , 7 2 , 14 0 7 , 74 ,14 0 7 , 76 
DATA 78,1 407 , 7A, U07, 7C ,1 4 0 7, 7E 
DATA 90. 140 7 , 92 , 140 7 , 94 , 1 4 0 7, 96 
DATA 98, 1407 , 9A,1407,9C. 14 0 7, 9E 
DATA B0 ,1 407 ,B2 ,1 407 .B4 ,1 4 0 7,B 6 
DATA B8. 1407, BA,1407.BC,1407,BE 
DATA D0 .1 407 .D2, 140 7 , D4 ,1 4 0 7,D 6 
DATA D 8,1 407,DA, 1 407 ,DC, 1 4 0 7,DE 
DATA F 0,1 407,F 2,1407 ,F4 f 1407,F6 
DATA F8, 1407, FA, 1 4 0 7 ,FC, 14 07, FE 
DATA 40, 2407, 42,2407,44,2407,46 
DATA 48,240 7,4A, 2407,4 C, 2407,4 E 


WRITE #1,C $： NEXT 


1407 
1407 
1407 
1407 
1407 
1407 
1407 
1407 
1407 
1407 
1407 
1407 
1467 
1407 
2 40 7 
240 7 


1407 
1407 
1497 
1407 
1407 
1407 
)407 
1407 
1407 
1407 
1407 
1407 
24 0 7 
24 0 7 
2407 
24 0 7 


1407 

1407 

1407 

1407 

1407 

1407 

1407 

1497 

1407 

1407 

1407 

1407 

2407 

2407 

2497 

2407 


1407 
1407 
1407 
1407 
1407 
1407 
1407 
1407 
1407 
im 
1487 
1407 
24 0 7 
2407 
2 4 0 7 
2 4 0 7 


1407 
1497 
1407 
1487 
1407 
1407 
1497 
1407 
1407 
1407 
1407 
1407 
240 7 
2 4 0 7 
2 4 0 7 
2 4 0 7 


A 40938257 A20E0D91 
BB5DAFF449C3E8BF5 

00000000000000000 

75319753197531975 

1233456778901123 


3187 C7AF483C5DB70 
62ADB407BF 3409670 

00000000000000060 

64208642086420864 

1233456778901123 

FFA0D74F4449E1CCC 
1027219 D45D7B23A6 

60000000000000000 


〕45667009 < 


AF8F8 55 OB 441 AB5*< 
00000000000000000 

42086420864208642 

1223456678900123 


F n 

fF 89936 D9* 

0 0000000000000000 

31975319753197531 

1123455678998123 


COOFA239D3470C6A 

000000000000000000 
111111111111111111 
V 642086420 A 


000000000000000000 

• 9 7 5 3 n 9 7 
^8901223 


6107839 D126BAF62CA 
70AC566B999 41AAA5F 

000000000000000000 

864208642086 
123445678 


4 2 0 8 6 
8 9 0 12 2 3 


► NEW Z - BASIC を賀いました。 turbo 11 ではアナログ RGB 関係のものが使えないの 
で 64 K バイトの增設と FM 音源のサポートだけですが，結構面广 U 、 と思います。肋後に『試 
験に出る Xlj の前? T きには笑えました。 内藤哚一（21> 愛知県 


特集 QUICK MZ PAINT 69 































le 160 DATA 0. 0 
10170 ' 

2 0030 DATA 007F7F7F7F7F7F7F7F7F7B7B7B7B7B7B, 0 0 F F F F F F F F F F F F K F F F F F E 8 E B E B E F E F K F 
20010 DATA 0ftFFFFFFFFFFFFFFFFKFOB6B6D7D7E7E,OOFEFEFEKEFEFEKEFKFEKEEEDEDtBEBE 
20020 DATA 7B7B7B 78707 D7E7F7K7F7F7F7F7F7F00.EFEFEFEFEFDF3EFFFFFFFFFFFFFFFK00 
20030 DATA 7F7K7F7F7F7F3EFFFFFFFFFFFFFFFF0O,7E7E7E7E7E7E3EFEFKFEFEFEFEFEFKOO 
20040 DATA 007F7F7F7F7F7E7D 7070707 D7D7D7D7D.0OFFFFFFFFFFO0KFEEEEEEEFEFEOFFKF 
20 0 50 DMA 0OKFFFFFFFKFO3ED2EXF2FEFI-FOFFFFF. 90FKFEFEFEFEFEFEFF.7E3E3E3E3E3E3E 
20060 DATA 7U 7070707 U7D7D 70707 C7E7F7F7F7Fe0,FFFFC0DFDFl)KUKDFDF0OOOFKKFFFFF0O 
2 0070 DATA F F F KO 3 FBFBF BK B F BF R 0 0 0 0 K FF K K F F F 0 0,3K3E3E3E3E3E3E3E3E3E3EFKFEFEFE00 
20080 DATA 007F7F7K7F7F7F7F7F7K7E7D7U7R7B7B,0OKFFFFFFFFFFFFKFFKF28DDEDFDFDFD 
20090 DATA 0OFFKFKKFFFFFFFFFFFFFEFDFBFBFBFC.00KEFHFEFEFKFKFEFEFE2ECF.EEFEFEFE 
20100 DATA 7878787 B 70707 E7F7F7F7F7F7K7F7FO0.FDFDFDEDEDUD38KFFKFFFFFFFFFFFF00 
20110 DATA FFFFFFKBEBECODFFFFFFFFFFFFFFFF08,3EDEEEEF.EEDE3EFEFKFEFEFEFEFEFEO0 
20120 DATA OerFrFyFZFrKrFZFrFZFrFZFrFZFyFrF^OFFFFFFFFFFFFFKKKFDKBKZKFDFBFrK 
20130 DATA O0KFFFFFKFC7B379FCFEFFFFKFFFFFFE,O0FEFEFEFEKEFEFEFK7E3E9E9E9E3E7E 
20140 DATA 7E7D7B 777778707 E7F7F7F7F7F7F7FO0.FF7FBFDFEFF7FBFC7CB9C3li7FKFFFF00 
20150 DATA FCF9F3E7CF9F3F7FFFFFFFFFFFKFFF00,FKKEFEFEFEFEFKFEFEFEFEFEFEFEFEOO 
98160 DATA 007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F,00FFFFFFFFFFFFFFFF8FDFDFDF!)FDFDF 
20170 DATA 00FFFFFFFFFFFKFFFF83DDDEDEDEDDC3,O0FEFEFEFEFEFEFEKEFKKEFEKEFEFEFE 
29180 DATA 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FOO.DFDFDFDEDK80FFFFFFFFFFFFFFFFFFO0 
20190 DATA DFDFDFOFDF8FFFFFFFFFFFFFFFFFFFO0,FEFEFEFEFEFEFEFEFEKEFF.FEFEFEFE0O 
20200 DATA 007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F.O0FFFFFFFFFFFFFFFF83UDDEDEDF.DDC3 
20210 DATA O0KFFFFFFFFFFFFFFFF7EBDDBEBEBEBE,00FEFEFEFEFEFEFEFKFKFEFKFEFEFEFE 
2 0 2 20 DATA 7 K 7 F 7 F 7F 7 F 7 F 7 F 7 F 7 F 7 F 7 F 7F 7 F 7 F 7 F 0 0 , D F !)F DFDF D F 8F F F F FF F F F F F F F F FF FFF 0 0 
20230 DATA 8 OBEBF. BE BEBE F FF KF F K F F F F FK F FF FF 0 0 , FE F E F EFEF EF EF EF EF E F E FEF EF EF EFE 0 0 
20240 DATA 007F7F7F7F7F7C7D7D7F7D7D7D7F7D7D.00FFFFFFFFFF44KFFFFCFBFBF7F7F7F7 
20250 DATA 00FFFFFFFFFF44FFFF5FBFDFFFFFFFFF.00FEFEFEFEFE7E7E7EFE7E7E7F.FE7E7E 
20260 DATA 7D7F7U7D7D7F7D7D7C7F7F7F7F7F7F00,F7F7F 7 FBFBFCFFKF44FFFFFFFFFFFF00 
20270 DATA FFFFDFDFBF7FFFFF44KFFFFFFFKFFF00.7EFE7E7E7EFE7E7E7EFEFEFEFEFEFEO0 
20280 DATA O07F7F7F7F7F7F7F7F7F7F7F7F7F7F7F.00FFFFFFFFFFFFFFFFFFE2DCBEBFBFCF 
20290 DATA 0OFFFFFFFFFFFFFFFFFF83DDDEDEDEDD.O0FEFEFEFEFEFEFEFEFHFEFEFEFEFEFE 
20300 DATA 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FO0,F3FDFEBEBECDD-JFFFFFFFFFFFFFFFF00 
20310 DATA C3DFDFDFDFDF8FFFFFFFFFFFFFFFFF0O,FEFEFEFEFEFEFEFEFEFEFEFEFEFEFE00 
20320 DAT\ 0O7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F.00FFFFFFFFFFFFFEFEFE00FFEFEFF7F7 
20330 DATA 00FFFFFFFFFFFFFFFFFF01EFEFEFOFDF,00FEFEFEFEFEFEFEFEFEFEFEFEFEFEFE 
20340 DATA 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F00,FBFDFEFDFBE71FFFFFFFFFFFFFFFFF0O 
20350 DATA BF7FFF7FBFCKF1FFFFFFFFFFFFKFFF 0 0,FEFKFEFEFEFEFEFEFEFEFEFEFEFEFE90 
20360 DATA 007F7F 6064686162676 F 676264686162,00 FFFF0074F 87122178 F 472274 F 87122 
20370 DATA 0OFKFF0074F 87122178 F 472274 F 87122.00 FEFE0676F 676261686462676 F 67626 
20380 DATA 67GF 676264686162676 F 6762607 F7FOO,178F 472274 F 8712217 SF 472200 FFFF00 
20390 DATA 178F 472274 F 87122178 F 472200 FFFF 00,1686462676 F 676261686462606 FEFE0O 
20400 DATA 007F7K7F7F7F7F7E7D7D7B7B 76757373,00 FFFFF8E69D7DFDFBFBFBE01BFBFBFB 
20410 DATA 00FFFF0F33DCDFDFEFEFEF03ECEFEFEF,O0FEFEFEFEFE7EBEDEDEEEEE36D6E6E6 


26420 DATA 7375767 B 78707 D7E7F7F7F7F7F7F7F00.FBFB1BE0FBFBFBFD71) 9DE6F8FFFFFF08 
20430 DATA EFEFECO3EFEFEFDFDFDC330FFFFFFF80,E 60636 EEEEDEDEBE7EFEFEFEFEFEFE0O 
20440 DATA 007 F7F7F7F7F7F7F7F7E7D 7078787 B7B.00FFFFFFFFFFFFFF807FFFFFFFFFFFFF 
20450 DATA 00FFFFFFFFFFFFFF0lFEFFFFFFFFFFKF,eOFEFEFEFEFEFEFEFE7EBEBEDEDEDEDE 
20460 DATA 7B7B 78707 D7E7F7F7F7F7F7F7F7F7F 00. FFFFFFFFFF7FS0FFFFFFFFFFFFFFFF00 
20470 DATA FFFFFFFFFFFE01FFFFFFFKFFFFFKKF00,DEDEDEBEBE7EFEFEFEFEFEFEFEFEFEO0 
20480 DATA 007F7F7F7F 7878797979797979797979,00 FFFFFFFF0000FFFFFFFFFFFFFFFFFF 
20490 DATA 0OFFFFFFFF00O0FFFFFFFFFFFFFFFFFF f 00FEFEFEFE3E3E3E3E3E3E3E3E3E3E3E 
20500 DATA 797979797979797978787 F7F7F7F7F08,FFFFFFFFFFKKFFFFO000FFFFFKFFFF00 
20510 DMA FFFFFFFFFFFFFFFF0000FFFFFFFFFF00,3E3E3E3E3E3E3E3E3E3EFEFEFEFEFEO0 
20520 DATA G07F7F7F7F 78787 E7F7F7F7F7P7F7F7F ， 00FFFFFFFFFF3F0F83E0F8FEFFFFFFFF 
20536 DATA 0 0FFFFFFFFFFFFFFFFFF3F 0 F83E0F8FE , 00FEFEFEFEFEKEFEFEFEFEFEFEFE3E1E 
20540 DATA 7F7F7F7K7F7F7F7F7C 78797 F7F7F7F0O,FFFFFFFFFCF0C1071F7FFFFFFFFFFF00 

2 05 50 DATA FCFOC107 1F7FKFFFFFFFFFFFFFFFFF00, 1 E7EFEFEFKFEFEFEFEFEFEFEFF.FEFE00 
20560 DATA 0e7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F,00FFFFFFFFFFFFFFFFFFFFFFFFFFFEFC 
20570 DATA 00FKFFFFFFFFFEFCF8F1E3C78F1F3F7F,00FEFEFEFE3E3E7EFEFEFEFEFEFEFEFE 
20580 DATA 7F7F7F7F7F7F7E 7078797 F7F7F7F7F00,F8FIE3C78FIF3F7FFFFFFFFFFFFFFF00 
20590 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFKF00 f FEFEFEFEFEFEFEFEFEFEFEFEFEFEFE00 
20600 DATA 087F7F7F7F7F7F7F7F7F7F7F7F7F7F7F,e0FFFFFFFFFFFFFFFFFFFFFEFDFBF7EF 
20610 DATA 00FFFFFFFDF8F6EFDFBF7FFEFDFBF7EF,00FEFEFEFEFE7E3E9EBE7EFEFEFEFEFE 
20620 DATA 7F7F7F7F7E7E7D7D 7878797 F7F7F7F00,DFBF7F3EDDEBF7CF3FFFFFFFFFFFFFO0 
20630 ..DATA DFBF7FFFFFFFFFFFFFFFFFFFFFFFFF00 f FEFEFEFEFEFEFEFEFEFEFEFEFEFEFE00 
20640 DATA END 

30000 data 'eeeeeeeeeeeeeeeefldeeeeeeeedeeeedeeoeeeeeeeeeoeeeaeedodeeedeeeeed 
30016 data oieeeieeoeeeeeeeeeeeeeeeeoeeeeeeieeeieeeeeeeeeoodeoeeeeeeeeeeeoe 
30020 DATA ~ 010001 0000000800100610000000000001000100000000001000100000000000 
30030 DATA *•8800880022002200880088002200220088008800220022008800880022002200 
30040 DATA AA00AA00AA0OAA00AA00AA00AA00AA00AA00AA00AA00AA00AA00AA00AA00AA00 

38050 data 830 08300070007 eeoEooeEediceeicee 830083 eee7eee7eeeEeeeEoeiceeicee 

30060 DATA 8000800040004000200020000000009002600206640004000800080000600600 
30070 DATA 8800880076007600700070007000700088008800670067000700070007000700 
30080 DATA F30OF30OFD00FD00FD00FDO0F300F30eCF00CF00BF00BFO0BF00BF00CFO0CF00 
30090 DATA 6700070077007700770077007700770070007000770077007700770077007708 
30100 DATA 'FE0OFE00FD0OFDO0FB00FB00F70eF700EF00EF00DF00DFO0BF00BF007F007F08 
30110 DATA EE0OEE00DD00DD00BB00BB 00770077 e0EE0OEE00DD0ODD00BB00BB 0077007700 
30120 DATA "2200220055005500880088001100110022002200550055008800880011001100 
30130 DATA 7F7F7F7F7F7F7F7FBEBF.BEBEC1C1C1C1F7F7F7F7F7F7F7F7KBEBEBEB1C1C1C1C 
30140 DATA "0000000077007700770077007700770000000000770077007700770077007700 
30150 DATA FF 0 OFF 00 FF 0 OFFO 0 FFO 0 FF 0 OFF 00 FF 00 FF 0 OFF 0 OFFe 0 FF 0 OFF 0 OFFO 0 FF 0 OFF 80 
30160 DATA 'FKO 0 FEOOFFOOFF 0 OFF 0 OFF 0 OFF() 0 FF 0 CEFOflEF 00 FFOOFFOOFF 00 FFe 0 FF 00 FFO 0 
30170 DATA KEOOFE0OFFOOFF00EF0OEF00FF00FF00FE00FEO0FF00FF00EF00EF00FF00FF00 

3 618 0 DATA 77777777 D I) DDDDDD 77777777 DDDDDDDD 77777777 DDDDDDDD 77777777 DDDDDDDD 
30] 90 DATA 00000000 FI* OOFFO 000000000 FF00FF 000000 OOOOFF0OFF 0000000000 FF00FF0O 
30200 DATA C7C7C7C7EFEFEFEFFFFFFFFFKFEFEFEFC7C7C7C 7838383830101010183838383 
36210 DATA F80OF 8007400740022002200470047008 FO08FOO1 70017002200220071007100 
30220 DATA 87878787 FFF FFFFFFFFFFFFF 8787878763636363636363630303030303630303 
30230 DATA FFOOFFOO9F009FOO6FO06FO06FO06FO0F6O0F6OOF6O0F6O0F9OOF9OOFFOOFFO0 
30240 DATA 000000007 FO07FOO7FO07F0O7FOO7F0OOOO 00000 F7O0F70OF7O0F7O0F7O0F70O 
30250 DATA •7F0O7FO0BF0OBFOODFOODFOOEFOOEFOOF7OOF7OOFB0OFBO0FD00FD0OFEO0FE00 
30260 DATA 77007700 BBOOBB0ODD0ODD00KEOOEEO 077007700 BB0OBBOODD0ODD00EEOOEEOO 
30270 DATA 440044 OOAA0OAAOO11 00110088008800440044 OOAA00AAOOI 100110088008800 
30 280 DATA 7EOO7F00BD00BD00DBOeDBO0E7OOK7OOE70OE7O0I)BO0DB00BI)fl0BD007E0e7EO0 
30290 DATA 000000007F007F007F007F007F007F007F007F007F9 0 7F007F007F007F007F00 


BASIC チ x ツクサム 

1 〇 :5B 110： AA 216：13 ] 0020 ：37 10120 :8E 2 0 0 4 0 ：0 F 2014 0 ：D 2 2 0 2 4 0 ： D 2 

2 〇 34 〇 ：4 7 204 4 6 ： 20 20 54 0 ： 84 2 0 6 4 0 ：D 6 30090:00 3019 0:EA 30290:72 


70 Oh!X 1988.2. 


►1)] り- 138 ページの瀧山さんの总兄に饺成です。というわけで今年は受験だけどいつかき 
っと MZ -700 の戦 L •になるぞ。 中井诚樹（14> 京都府 



CB OE 38 
08 DD 23 
AD E5 3E 
24 00 ED 


SUM ： IB 2B 87 66 47 6D 84 49 

6180 2135 A61135 A3 0619 
6188 CS ED 53 A0 6] E5 C3 91 


9D93 

6300 

7F 

7F 


6308 

FE 

FB 

: 04 

6310 

FF 

FF 

: 3F 

6318 

7F 

7F 


00 00 00 
FF FF 7F 
7F FE FF 
FF FF FF 
FF FF 7F 
7F 7E 00 
FF FF FF 
FF FF 7E 
7E 7E FF 
FF DF FD 
FB KF 7E 
7E 7E FF 
FF FF FD 
FE FF 7E 
7E 7E FF 
FF 7F FF 


U スト 3 チェックサムフ□クラム 


• BASIC CHECK.SIM for M25 

OPEN "i ",¢1 .:.フ ァイ/い名 
OPEN " 〇 ",«2, "CRT：- :• 'CRT：- or LPT: 

WHILE NOT EOF («1) 

SUM0-O 

LINE INPUT «1,A$ 

PRINT #2,LEFT* (A$,5 )；"："； 

GOSUB 本 CNT 
FOR 1-1 TO 9 

IF NOT EOF («1) THEN 
LINE INPUT #1,A$ 

GOSUB *CNT 
END IF 

NEXT 

IF SUM い -32768 THEN SUMO - SIM 0 - 32 768 ： GOTO 1160 
PRINT »2,RIGHT$r0 _ + HEXS{SUM0 MOD 2 56) , 2)；' 

WEND 

PRINT #2 

CLOSE 

END 

*CNT 

FLAG-0 

FOR N-1 TO LEN (A$) 

C$-MID$ (A$,N,1) 

IF C$-CHR$ (34) THEN FLAG-l-FLAG 
IF C$<>" ' THEN SUM0-SUM0+ASC(CS) 

IF (C$- _ * *) AND (FLAG-0) THEN N-999 

NEXT 

RETURN 




リスト 4 

MP. obj 


6 190 

61 

0E 

03 

06 

es 

CD 

E6 

61 

94 

6198 

0D 

C2 

93 

61 

ee 

3E 

96 

11 

1 A 

61A0 

35 

DF 

62 

6B 

01 

56 

eo 

09 

3B 

61A8 

EB 

D5 

OE 

18 

ED 

BO 

D1 

3D 

91 

61B0 

C2 

A2 

61 

El 

01 

56 

ee 

69 

eo 

61B8 

Cl 

1 e 

CD 

C9 

00 

CB 

0E 

CB 

0B 

6ICO 

OE 

CB 

OE 

CB 

OE 

06 

04 

CD 

97 

61C8 

E6 

61 

OE 

02 

06 

08 

CD 

E6 

18 

61D0 

61 

0D 

C2 

CC 

61 

06 

04 

CD 

34 

61D8 

E6 

61 

2B 

CB 

0E 

CB 

0E 

CB 

EF 

61E0 

OE 

CB 

0E 

C3 

9D 

61 

AF 

CB 

22 

61E8 

OE 

30 

02 

3E 

FF 

12 

13 

10 

B2 

61F0 

F5 

23 

C9 

00 

00 

00 

oe 

oe 

El 

61F8 

ee 

eo 

00 

00 

00 

oe 

00 

ee 

00 

SUM ： 

43 

10 

OF 

AA 

AC 

eo 

3B 

5C A738 

62 00 

01 

00 

00 

oe 

00 

FO 

FE 

7D 

6C 

6208 

FF 

FF 

EF 

EF 

FE 

7D 

FF 

FF 

S5 

6210 

EF 

DF 

FE 

7D 

FF 

FF 

EF 

BF 

F5 

62 18 

FK 

71) 

FF 

IF 

EE 

7F 

FE 

7D 

81 

6220 

AB 

IE 

EE 

7F 

FE 

7D 

03 

IE 

02 

6 2 28 

EE 

7F 

FE 

7D 

FF 

IF 

EE 

7F 

73 

6230 

FE 

7D 

FF 

IF 

EE 

7F 

FE 

7D 

81 

6 2 38 

AB 

IF. 

EE 

7F 

FE 

7D 

FF 

IF 

CF 

6240 

EE 

7F 

FF. 

7D 

FF 

IK 

EE 

7F 

73 

6 24« 

FE 

71) 

AB 

IE 

EE 

7F 

FE 

7D 

2C 

62 50 

FF 

IF 

EE 

7F 

FE 

7 1) 

FF 

FF 

04 

6 2 58 

EF 

7F 

FE 

7D 

FF 

FF 

EF 

7F 

55 

6260 

FE 

01 

00 

00 

EO 

7F 

KE 

FF 

5B 

6 2 6 8 

FF 

FF 

FF 

7F 

FE 

FF 

FF 

FF 

77 

62 70 

FF 

7F 

FK 

FF 

FF 

FF 

FF 

7F 

F7 

6278 

FE 

FF 

FF 

FF 

FF 

7F 

FE 

FF 

76 

SUM ： 

03 

AB 

56 

3 9 

9A 

99 

AC 

E7 9OF6 

6280 

FF 

FF 

FF 

7F 

FE 

FF 

FF 

FF 

77 

6288 

FF 

7F 

FE 

03 

00 

oe 

00 

7F 

FE 

6290 

FE 

FB 

FF 

K K 

7F 

7F 

FE 

FB 

EE 

6 298 

FF 

FF 

7F 

7F 

FE 

FB 

FF 

FF 

F3 

62A0 

7F 

7-K 

FE 

FB 

FF 

FF 

7F 

7F 

F3 

62A8 

FE 

FB 

FF 

FF 

7F 

7F 

FE 

FB 

EE 

62B0 

FF 

FF 

7F 

7F 

FE 

FB 

FF 

FF 

F3 

62B8 

7F 

7F 

FE 

FB 

FF 

FF 

7F 

7F 

F3 

62C0 

FE 

FB 

FF 

FF 

7F 

7F 

FE 

FB 

EE 

62C8 

FF 

FF 

7F 

7F 

FE 

FB 

FF 

FF 

F3 

62D0 

7F 

7F 

FE 

FB 

FF 

FF 

7F 

7F 

F3 

6 208 

FE 

FB 

FF 

FF 

7F 

7F 

FE 

FB 

EE 

62E« 

FF 

FF 

7F 

7F 

FE 

FB 

FF 

FF 

F3 

62E8 

7F 

7F 

FE 

FB 

FF 

FF 

7F 

7F 

F3 

62F0 

FE 

FB 

FF 

FF 

7F 

7F 

66 

FB 

F6 

62F8 

FF 

FF 

7F 

7F 

OG 

FB 

FF 

FF 

FB 


SUM ： EB 5C 6B E4 73 5D F4 5C 1056 


SUM ： 61 B1 E5 05 D9 C4 38 3719B6 

6080 19 EB 3D 20 F0 21 50 00 : C2 
6088 19 EB El Cl 05 C2 08 60 : D5 
6090 C9 00 FF FF FF FF FF FF : C3 
6098 FF FF FF FF FF FF FF FF : F8 
60\0 214B 86114B C6 01 B5 : CA 
60A8 39 ED B0 C9 06 00 00 00 : 9F 
60B0 2106 801160 CO 018E ： 01 
60B8 2A ED BO C9 60 06 00 60 : 90 
60C0 114B 86 214B C6 01 B5 : C 入 
60C8 39 ED Be C9 00 60 66 00 : 9F 

6 OD 0 n 00 ae 21 oe co 01 8E : ei 

6008 2A ED Be C9 06 00 00 00 : 90 
60EO oe 00 00 FF FF FF FF FF : FB 
60E8 FF FF FF FF FF FF FF FF : F8 
60F8 C5 46 23 CD 73 00 DF 2C : 79 
60F8 AF DF 39 Cl C9 00 00 00 : 51 


SUM ： 97 43 43 F3 C3 EB 37 

6100 2159 9F 11 00 68 06 
6108 0E 06 7E 12 2313 0D 
6110 OA 61 D5114A 0819 

6118 ie f.e eg ee ee ee oe 
6120 2180 92 n ee 68 06 
6128 0E 061A 77 2313 OD 
6136 2A 61 DS 1] 4A 00 19 
613810 KE C9 00 00 00 ㈣ 

6140 00 oe oe oo ee 00 ee 
6148 ee ee 00 00 ee ee ee 
6150 ee 00 eo ee ee ee oe 
6158 ee ee 00 00 ee 00 oe 
6160 2153 CA 11 00 64 06 
6168 0E 061A 77 2313 0D 
6170 2A 61 D5114A 00 19 
6178ie ee C9 ee oe 00 eo 


SUM : F0 F0 F0 F0 F0 FO F0 F0 


FD 

77 

F7 

76 

77 
7A 
75 
F6 
B4 
53 
CE 
61 
73 
75 
F5 
F5 


SUM ： FB F8 85 79 7C 79 7C F9 6B9F 

6389 FF FF FF FF FF FF FF FF : F8 

6388 FF FF FF FF FF FF FF FF : F8 

6390 FF FF FF FF FF FF FF FF : F8 

6398 FF FF FF FF FF FF FF FF : F8 

63A0 FF FF FF FF FF FF FF FF : F8 

63A8 FF FF FF FF FF FF FF FF : F8 

6BB0 FF FF FF FF FF FF FF FF : F8 

63B8 FF FF FF FF FF FF FF FF ： F8 

63C0 FF FF FF FF FF FF FF FF : F8 

63C8 FF FF FF FF FF FF FF FF : F8 

63D0 FF FF FF FF FF FF FF FF : F8 

6308 FF FF FF FF FF FF FF FF : F8 

63E0 FF FF FF FF FF FF FF FF : F8 

63E8 FF FF FF FF FF FF FF FF : F8 

63F0 FF FF FF FF FF FF FF FF : F8 

63F8 FF FF FF FF FF FF FF FF : F8 


00 

00 

oe 

ee 

eo 

oe 

ee 

00 

ee 

ee 

ee 

oo 

ee 

ee 

00 

00 

0 0 

00 

ee 

00 

ee 

dO 

ee 

00 

ee 

ee 

ee 

ee 

ee 

00 

ee 

06 

00 

ee 

ee 

00 

ee 

ee 

00 

ee 

oe 

00 

eo 

oe 

eo 

00 

ee 

eo 

ee 

oe 

06 

ee 

ee 

ee 

ee 

ee 

00 

00 

00 

00 

00 

eo 

ee 

00 

ee 

ee 

00 

00 

oe 

00 

00 

ee 

00 

ee 

00 

00 

ee 

00 

ee 

ee 

00 

00 

ee 

ee 


► Xltwin には HE システムが搭战された。来年の GAME OF THE YEAR では Oh ! 
HE 赏なんてのができるのかな 一。 菊渾一正 （24) 舴你 JW 


SIM ： DC 69 4C 6B ID 69 5B 68 AF65 


6480 

FF 

FF 

FF 

7E 

7E 

FF 

7F 

FF 

76 

6488 

FF 

7E 

7E 

FF 

3F 

FE 

FF 

7E 

IH 

6 4 90 

7E* 

FF 

7F 

FF 

FF 

7E 

7E 

FF 

F5 

6 4 98 

FF 

FF 

FF 

7E 

7E 

FF 

FF 

FF 

FG 

64A0 

FF 

7E 

7E 

FF 

FF 

FF 

FF 

7E 

75 

64A8 

7E 

FK 

FF 

FF 

FF 

7E 

7K 

00 

76 


特集 QUICK MZ PAINT /I 


1010F7D036C5 
2OO0F7D0 9-EFO 

B1A1EDFOD1E8 
8 9-623D70D131 

O091D 00605830 
BD0D0 8EE03 9-0 


fffffeffefbeffef 

FF7FF7FF7FF7FF7F 

EFFEF0EFFEFFEFFE 

FFFFF07FF7EF77F7 

0FFFFOEFEEFBEFFE 

OFF7F07FF7FF7FF7 

0EFFE0FEFFEFFEFF 

0FFFFOF73F7EF77F 


B E 3 F 
F E F 7 


F B F o 
7 F F 8 

F E F 6 
7 F F 0 

F F B o 
F 7 F 0 

F F E o 
F 7 F o 

B F F 0 
F F 7 0 

6 F F 1 
o F 7 0 


0808080808080808 
0011 9- 9W 334 4556677 
0000000000000000 
66 -b 66666 6 6666666 


012345678901234 rj 678901234 5678901 
0000000000111111111122 2 222222233 


4 E D 6 8 o 


- o D 7 D o 6 o 


7 o 7 A 
7 0 7¢ 


OFEO3OD7O70D0 9-O2 


-OD7D0 9-EB22 


O6 36C07ODOOD016B 


A 8 

Ac 


9572A 5700009 A57 
AOOCEAAC0000EAAC 


>00210 


: F F £ 
• F F 7 


FF7EF7FF7 


o 8 0 8 A 
0 0110 


> 00 o OO 0 C 

>3445, 


V 8 o 8 o 8 
)56677 

4444444444444444 
6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 


>0000 

>0000 


080808080808 
223344556677 
333333333333 
6 6 6 6 6 6 6 6 6 6 6 6 


























7980 

7988 

7990 

7998 

79A0 

79A8 

79B0 

79B8 

79C0 

79C8 

79D0 

79D8 

79E0 

79E8 

79F0 

79F8 


FE FF FF FF FF 
FF FF FF 7F FE 
FF 7F FE FF FF 

eo ee 06 ee 00 
ee oe ee ee ee 
ee 00 ee ee 00 
ee 00 ee ee oe 
ee 00 ee oe 00 
oe ee eo eo oe 


00 00 00 00 00 2A 28 

ED 5B 2C 7C 0100 00 
9 5 7A 9C F 219 7 7 F.B 
13 3A 15 7C 93 3A 16 
9A F8IB 3A 19 7C 95 
1A 7C 9C F8 22 28 7C 
53 2C 7C 2A 2A 7C ED 
2E 7C 7B 95 7A 9C F2 

77 EB OC 13 C3 E8 76 
3E 80 9A F0 IB 3A IB 
95 3E 00 9C 00 78 A9 
01 EB 22 2A 7C ED 53 
7C 2A 28 7C ED 4B 15 
B7 ED 42 F2 7A 77 CD 

78 ED 43 28 7C ED 53 
7C 2A 2C 7C ED 4B 19 


78B9 7C 22 2E 7C 3A 57 7C E6 
78B8 03 87 87 87 CG A5 32 73 
78C0 79 32 A4 79 FE A5 012F 
78C8 38 28 03 0】 00 30 79 32 
78D0 54 79 78 32 77 79 32 BD 
78D8 79 00 C3 DO 79 3A 2E 7C 
78E0 90 57 D2 00 79 ED 44 57 
78E8 2A 28 7C E5 2A 2C 7C 22 
78F0 28 7C El22 2C 7C 3A 2F 
78F8 7C 32 2A 7C 78 32 2F. 7C 


SIM ： 5B B195 27 43 55 6B EA 

7900 2A 2C 7C ED 4B 28 7C B7 
7908 ED 42 0105 03 D21A 79 
7910 7C 2F 67 7D 2F 6F 23 01 
7918 OD OB 79 32 76 79 32 BC 
7920 79 78 32 79 79 32 BF 79 
7928 E5 2 入 2A 7C 00 00 00 29 
7930 29 29 29 44 4D 29 29 09 
7938 ED 4B 28 7C 79 E6 F8 RO 
7940 0F 0F 9F 85 4F 3E 80 8C 
7948 47 3A 28 7C E6 07 218E 
79S0 76 85 6F 7E 2F 6F 7A 09 
7958 D11415 20 04 RR U2 97 
7960 79 4K 06 00 62 6B CB 3C 
7968 CB ID D5 1)9 D1141C 00 
7970 60 00 0A A5 02 CB 05 38 
7978 0103 D9 B7 ED 42 D9 D2 


SUM ： Cl E9 B0 D3 87 70 F2 F2 


SUM: F6 0F 83 2 入 BC IE 7D 18 


SUM ： EC 6F 6C ED 2A 6D 6B 6F 


7680 DD 2A 00 7C 1810 00 01 
7688 03 07 OF IF 3F 7F 0102 
7690 04 0810 20 40 80 DD 7E 
7698 00 DD 23 2196 76 E5 3D 
76A0 2810 3D CA A8 76 El C9 
76A8 DD 7E 00 32 57 7C C3 A6 
76B0 76 00 CD BE 7G CD BE 76 
76B8 CD RE 76 C314 7A 2A 2C 
76C0 7C 22 30 7C 2A 2E 7C 22 
76C8327C2A287C222C7C 
76D0 2A 2A 7C 22 2E 7C DD E5 
76D8 El1128 7C ED AO ED AO 
76E0 ED AO ED AO E5 DD El C3 
76E8 3A 17 7C 93 3A 18 7C 9 入 
76F0 FOIB 3A IB 7C 95 3A 1C 
76F8 7C 9C F8 C3 56 77 00 00 


SUM ： 78 A9 5B AC 68 2B 58 71 


SIM ： CA 9C IB 6E 77 50 30 60 2C38 


7BOO 

66 

7C 

3A 

68 

7C 

19 

88 

47 

E8 

7B08 

ED 

5B 

6C 

7C 

3A 

6E 

7C 

19 

6D 

7B10 

88 

FD 

74 

00 

FD 

77 

01 

2 入 

98 

7B18 

63 

7C 

3A 

65 

7C 

47 

ED 

5B 

89 

7B20 

69 

7C 

3A 

6B 

7C 

19 

88 

47 

EE 

7B28 

ED 

5B 

6F 

7C 

3A 

71 

7C 

19 

73 

7B30 

88 

FD 

74 

02 

FD 

77 

03 

2A 

9C 

7B38 

66 

7C 

3 入 

68 

7C 

47 

ED 

5B 

8F 

7B40 

72 

7C 

3A 

74 

7C 

19 

88 

22 

DB 

7B48 

66 

7C 

32 

68 

7C 

2A 

69 

7C 

07 

7B50 

3A 

6B 

7C 

47 

ED 

5B 

75 

7C 

A1 

7B5S 

3A 

77 

7C 

19 

88 

22 

69 

7C 

D5 

7B60 

32 

6B 

7C 

2A 

6C 

7C 

iK 

6E 

D3 

7B68 

7C 

47 

ED 

5B 

78 

7C 

3A 

7A 

B3 

7B70 

7C 

4F 

19 

88 

22 

6C 

7C 

32 

入 8 

7B78 

6E 

7C 

2A 

7E 

7C 

EB 

3A 

80 

B3 

SUM ： 

66 

F7 

BB 

61 

4D 

9C 

DF 

FA 7186 

7B80 

7C 

19 

89 

22 

78 

7C 

32 

7k 

EO 

7B88 

7C 

2A 

6F 

7C 

3A 

71 

7C 

47 

FF 

7B90 

ED 

5B 

7B 

7C 

3A 

7D 

7C 

4F 

Cl 

7B98 

19 

88 

22 

6F 

7C 

32 

71 

7C 

CD 

7BA0 

2A 

81 

7C 

EB 

3A 

83 

7C 

19 

64 

7BAS 

89 

22 

7B 

7C 

32 

7D 

7C 

01 

CB 

7BB0 

04 

eo 

FD 

09 

Cl 

0D 

C2 

F6 

96 

7BB8 

7A 

21 

8C 

7C 

Of; 

10 

C5 

11 

8F 

7BC0 

28 

7C 

ED 

AO 

Kl) 

A l) 

ED 

入 e 

4B 

7BC8 

ED 

入 0 

E5 

ED 

入 0 

ED 

xe 

ED 

79 

7BD0 

Ae 

ED 

入 0 

CD 

06 

77 

El 

Cl 

19 

7BD8 

10 

E4 

C9 

ee 

ee 

60 

ee 

ee 

BD 

7BE6 

ee 

ee 

ee 

ee 

00 

ee 

00 

ee 

ee 

7BES 

00 

08 

00 

ee 

00 

00 

00 

00 

ee 

7BF0 

ee 

00 

00 

00 

00 

ee 

0 0 

ee 

ee 

7BF8 

00 

0 0 

ee 

ee 

00 

ee 

00 

00 

ee 

SUM ： 

F4 

D7 

50 

CF 

2E 

BD 

88 

FB 31FB 

7C00 

20 

7F 

ee 

ee 

ee 

ee 

ee 

00 

9F 

7C98 

00 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

7C10 

ee 

00 

on 

㈣ 

oe 

64 

00 

14 

78 

7C18 

ee 

6C 

62 

54 

0i 

oe 

oe 

ei 

C4 

7C20 

02 

03 

04 

B5 

06 

07 

00 

ee 

IB 

7C28 

89 

ee 

5C 

ee 

9C 

ee 

70 

00 

FI 

7C30 

89 

eo 

5C 

ee 

00 

ee 

ee 

00 

E5 

7C38 

00 

oe 

00 

ee 

ee 

ee 

00 

ee 

00 

7C40 

00 

ee 

()0 

ee 

ee 

00 

47 

ee 

47 

7C48 

BB 

0 ] 

2D 

62 

ee 

00 

ee 

ee 

EB 

7C50 

00 

eo 

00 

ee 

oe 

ee 

00 

ee 

ee 

7C58 

ee 

ee 

CC 

33 

cc 

33 

eo 

ee 

FE 

7C60 

00 

35 

0 1 

00 

81 

oe 

ee 

EF 

A6 

7C68 

FF 

EO 

IE 

01 

E4 

4F 

FF 

6D 

9D 

7C70 

A5 

FE 

ee 

FF 

FF 

E0 

le 

ee 

91 

7C78 

AC 

EA 

FF 

07 

D6 

FF 

C8 

FE 

37 


00 
eo 
BB 
FF 
DC 
E2 
91 
15 
入入 
7C 
C3 
A5 
12 
Cl 
4E 
E6 


F7 

76 

77 
7E 
90 

ee 

00 

oe 

ee 


52 

6D 

93 

C5 

85 

2A 

A5 

ID 

E6 

38 

OC 

1C 

C5 

12 

Cl) 

C9 


AC 
F9 
57 
4F 
07 
C9 
78 
A8 
4 0 
46 
5E 
BO 
86 
C8 
C7 
Aft 


SUM: El97 5 入 4D A7 C7 F0 36 入 B71 

7 入 80 CB ID IF CB 2C CB ID IF : 05 
7A88 CB 2C CB ID IF 32 75 7C : 21 
7A90 22 76 7C 2 入 2C 7C 29 EB : FA 
7 入 98 2A 28 7C B7 ED 52 ED 5B : 0C 
7AA0 30 7C 19 7C 87 9F 32 7A : 13 
7AA8 7C 22 78 7C 29 8F 32 80 : FC 
7AB0 7C 22 7E 7C 2A 2E 7C 29 : 95 
7AB8 EB 2 入 2A 7C B7 ED 52 ED : 9E 
7AC0 5B 32 7C 19 7C 87 9F 32 : F6 
7AC8 7D 7C 22 7B 7C 29 8F 32 : FC 
7AD0 83 7C 22 817C AF 67 6F : A3 
7AD8 22 66 7C 32 68 7C 22 69 : A5 


リスト 5 スプライン .obj 


SIM ： 

57 

62 

53 

38 

E6 

IB 

1C 

0C 957E 

7800 

28 

7C 

ED 

53 

2A 

7C 

2A 

2C 

E0 

7808 

7C 

ED 

4B 

IB 

7C 

03 

ee 

ee 

4E 

7810 

B7 

ED 

42 

FA 

22 

n 

eD 

CD 

54 

7818 

41 

78 

ED 

43 

2C 

7C 

EO 

53 

D1 

7820 

2E 

7C 

2A 

28 

7C 

ED 

5B 

2A 

EA 

7828 

7C 

22 

2A 

7C 

ED 

53 

28 

7C 

28 

7830 

2A 

2C 

7C 

ED 

5B 

2E 

7C 

22 

E6 

7838 

2E 

7C 

ED 

53 

2C 

7C 

C3 

B4 

09 

7840 

78 

2k 

28 

7C 

22 

60 

7C 

2k 

6E 

7848 

2C 

7C 

22 

66 

7C 

2A 

2A 

7C 

7C 

7850 

22 

63 

7C 

2A 

2E 

7C 

22 

69 

60 

78 58 

7C 

2A 

63 

7C 

ED 

5B 

69 

7C 

B2 

7860 

19 

CB 

2C 

CB 

ID 

E5 

2A 

60 

67 

7868 

7C 

ED 

5B 

66 

7C 

19 

CB 

2C 

B6 

7870 

CB 

ID 

D1 

E5 

B7 

ED 

42 

22 

入 6 

7878 

8F 

78 

El 

F2 

87 

78 

22 

60 

5B 

SUM ： 

CF 

94 

S6 

IF 

74 

21 

70 

61! 

5CDA 

7880 

7C 

ED 

53 

63 

7C 

18 

07 

22 

DC 

7888 

66 

7C 

ED 

53 

69 

7C 

21 

FF 

27 

7890 

FF 

CB 

7C 

28 

07 

7C 

2F 

67 

87 

7398 

7D 

2F 

6F 

23 

24 

25 

C2 

59 

A2 

78A0 

78 

7D 

FE 

02 

D2 

59 

78 

C9 

61 

78A8 

2A 

28 

7C 

22 

2C 

7C 

2A 

2A 

EC 


SUM: 2198 02 F8 63 FF 9D FA 4BCC 


6548 00 00 00 60 

6550 00 68 00 ee 

6558 00 ee oe oe 

6569 00 eo eo 00 

6568 ee oe ee oe 

6570 ee oe ee eo 

6578 oo eo ee 00 


00 

00 

ee 

oe 

ee 

00 

00 

eo 

ee 

ee 

00 

ee 

00 

ee 

ee 

eo 

00 

00 

ee 

ee 

ee 

00 

00 

ee 

00 

ee 

eo 

ee 

oe 

oe 

eo 

00 

eo 

G0 

ee 


64B0 00 ee 00 7E 
64B8 FF 7F FE FF 
64C0 FE FF FF FF 
64C8 FF FF FF 7F 
6400 FF 7F FE FF 
6408 FE FF FF FF 
64Ed FF FF FF 7F 
64E8 FF 7F FE FF 
64F0 FE FF FF FF 
64F8 FF FF FF 7F 


FE 

FF 

FF 

KF 

79 

FF 

FF 

FF 

7F 

F7 

FF 

7F 

FE 

FF 

76 

FE 

FF 

FF 

FF 

77 

FF 

FF 

FF 

7F 

F7 

FF 

7F 

FE 

FF 

76 

FE 

FF 

FF 

FF 

77 

FF 

FF 

FF 

7F 

F7 

FF 

7F 

FE 

FF 

76 

FE 

FF 

FF 

FF 

77 


4 
F 
1 

F 

6 

E 

oO 

c 

c 

9 

A 

5 
9 

5 

D 

c 

E 

F 

3 

M 

u 

5 


D72EDF0831SS888} 
0019 AA005F8FFFFFFF 


0000000060 F F F F F F 
0000000006 FFFFFF 

11D1BB1E2C FFFFFF 
3009 BBBB 900 5 FFFFFF 

0111110000 FFFFFF 
0000000000 FFFFFF 


FFOOOO 0 O 


0 0 F 
OOF 


F F F F F 


DF 0007 C 7910 FFFFFF 
FF9ABBBA97FFFFFF 


90000^0000 


F F F F F ” 
FFFFFF 


v»o 00 0 OO 

!： A B B c cr\ 

cccccccccccccccc 

7777777777777777 


00DD2BB 212 cc 
00E155E 2627 C17E2 

00CBDDD22CC2B2CB 
007CEE1 52725 C37C 

008C7CBDCAADCFE2 
0022B7CE722E 2125 

: B9AC700ACFBDAD 


o 0 0 
0 0 0 


172c 22767- 


V0CCC9CF 0200 DC3C 

Vo 72717 A 6321277 


ACCEC2CBBB2A 
22727375 CC22 


0000 

0 0 0 3 
0 0 0 


BB22AEC4DCFCB 
5E 232276 E 2175 


V5E30O0BE27EA 


V 077227 < 


COCO0ODOO3O0C 


9D 965495 ort 
D1C2A070O^ 


>12 0 
• E 2 0 


V 76007 cco 75277 c 
4F 9019 F0ADA8EC 


73CC04D 210445 rt 


レ 4 c 0 3 
3 4 7 CD 4 


7CD2ACABB82CCDC 


4 c 
9 2 


CC3CCD02CAECDD 
79527 EF 47227 ee 


2 D . 

4E297E5 2EB 5272 < 

DO0CBECDB7CD3EC< 
e 77727 E5B7E527< 

71EC 200 CD37C 
B 427227 E01t 


: ABBCCDDEEFF 
7777777777777777 
7777777777777777 


FFF 000000 

7FF 000006 


>00000 

*00000 


080808080 

001122334 

555555555 

666666666 


OCB4CADB40C8EC1A 
077073 E 5 40722742 

0808080808080808 
0011223344556677 
7 7 7 7 7 7 7 7 7— 7 7 7 7 7 7 7 
7777777777777777 


B8BF69A778 _ D 5 D 1 
3A9356BABAI 2 69 5 


8 


-A7D6E4CO . 


^ 4 D E 18 F o 


9 0 6 3 A 




c 15 D 
7 7 c E 


)F 12 
■ 626 


2 c 1 C 

3 71 t 


o s o s 

E E F F 
A A A A 
7 7 7 7 
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実用 (7) オブジェクト指向のゲームプログラミング第3回 

“ Classm ” によるプログラミング 


Hamaguchi Isamu 

浜口勇 


オブジェクト指向で 1 J アルタイムゲームをということで，現在作成 
中のサンプルシステムを “ Classm ” と名付けることにしだ。果だし 
て Classm によるプ□ヴラミンヴとはどのようなものか？ まだ， 
今回はシステムのフィルタ部分を C のソースのかだちで掲載する。 


いよいよ基本システムのプログラミング 
に入るわけだ。まず前回の解説にもあった 
クラス定義部からマクロを生成する「フイ 
ルタ」を作ることにしよう。ただし，今回 
は C のソースを掲載するにとどめておくこ 
とにする。 LSI - C を持っている人は自分で 
コンパイルしてもよいが，もちろん，フイ 
ルタだけあっても実際に使用するわけには 
いかない。オブジェクトはシステムが完成 
してからまとめて掲載するほうがよいだろ 
う（そのほうが予期せぬバグにも対処でき 
るからね)。 

というわけで，今回マクロを生成するフ 
イルタの作成を行ったのだが，まずいこと 
に8ビットパソコンというのは思ったより 
メモリが少ない。もともと，この プロ グラ 
ムはミニコン上の UNIX の C で記述された 
ものだったので，書き直してみるとメモリ 
が足らずリンカが オーバーフローを 起こし 

図1クラスの階層構造 


てしまう。そこで，ワークエリアなどを極 
端に削った結果，どうやらオブジェクトに 
落とすことができたという次第だ。 

しかし，それとは逆に感じたことは「メ 
モリ量を別にすれば8ビットマシンでもか 
なり速いものだな」ということである。な 
にしろ VAX は遅い遅い。日本は根が貧乏な 
ので ユーザー 数がどうしても多くなるせい 
だが，仮想記憶が起こるとコンパイルに30 
分〜1時間かかることはざらである。 

ウ〜ン，これでメモリさえあれば。とい 
うことで X 68000 の C にも期待してるぞ！ 




□ 


この連載で作るリアルタイムゲームのた 
めの基本システムは 「 Classm 」という名前 
にした。語感は悪いが，オブジェクトアセ 
ンブラなんて呼ぶよりはましだろう。では， 
まず フイ ルタのプログラム自身 
の説明は後回しにして，具体的 
にどのようなプログラミングが 

陵能 7 

可能なのかを説明してみよう。 

図1を見てほしい。これは， 
あるクラスが持つプログラムの 
構造を描いたものである。四角 
がいくつか描いてある。このひ 
とつが，1メソッドに当たる。 

縦方向に1列2列と並んでい 
るのが，メソッドの入り口であ 

図日出力のためのクラス 

putchar printf fopen fclose 

クラス 3 Ll dj L_J 

クラス 2 LH 


□ 

I 

□ 

□ 


クラス i 


る。機能 1 〜 7 という名前がついている。 

もし機能1というメッセージを送ると，機 
能1の下の矢印にそってプログラムが実行 
されていくことになる。 

そして横方向に1行2行と並んでいるの 
力 5 '，クラスの階層構造である。これはクラ 
ス1〜11で表される。たとえば，クラス5 
の機能というのはこの表のクラス5の段か 
ら下ということになる。クラス4以下は継 
承の機能としてクラス5に付属するからで 
ある。ここに書かれたクラスに新しい機能 
を付け加えたい場合は，ここに書かれてい 
る行のもう一段上に新しい階層を設けて， 
そこに新しい機能を記述してやることにな 
る。今回使用するのは単純継承で継承する 
親はひとつなので，このような簡単な形に 
なるのだ。 

さて，なぜこのような図を出したかとい 
うと，変数の継承は新しいクラスで宣言さ 
れた変数をその名前などにかかわらず，ど 
んどん付け足していってやればよいのだが， 
メソッドの場合はそんなに単純ではないと 
いうことである。図1のような造を作り 
出してやらなければならない。 

まず，この図全体で表されるクラス11に 
対してメッセージを送る場合，どのメソッ 
ドに対応するかのテーブルが必要である。 
この場合， 

機能1 — クラス11のメソッド1 
機能2->クラス8のメソッド2 
機能3 —クラス11のメソッド3 
機能 4 — クラス4のメソッド4 
機能5->クラス11のメソッド5 
機能 6 — クラス11のメソッド6 
機能7 —クラス10のメソッド7 
というテーブルができあがる。 

また，クラス11以降の下矢印は，継承の 
機能を利用するための super に対するメッ 
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セージ呼び出しを示しているのだが，これ 
も対応するメソッドがないクラスは抜かす 
ようなマクロを作成してやる必要がある。 

ところで，図の中で所どころに矢印が途 
切れている場所がある。これは「矢印を出 
している箱」に相当するメソッドで ， super 
に対するメッセージ呼び出しを行っていな 
いとプログラムに対する継承の機能は利用 
されず，そこで矢印は途切れてしまうので 
ある。 

それでは，この図を利用してもう一度， 


super と self の説明をしておこう。 

super というのは，図1でいうと「自分の 
ひとつ上のクラスに対してメ ッ セージを送 
る」という機能を表すためのオブジェクト 
(今回のシステムの場合は マクロ） である。 
この動きはちようど箱から下に向かって出 
ている矢印になる。 

実際には，機能1のメソッドから super を 
使用して機能2のメ ッ セージを送るような， 
異なるメッセージを送ることが可能である。 
そのような場合は矢印が交差するような形 


リスト Classm のフイルタ部 (c のソースリスト） 

料 Include <stdio.h> 

林 define A-SIZE 2 

林 define MAX-CLASS 64 

料 define MAX-USE 32 

林 define MAX.VAR 1024 

林 define MAX-METHOD 1024 

鉢 define LABEL-SIZE 8 

FILE *fp ； 

int c—count; 

struct c lass { 


char 

cl_name[LABEL_SIZE]; 

st rue t 

class 

本 sp-class; 

int 

u_count 


st rue t 

class 

’*use_class[MAX-USE]; 

s true t 

var 

本 c_va r; 

struct 

var 

*i_var; 

s true t 

method 

ホ c_me thod; 

s true t 

method 

*i_method ； 


)cl [MAX_CLASS]; 

int v_count; 

struct var ( 

struct va r 本 v_link; 

char var_name[LABEL-SIZE] : 
int var—size; 

)va[MAX_VAR]; 

int in-count; 

struct method ( 

struct method 本 m_link: 
char me t.name[LABEL-SIZE]; 
int me t^sym; 

)me[MAX_METHOD]; 


ma i n O 
( 

VOID cl_read O; 

int w_cv (>,w_iv O; 

VOID w_s1cm O,w_s1ira O; 

VOID w-spcm O,w_spim() : 

VOID w_ucra O,w_uim O ； 

VOID w_cro () , w_iro O ； 

int i, j ； 

char fname[10]; 

printf(" start classm 1987/12/16\n"); 
c_count=v_count=m_count=0; 
c1-read O; 

printf("class = Xd\n",c_count) : 
for (i=0;i<c_count;i++)( 

strcpyCfname,c1[i] . cl_name) : 
streat (fname," . h"); 

if ( (fP=fopen(fnamew" ) ) == ERROR)( 

printf ("err not open Xs\n"•c1U]. cl-name): 
break; 

> e1se ( 


\tdw\tc1assMethod\n"); 


1-name) : 


fprintf (fp,"\tinclude classdef.h\n\n") : 

fprintf(fp,";\tmeta c 1 ass\nme tac 1 ass :\n\td«r\troe t ac lass ヽ n 

fprintf (fp,"\n;\tclass var\n\n"); 

fprintf(fp,"evarsize\tequ\tXd\n",w_cv(&cl[i])); 

fprintf (fp,"\n; ヽ tinstance var\n\n") : 

fprintf (fp,"ivarsize\tequ\tXd\n" • 冒 - iv C&cl[i ]) 〉 ； 

fprintf (fp,"\n"); 

w 一 slcm(&cl[i]);w_sllm(&cl[i]); 

fprintf (fp,"\n") : 

w-spcm (c1[i] • sp-class,c1[i]. sp_class) : 

«_spimCclCi]. sp_class,cl [i]. sp_class) : 
printf ("use class = Xd\n",c1[i1.u.count); 
forCj=0;j<c1Ci]. u_count;j++)( 

fprintf (fp.”;\tclass_Xs\n",clU]. use.class CJ ] ->c 

w_ucm(c1[1].use.class Cj],c1 [1]. use_class[j]) : 
w_uim(c1Ci] . use_class Cj1,clCi] . use-class[j]); 


になるはずである。しかし，このような使 
用法は可能ではある力 5 '普通はしない。なぜ 
ならオブジェクトの振る舞いを予測するこ 
とが困難になるからだ（要はいろいろと考 
えることが多くなるということである)。 

もし，同じクラスの中の別の機能を実行 
したい場合は self に対してメッセージを送 
るということを行う。これは，他のオブジ 
ェクトからメッセージを送られた場合と同 
じように，一番上から矢印をたどっていく。 

これは ， super ヘメッセージを 送るのに対 
して結果が予測しやすいうえに（普通にメ 
ッセージを送るだけだから当然)，非常に強 
力な特徴を持っている。 


self の意味 


非オブジェクト指向の一般的なプロダラ 
ミングにおいては，機能の1つひとつを細 
かく分けてサブルーチンとして使用すると 
いったことをよく行う。これをもって構造 
イ匕と称するわけである。たとえば，以下の 
ような状態が考えられる。 

機能1のサブルーチン 

i 

機能2のサブルーチン 

i 

機能3のサブルーチン 

矢印はサブルーチン呼び出しを示してい 
る。機能1から機能3に向かって処理が具 
体化（たとえば，よりハードウェアに密着 
した低レベルのサブルーチンになっていく） 
していくような構造にうまくプログラムを 
作り上げると，階層化されていて美しいプ 
ログラムだと言ったりする0 

たとえば， C には printf という BASIC の 
print using に相当する強力なフォーマッタ 
出カサブルーチンがある0このサブルーチ 
ンはさらに， putchar という「1文字を出力 
する」といった単純な機能でシステム寄り 
のサブルーチンを内部から呼び出して使っ 
ている。 

これは確かに素晴しい。なぜならハード 
ウェアや 0 S が変わっても putchar だけ書き 
換えてやれば，高機能な printf のほうも使 
用できるからである。 

しかし，実は一見素晴しいこうした考え 
方にも重大な欠陥があるのだ（作った人間 
はそう考えてはいないだろうが)。 

それは， C の関数を見ていればわかる。 
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C の関数には， printf と同じような働きをす 
る fprintf というサブルーチンがあるのだが， 
これは中身は同じものなのに，出力する先 
がそれぞれ標準出力と任意のファイル出力 
と違うだけで同じものをコピーして使って 
いるのである。これはもったいないし意味 
がない。 

つまり fprintf では putchar の代わりに putc 
という関数を呼んでいるだけなのである。 
同じ働きなのに，プログラムが2つ。この 
ような状況を防ぐためにオブジェクト指向 
には2つの機能が用意されている。それが 
多重継承と機能の再定義である。 

今回は多重継承は使えないので，機能の 
再定義だけ説明してぉこう。機能の再定義 
を行うには self が重要である。これによっ 
て初めて可能な機能なのである。 

今度は図2を見てみよう。まず図1の機 
能1があったところには putchar という機能 
が，そして機能2には printf という機能が入 

っている。 

そうすると，クラス1というのはたぶん 
低機能な標準出力というクラスで，クラス 
2というのは高機能な標準出力というクラ 
スになるのはわかると思う。なぜなら put 
char というのはクラス2になって初めて現 
れるメソッドだからである。クラス2のほ 
うがクラス1よりも利用できるクラスが多 
〈強力ということである。当然クラス2で 
も， putchar は使用できる，入り口はあるの 
だから。 

また，この新しく作られた printf というメ 
ソッドでは self に刘' して putchar というメッ 
セージを送っている。これで， putchar とい 
う機能が使えるからである。 

ではこの上にさらに シーケンシャル ファ 
イル出力，クラス3というクラスを付け足 
してみよう。クラス3はファイル出力なの 
で当然， open と close というメソッドカ 5 '追加 
されている。 

ここで，クラス3にも putchar のメソッド 
があり，それからクラス1のメソッドに対 
しては super を使ってメ ッ セージを送ってい 
ないことが矢印が書かれていないことから 
わかるだろう。つまりクラス3の putchar は 
クラス1の putchar をまったく利用しないプ 
ログラムである。 

ところで printf は self で put char を呼び出 
していた。だからクラス3のオブジェクト 


w-cmC&cl fi]) ; 
w_imC&cl[j]); 


f c 1o se Cf p )； 


VOID 

{ 


c l_read O 


i nt 

s true t 
st rue t 
st rue t 
struct 


token; 
method 
class 
method 
var 


木 linkO ; 

*se 1 f_c lass, *new_c lass (),*su per 
*met_read O; 

»var_read C); 


_c 1 ass O ; 


while((token=ge tchar O)!=EOF) { 
switch (token 〉 { 
case * ©* : 

self-class = new_class (); 
break; 


1 ass O : 


ss~>c_.var); 


ss->i_var); 


d); 


d ) : 


se1f_class->sp_class 
break; 


super_c1 ass O; 


se1f_c1 a s s->u se_classC(self_c1 as s~>u_count)++] = supe r_c 
break; 

，十•： 

se1f_c1 ass->c_var= (struct var *)1 ink (var_read(),se1f_c1 a 
break; 

• 一 * j 

se1f_class->i_var= (struct var *)1ink (var_read() , se1f_cla 


break ; 

•ホ，： 

se1f_c1 as s->c_me thod=link (me t_re ad O,self_c1ass->c_m 


i tho 


default: 


break; 

*/* : 

se1f_class->i_method=link(met_re ad() , se1f_class->i_me tho 

break; 

break; 


s t rue t 
s t rue t 
s t rue t 
{ 


method *1ink(token.1inkp) 
method *token; 
method 本 linkp; 

struct method 本 temp; 
token->m_link =linkp; 
return (token); 


class *new_c1 ass C) 


c1[c_count]. sp.c1ass=NULL; 
cl[c_count] . c_var=NULL; 
cl[c_count]. i_var=NULL; 
c1[c.count]. c_me thod=NULL; 
c1[c.count] . i_method=NUL し； 
cl [c_count] . u_count=0; 
scanf ("Xs\n” ， cl[c_count]. c 】 
return (&c1Cc_count++]); 


.name) : 


struct class 本 super_classO 
{ 

char ntemp[8]; 

i nt i : 

scanf (” Xs\n",ntemp); 
for Ci=0;1<c_count;i++) 

if(st remp(c1Ci]. cl_name,ntemp): 
return (&clti]); 

return (NULL); 


struct. 

{ 


method *me t_read() 

scanf ("Xs\n",me[m_count] . me t.name) : 
me[m_count] . met_sym = m_count; 
return (&me[m_count++]); 


s t rue t 
( 


var *var_read O 

scanf ("Xs Xd\n",va[v_count] • var.name,&va[v_count] . var_size); 
return(&va[v_count++]); 


int w_cv Csc) 

struct class *sc; 

{ 

int varls O; 

if(sc==NULL) 

return ¢0) ; 

return(var1s(w 一 cv(sc->sp_class),sc->c.var)); 
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i nt 

st ruet 
{ 


w_iv (sc) 
class *sc; 

int var1s O; 

i f (sc—NULL) 

return C0); 

returnCvarls(w_iv(sc->sp_class),sc->i_var)>; 


i nt varls (c, p) 

i nt c; 

struct var 本 p; 

{ 

if(p==NULL) 

return (c); 

fprintf(f p, ” Xs ヽ tde fl\tXd\n” ， p->var-name,c=var1s(c,p->v_link)); 
returnCc+p->var_size); 


i nt 

st rue t 
( 


w_slcmCsc) 
class 本 sc; 


struct method 本 p , 本 sclinkO; 

i nt i; 

i=0; 

if Csc~NULL) 

re turn ⑴； 

i=w_slem(sc->sp_class); 

for Cp=sc->c_me thod;p!=NULL;p=p->m_link)( 

if (sc link (p->me t_name, sc->sp_c lass)==Nl)LL) 

fprintf(fp,"_se1fXs\tmacro\n\t se1f class\tXd\n\tendm\n",p 

->met_name f i )； 

i+=A_SIZE; 

) 

return(i); 


w_s1im(sc) 
class *sc; 

struct method 本 p , 本 silinkO; 

int i ; 

i=0; 

if (sc==NULL) 

returnCi); 

i=w_s1imCsc->sp_class) : 

for (p=sc->i_method;p!=NULL;p=p->m_1ink) { 

if(si1 ink(p->met_name, sc->sp_class)==NULL) 

fprintf (fp,"0se1fXs\tmacro\n\tse1finstance\tXd\n\tendm\n 

b, i); 

i+=A_SIZE; 

) 

returnCi); 


s true t 
char 
s true t 
( 


method 本 sc 1ink (s,sc) 

* s ; 

class 本 sc; 

struct roe thod 本 p ; 
if(sc==NULL)( 

return(NULL); 

)e1se ( 

for Cp=sc->c_me thod;p!=NULL;p=p->m_1ink) 
if (stremp(s,p->roet_name) ==0) 
return (p); 

) 

return(sc 1ink(s,sc->sp_class)) : 


s true t 
char 
struct 
( 


method 本 si 1 ink (s,sc 〉 

* s ; 

class 寧 sc; 

struct method 本 p; 
if (sc==NULL) { 

re turn (NULL) : 

)e1se { 

for Cp=sc->i_me thod;p!=NULL;p=p->ra_link) 
if (st remp (s,p->me t_name) ==0) 
return (p) : 

) 

re turn (si1ink(s,sc->sp_class)) : 


VOID 
s true t 


w_spcro(tc,sc) 
class 本 tc • 本 sej 


struct method 本 p , 本 sclinkO; 
if (sc=NULL) 

re turn; 

w_spcm(tc,sc->sp_class); 

for (p=sc->c_method;p!=NULL;p=p_>m_link) 

if(sc 1ink(p->met_name, sc->sp_c1 ass)==NULL) 

fprintf (fp,"_superXs macro\n\tca1l\tX»@X05dlt 林 \n\tendm 

\n" , p->mat.name,sc 1ink(p->met_name ( tc)->met_sym); 

> 


VOID 


w_spim(tc,sc) 
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に対して putchar というメッセージを送った 
場合に， printf が呼び出す putchar はフアイ 
ル出力用の新しく書き直された putchar で 
ある。このように printf という，機能は同 
じものでも，新しいクラスではまったく別 
の出力に対しても出力が可能になることが 
わかる。 

このように，もっと複雑に self による呼 
び出しが行われているクラスだと，それを 
継承して僅かなメソッドを追加するだけで， 
その機能を自由にコントロールすることが 
できる。これは，構造化などといったお題 
目とは異なった確固たる力であるといえる 
だろう。これは，実は当然できるべき類い 
のことなのだが（同じ記述がプログラム中 
に幾つも出てくるのはおかしいという考え 
方からすると）今までの言語では機能が低 
くてできなかった。 

オブジェクト指向はそうした自然な思考 
を可能にするといえよう。 


フイルタについて 


では最後にフイルタについて説明してお 
こぅ。 

このフイルタは MSX - DOS 上の MSX-C 
で書かれたものである。 MSX - C は LSI-C 
の系列にあるコンパイラで Z 80系では最良 
のコードを出力するもののひとつである。 
いわゆるスタンダードな C といえるので移 
植性も高いはずである。 

ではプログラム自身の説明に入っていこ 
う。このプログラムは標準入力からフアイ 
ルを入力してそれを M 80 のマクロとしてフ 
アイル出力するプログラムである。プログ 
ラムには3つの構造体が配列として定義さ 
れていて，それぞれのためにカウンタが用 
意されている。 

構造体 class は配列 cl [] として構造体 var 
は va [] として，構造体 method は me [] とし 
て定義されている。 

それぞれの配列は，クラスと，そのクラ 
スの変数やメソッドを蓄えるために使用さ 
れる。 

クラスが変数とメソッドを持つのは，ク 
ラスの定義に 

struct var * c - var ; 
struct var 氺 i _ var ; 
struct method * c _ method ; 




struct method * i _ method ; 

という記述があることからもわかる。 

さてプログラム本体だが，それぞれの関 
数についてひと言ずつコメントしておいて 
リストを読む場合の助けとしよう。 

• main () 

メインプログラムでそれぞれの関数の呼 
び出し，フアイル出力のためのフアイルの 
オープンなども行っている。 

• cl-read () 

標準入力からデータを読み込み，場合分 
けしてそれぞれの配列に格納する関数を呼 
び出す。 

• link () 

クラスに変数やメソッドを〈つつける。 

• new-class () 

クラスの名前を取り込み配列に割り当て 
る。 

• super-class ^ ) 

スーパ— クラスの名前を取り込み， スー 
パークラスを配列の中から探し出す。 

• me し read( ), var.read () 

それぞれメソッド，変数名を読み込み配 

列に割り当てる。 

• W-CV 、）， W-.IV () 

クラス全体で使用できるクラス変数とイ 
ンスタンス変数を算出する。 

• varls () 

上の関数から呼ばれ，変数をファイル出 
力する。 

• w_slcm( ), w-slim () 

セルフの メソッド呼び出し用 マクロを 計 
算して出力する。 

• sclink( ), silink () 

クラス，インスタンスのメソツドをサー 
チする。 

• w_spcnrn w-spim () 

スーパーのメソッ ド呼び出し用 マクロを 
出力する。 

• w_ucm 〈 ) , w.uim () 

ほかのクラスのオブジェクトを呼び出す 
マクロを出力する。 

• w-cm ( ), w-im {) 

メソッドに 大域 ラベルをつける。 

• cmtable( ) , imtable () 

メゾッ ド呼び出しのための テーブルを 出 
力する。 

というわけで，来月はシステムのカーネ 
ル（骨組み）へと入っていく予定だ。 


struct class *tc,*sc; 

struct method 本 p , 本 silinkO; 
if (sc==NU しし） 

re turn; 

w_spcm(tc•sc->sp_class); 

for(p=sc->i_me thod : p!=NUL し； p=p->m_link 〉 

if (si 1 ink (p->met_name,sc->sp_class)==NU し L) 

fprintf(fp, M @supe rXs mac ro\n\tca1l\tX®@%05d<m\n\tendm 
\n",p->met.name,silink(p->met_name, tc)->met_sym); 


int w_ucm(tc,sc) 

struct class 本 tc, 本 sc; 

( 

struct method 本 p , 本 sclinkO; 
int i; 

if (sc==NULL) 

returnC0); 

i=w_ucm(tc,sc->sp_class); 

for (p=sc->c_me thod;p!=NUL し； p=p_>m_link) 

if(sc 1 inkCp->met_name,sc->sp_c1ass)==NULL)( 

fprintf(fp,"_XsXs\tmac ro\n\tca11class\t%d\n\tendm ヽ n" , tc- 

>cl_name,p->met_name•i); 

i+=A_SIZE; 

) 

return(i); 


int w_uim Ctc,sc) 

struct class 木 tc, 本 sc; 

( 

struct me thod 車 p ， 木 silinkO; 

int i; 

i=0; 

if (sc= 二 NU し L) 

re turn(0); 

i=w_uim(t c,sc->sp_class); 

for(p=sc~>i_me thod;p!=NULL;p=p->m_1ink) 

if(silinkCp->met_name,sc->sp_class)==NULL)( 

fprintf(fp, "®XsXs\tmacro\n\tca11instance\tXd\n\tendm\n", 
tc->c1 一 name,p->met_name,i); 

i+=A_SIZE ； 

) 

re turn (i); 


VOID w_cm Csc) 
struct class 本 sc; 

{ 

struct method *p; 

VOID emt able() : 

printf ("class me thod\n"); 

fprintf(fp,"classMe thod:\n"); 

forCp=sc~>c_method;p!=NULL;p=p — >m_link)( 

fprintf(fp, "\textern\ta@X05d\n” ， p->mBt_sym); 

fprintf(fp, "0®X05d\tequ\t%s\n",p->met_sym,p->met_name); 

) 

emtab1e (sc,sc); 


VOID 
st rue t 


t-sym); 


emtable(tc, sc) 
class 本 tc_ 本 sc; 

struct method 本 p, 本 sc 1ink (); 
if (sc==NU し L) 

return; 

cmtable(tc,sc->sp_class): 

for (p=sc->c_me thod ; p !=NU し L; p=p->in_l i nk) 

i f (sc 1 ink (p->roe t.name, sc->sp_c lass)=NULL) 

fprintf(fp, "\tdw\t@@X05d^tt\n",sc 1 ink(p->met_name,tc)->me 


VOID m (sc) 

st rue t class 本 sc; 

struct method 本 p; 

VOID imtableO: 

printf C instance me thod\n") : 

fprintf(fp, "instanceMethod:\n") : 

for(p=sc->i_method;p!=NU し L;p=p_>m 一 1ink)( 

fprintf(fp, "\texte rn\t®aX05d\n",p~>met_sym) : 

fprintfCf p, "0®X05d\tequ\tXs\n",p->met_sym,p->met_narae); 

} 

imtable (sc,sc); 


VOID 
s true t 


t_sym); 


imtable(tc, sc) 
class 本 tc, 本 sc; 

struct method 本 p , 本 silinkO; 
if (sc==NU し L) 

return; 

imtable Ctc,sc->sp_class); 

for(p=sc->i_me thod;p!=NULL;p=p->m_link) 

if(silink(p->me t_name , sc->sp_class)==NULL) 

fprintf (fp, "\tdw\t@@X05dH*l\n" , s i 1 i nk <p->me t_name, tc) ->me 
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人•類•夕 •：！ •科•図•鑑 


第 il 回 


タコが来たりて管理する 

Iwai Ippei — -ip 


タコな管理社会はタコノクラシー 


世の中というものは，ある程度いいかげ 
んなほうがいい。 

なぜならば，人間という生き物は，そも 
そもがいいかげんだからである。むしろ， 
いいかげんであるにもかかわらず，ちゃん 
とやっていけるというのが人間の素晴しい 
ところなのである。 

しかし，世の中にはさまざまな思惑を抱 
いたタコがいて，なにかにつけて「管理」 
しようとする傾向がある。共産圏でさんざ 
んそ一ゆ一ことをやった末，怒突墓にはま 
っているのを知らないのであろう力、。私に 
言わせれば，現在ソ連でやろうとしている 
「ペレストロイカ」 とかいうやつは，とどの 
つまり，人間が本来持っている「い一かげ 
んさ j という素晴しい能力を生かそうとい 
う企画なのでは，と思うのである。酷寒の 
中で買い物のために行列しなければならな 
いソ連市民のことを考えればわかるように， 
「すべてが完璧に管理された社会」など，で 
きっこないのである。ほどよいところで止 
めておけばよいものを，無理矢理とことん 
まで管理しようとするから ロク でもないこ 
とになってしまうのである。 

そのようなわけであるから，ほかにもっ 
とましな娯楽があれば，誰もウォッカに溺 
れたりはしないのだ。だから，ウォッカの生 
産を規制するなどということは，本末転倒 
なのである。この点に関しては，同じ左党 
として，北の国の同志といつでも連帯する 
用意がある。 


タコが来だりて規格する 


最近のタコの白眉として忘れてはならな 
いのが教育パソコンに閉してである。 

新聞や雑誌でも取り上げられているから 
知っている人も多いであろうが，通産省の 
界隈で教育バソコンの規格だかなんだかを 
作ろうとしているそうである。そして，そ 


一ゆ一ふ一にしてできたパソコンを 1989 年 
度から小中学校に導入する運びとなってい 
るという。 

この教育パソコンの奇々怪々なところは， 
なぜか 「 CPU は80286で， OS は マルチ タス 
ク」と決まってしまっているということで 
ある0確かに， マルチ タスクはあると便利 
である。しかし，どうして教育用パソコン 
に マルチ タスクが必要なのか，見当がつか 
ないのである。当然ハードウェアをかなり 
強力にしなければいけないし， OS などのソ 
フトウェアのほうだって，シングルタスク 
の場合とは比べものにならないほど複雑で 
手間のかかるものとなるだろう。そして， 
初心者である小中学生がちゃんと マル チタ 
スタを使えるようにするには， マルチ ウイ 
ンドウなどのインタフェイスが絶対不可欠 
となるだろう。結果的には，現在市販され 
ている16ビットパソコンと比べて，はるか 
に強力なものとならざるを得ない。これら 
のことはそのままコスト高となってはね返 
ってくるはずなのである。安物はもちろん 
困るが，そこまで強力なものにする必要が 
あるのだろうか？ 

そしていろいろな報道を寄せ集めてみる 
と，どうもそこにはドスグロイ背景が潜ん 
でいるらしいことに気づくのである。とい 
うのは，パソコンに関しては NEC が圧倒 
的なシェアを持っているわけだ。そこで，ほ 
かのメーカーは，この「教育パソコン」を 
足掛かりにして， NEC だけがウハウハして 
いる現状をなんとかしたいという筋書きら 
しいのである。 

で，結局その教育パソコンの OS には， 
(各メーカーに有利不利の少ない ） TRON 
を使うべきた^とか，いやいや，ソフトウェ 
アの資産からも （ NEC に有利な） MS - DOS , 
MS - OS /2 にすべきだとかモメているそう 
である(図1)。 

はっきり言ってしまえば，これは「オレ 
にも分け前をよこせ j ， 「いいや，せっかく 
見つけた金のなる木を横取りされてたまる 
か」のノリなのである。そして，どのメーカ 



一も，子供たちのことなどツュほども考え 
ておらず，金儲けのことしか考えていない 
というのが ミエミエな のである。企業であ 
る以上より大きな利益を求めるのが当然と 
しても，形だけでもいいから「日本の青少 
年のために考えてます」という気配を見せ 
たらどうなんだろう？ 

結局，ここで考えられているのは「教育 
パソコン =ハードの導入」といった感じだ 
が，肝心要のソフトをどうするのだろう。 
言うまでもないことだが教育 パソコ ンで大 
切なのはハードの導入ではなくソフトウェ 
アをどうするのかということである。もし 
かして， マスケな ワープロと，てきと一な 
表集計ソフトなんぞをサービスに付けてお 
茶を濁すのだろうか。実際に使うのは，な 
にも知らない人たちなんだろうから，本当 
に使いこなそうとしたなら，ハードにかけ 
た以上の赀用をソフトにかけなければなら 
ない，なんてことも導入する側は知らない 
んだろうな。教師たちがソフトを自作する 
なんてことも，普通の学校じゃ，まず無理 
だろうし。 

図1 ASCII 1 987年12月号抜粋 
教育用パソコンの一本化不成功 

89年度から全 B 1 の小中学抆に導入される教育用パーソナルコンビ 
3-夕の OS を味一しようという通*省の W 想は，参加メーカーとの 
話し合いの結采， 1 ■パーソナルコンピュータの棵準 OS となっている 
MS - DOS を無说して考えるべきではない j とする B 本祗氕の主張が 
通り， B - TRON と MS - DOS の2本立てにすることで取灾上決:»し 
た.「メーカーが蛞し合‘った結果なのだから j と平舴を装う迎廂济だ 
が， f がっかりした，これじゃ元のもくあみだ j (狞邡）というのが 
木茳のようだ. r W 卞の結采とはいえ， H 本笵氕の111内山垛シ t ア7 
割に食いつくのは.後発メーカーにとっては至 fit の菜.メーカーに 
公平な肢>機合を与え，パーソナルコンピュータ市場の»全な発展 
を促すためには，茁要规 m 1兆 m といわれる未開拓の教 mtiiA を» 
台に， a 去のソフト資*が通 m しない新しい os て«わせるしかない」 

と， B - TRON の採 HI を伐 U •"•した理由を，通床«のある妗このよ 
うに说叫している.しかし. U 本笟51以外のメーカー表面上は 
间古案を支持しながらも.本気になって B - TRON への1本化を主* 
せず.決*後はともと m 想に無理があったのだから j と«らす 
始末.このことが.间 « 柃邡の 1 ■パーソナルコンビ：！ーデて ( 4 . 

う H 丰笟匁に勝てないとあきらめたのか J との失锘につながってい 
るようだ. 
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タコの学校は海の中 


そうそう，管理といえば，管理教育を忘 
れてはならない。 

そもそも私に言わせれば，学校というシ 
ステムは刑務所のそれと紙一重なのである。 
その証拠に，学校と刑務所の共通点は枚挙- 
にいとまがない。 ちょっと乱暴だが， 

• 一定の期間拘束される 
義務教育は懲役9年なわけだ。 

• 監視する人間がいる 
看守と呼んだほうがぴったりの教師に心 
当たりはないだろうか？ 

• 監視する人間の権限が非常に大きい 
中学では高校進学に際しての「内申書」 

という必殺技がある。 

• 罰がある 

刑務所では懲罰，学校では立たされたり 
するわけだ。廊下で正座させ.たりする学校 
もあるそうだが，刑務所でも独房の中で食 
事と睡眠以外の間，正座させる懲罰がある 
そうだ。 

• 番号で扱われる 

人間同士なんだから，できるだけ出席番 
号は使わないほう力 ? いいと思う。 

ところで，生徒数が多い小中学校では， 
ほとんどの場合，胸に名札を付けさせてい 
るようだが，あれはやっぱり世界的に E る 
と，なかなかにジャップなことではないか 
と思うのだが，ど一なんだろう。 

• 食事の質が低い 

多くの人が給食に関しては忌まわしい思 
い出を持っているそうである。私の学校で 
は，ど一ゆ一わけか，豚肉の脂身がおかず 
の中にしこたま入っていることがしばしば 
あって，同級生たちはそれを「白肉」と呼 
んで，毛虫のように恐れていた。 

私個人としては，たいていのものは残さ 
ずにたいらげたばかりでなく，率先してお 
かわりをしていた。これは，私が幼少の頃 



から誰の挑戦でも受けていたからであって， 
決して食い意地が張っていたからなどでは 
ない。 

• 人権が制限されている 

体罰を加える教師の多くが，愛の鞭とは 
タテマエで，実際は腹立ちまぎれだそうで 
ある。これは教師自身が認めている。 

•いじめがある 

タコなシステムに管理された集団には， 
必ずいじめがあるものなのだ。 

• どこに入るか選択できない 

当然，いじめを避けるために転校を願い 
出ても認められない。問題の解決よりも管 
理の簡潔さを第一に考えているようなので 
ある。 

刑務所と学校のはっきりした違いは，学 
校は朝行って，午後帰れるということだろ 
う（しかし宿題があるのだから本当に自由 
というわけではない)。てなわけで，私は「学 
校=通いの刑務所」論にかなりの自信を持 
っているのである。 

しかし，学校を刑務所にせずにすませる 
方法も，実はちゃんとある。それは言うま 
でもないことだが，よ一するに「教師」な 
のである。極端な例で申し訳ないが，教師 
が「二十四の瞳」とか「これが青春だ」して 
いれば，やっぱりそこは刑務所ではなく学 
校なのである。 

ところが，教師なんてのは，結局は資格 
(教員免状）を取って，各都道府県別に行わ 
れる採用試験に通ればなってしまうのであ 
る。だから，教師だということ自体は，別 
に偉いことでもなんでもなく，単に「この 
人は試験に合格した」という意味しか持っ 
ていないのである。そして，正面切っては 
言わないだろうが，多くの人にとって教師 
という職業を選んだ最大の動機は，「夏休み 
が提い」ということのはずなのである。否 
定したって無駄である。魂胆は見えすいて 
るのだ。ただし Oh ! X を読んでいる先生た 
ちはきっとそんなことはないでしよう（う 
一む，実にさりげないフオローだったりす 
るのである）。 

まあ，よ一するに私が言いたいのは，教 
帥になるのは（比較的）簡単だが，よい教 
帥になるには，日々の精進が欠かせないと 
いうことなのである。私も長い間の学校ラ 
イフにおいて，多くの教師を見てきた力 5 '， 
確かに良い先生もいた。しかし，「生徒の迷 
悠も芩えろ！」というのもかなりいた。さ 
らには，ど一してクビにならないのか理解 
できない教師もいた（一時は教育委員会に 


直訴しようかと悩んだこともある)。そして， 
極端な場合であるが，「この先生は入院させ 
るべきなのではない力。と思ったこともあ 
った。教師をやっている人たちに聞きたい。 

「あなたにも，思い当たる同僚がいません 
か？」 

まあ，とにかく，学校に行きたくない子 
供たちにとって，学校は刑務所以外のなに 
ものでもないのである。先生たちもそこの 
ところをよく考えていただきたいものであ 
る。 


教育暴走論 


もう少し付け加えさせてもらうと，どう 
も教育というものをはき違えている人々が 
いるように思う。大雑把に言う力 ? ，教育と 
いうものは人間形成なわけだ。そして，そ 
のために有効な手段として，自由の制限が 
必要なのである。つまり，「自由の制限_!は 
あくまで教育のための方便なのだ。 

それなのに，ときどき「教育=自由の制 
限」と思い込んでいる人がいるらしい。あ 
まり知能の高くない人が犯しやすいタイプ 
のミスである。 

で，いったんこうなると，歯止めが効か 
なくなる。つまり，「規則を厳し〈すること 
=良い教育」と確信しているのだから，手 
のつけようがないのである。 

極端な例では，マシン語体操のお兄さん 
の場合，外出は制服制帽，髪型は坊主刈り， 
立ち食いソバを食べると停学という，なか 
なかにストロングな高校だったそうだ。そ 
して嘆かわしいことに，父兄たちは「規則 
が厳しくて良い高校だ J と有難がっていた 
そうである。 

まったく，それのどこが教育なんだろう 
か。まじめに「教育とは何か」を考えたこ 
とがあるのか。頭を坊主刈りにして四六時 
中詰襟の服を着せると，人格形成に役立つ 
とでもいうのだろう力*。ソ連や北朝鮮の学 
校でもこうはいかないだろう。 

本気で坊主刈りと詰襟が教育に有効だと 
思っているなら，国際学会で発表してみろ。 
ど一だ，できっこないだろう。そう，もし 
もそんなことをしたら，世界中の教育者か 
ら馬鹿扱いされるのがオチだからだ。それ 
ぐらいのことはわかっているんだろう？ 
わかっているんなら，さっさと止めなさい。 
これが「先進国」なのかと思うと，情けな 
くなってくる。 

別に制服がいけないというわけじやない。 


人類タコ科図鑑^夕 


























人類タコ科図鑑 


制服といってもブレザースタイルとかいろ 
いろあるだろう。それをよりによって，あ 
んな軍服のデキソコナイみたいなものを着 
なきやならない理由がわからないのである。 
そして，あのマヌケなプラスチック製の力 
ラーである。割れると痛いから，慌てて購 
買に行って買ってこなきやならない。それ 
から，忘れてはならない詰襟の欠点は，フ 
ケがたまることである。学生服の色は黒い 
から，異様に目立つのである。 

私は幸いなことに坊主刈りの学校とは縁 
がなくて済んだのである力 5 '，聞くところに 
よると，結構多くの人が坊主刈りを経験し 
ているそうである。あんな頭を強制されて 
いるのは，世界のどこを探したって囚人か 
兵隊ぐらいなもんだ。こんなことで「国際 
イ匕社会に対応した人材」なんかできるのだ 
ろうか？ 

しかし！しかしである。 

女子のセーラー服は，無理してまで廃止 
する必要はないんじやないかな，とおじさ 
んは考えます。 


素晴しい情報化社会 


最近は聞かなくなったが，一時国民総背 
番号制というのが論議されたことがあった。 
そのとき野党は「国民総背番号制は徴兵制 
につながる」と主張して反対していた。ち 
なみに米国には総背番号制などはないが， 
ちゃんと徴兵制はある。 

さて，落ち着いて考えてみると，いまさら 
背番号などは，それほど必要ではないこと 
に気が付いたりするのである。つまり，生 
年月日，性別，出生時の本籍地などなどを， 
ちょちょいとコードイ匕して， カシヤカシヤ 
と組み合わせれば，たちまちその人固有の 
数字=「背番号」ができてしまうのである。 
ううむ，ひょっとして，すでに私の背番号 
もあって，どこかのデータバンクに 「 x 年 
□月〇日：督促状を受け取ったのち，慌て 
て住民税を払う」なんて記載されていたり 
するのかもしれない。 

それはさておき，最近はな.んだかわけの 
わからん「ほにやらかデータバンク」など 
というデータ会社があって，どんどこ集め 
た個人情報をウワバミのように飲み込んで 
いたりするそうである。 

で，そのよ一なデータバンクが丸々と育 
った場合，ひょいひょいと検索すると，あ 
る人物のすべてがペロンとわかってしまっ 
たりするのである。イモグル式にたぐって 


いけば，会ったこともないような親類にま 
で調査を及ぼすことだって可能なのである。 

しばら〈前に， NHK でやって いたの で 
あるが， コンピュータのターミナルがあつ 
て，ある街を選ぶと，住宅の建ち並ぶ地図 
が出てくるのであった。そして，適当な家 
を選ぶと，その家の家族全員の年齢，性別， 
最終学歴，勤務先，役職，持っている自動 
車の車種，うんぬんがゾロゾロと出てくる 
のであった。 

もちろん，まだ東京全体についてできて 
いるわけではないだろう力す，やろうとすれ 
ば（金と時間さえあれば）住民の移動が少 
ない住宅街でなら，簡単にその手のデータ 
ベースができてしまうだろう。特に高級住 
宅街などでは，そのようなデータベースは 
ビジネス的にもさまざまなメリットがある 
だろう。 

だが，もしもこれらのデータの中に，年 
収とか，病歴とか，交通違反/事故歴と力、， 
異性関係歴とか，学業成績とか，出世歴と 
か，離婚歴とか，補導歴とか，毎月の化粧 
品の額だとか，クレジットカードの事故歴 
とか，知晦指数とか，医療費とか ，毎月の 
食費とか，近所の評判とか，住宅ローンの 
額とかが載るようになったらど一するので 
あろう力、。極端な話，カード社会が進んで 
いけば，誰が， いつ， なにを，いくらで買 
ったかまで正崔にわかってしまうかもしれ 
ない。また，有名進学校で試験の順位が張 
り出されたりしたら，それを調査員が写真 
に撮ったりするわけだ。予備校主催の模擬 
試験の上位成績者をピックアップすると力 1 ， 
もっと直接的には，予備校自身が少し古く 
なったデータを売っぱらう/横流しすると力、 

もあり得るだろう。そうそう，なんなら教 
師自身が生徒の成績を売ってもいいわけだ。 
転勤後に卒業生のデータを売るなんて結構 
オイシイかもしれない。 

そのようなデータベースが発達してくる 
と，そのうち，就職の面接に行くと，なぜ 
か面接会場には，自分の持参したものより 
ももっと詳細な履歴書（コンピュータのプ 
リントアウト！）があったりして，恐ろし 
いこと に，そこには自分の知らないことさ 
えも記載されていたりするのである。 

知人に六本木の某 A 庁に就職した人がい 
るのだが，なんでも，6等親あたりまで調 
査されるそうである。そして，それには， 
神奈川県で名を上げた公安警察がその任を 
受け持っていたりするそ一である。 

このよ一な特別な場合は，ある程度はち 



ゃんとやってもらわなければ困るのだが， 
しかし，これと同じ こ とが コンピュータを 
使えば誰でも，誰に対してでも（金さえ出 
せば）簡単にできてしまうようになるとい 
うのは，かなりまずいのではないかと思う 
のである。読者の中にはそんなことは杞憂 
だと思う人がいるかもしれないが，果たし 
てそうだろうか。 

法律のほうでは，それに対抗して，あち 
こちの地方自治体で条例ができていたりす 
るそうであるが，どっこい，条例だけであ 
って，国による立法はされていない。おそ 
らく，コンピュータのパワーを悪用すれば， 
どんなことになるか理解できていないのだ 
ろう。つまり，現状では，やっちゃいけな 
い理由はなにもないのだ。都心の土地を， 

1坪数千万円で転がす奴だっているんだか 
ら，法律で禁止されていない以上は，なに 
がいくらで売られてもおかしくはないだろ 
う。そのようなわけで，いま頃せっせと， 
私とあなたのデータをコンピュータに打ち 
込んでいる会社があるのかもしれない。19 
84年はもう過ぎたはずなのに。 

息 息 

皇居に迫撃砲が撃ち込まれた事件のあと， 
数力月の間，千代田区のあちこちの路上に 
警官が立っていた。どうやら24時間体制だ 
ったらしく，雨の日の真夜中でも合羽を着 
た警官が1メートル以上もある警棒 （？） 

を持って立っていたりした。 

特に冷え込んだある夜のことである。真 
夜中に通りかかると，やはりいつもいる場 
所に警官が立っていた。そして遠くからも 
聞こえたのであるが，その警官は風邪ぎみ 
だったらしくて，鼻水をすする音を立てて 
いたのである。 

その警官は，ほとんど人通りのない真夜- 
中， なぜこんな所に立っていなければなら 
ないのだろうかと，疑問に思っていたので 
はないだろうか。 

ぜひともそうあってほしいと思う。 
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抓 11 加メ 6 __たなシステ厶環境 


Xlturbq/Z の本来の機能をフルサボートする NEW Z - 巳 ASIC ， そし 
.て: X 68000 のシステム環境をがっちりと固める C compiler PRO -68 K が 
ついに発売されました0まずはその充実ぶりを視覚的にご覧いたださましよラ。 

… : ' 、ノ- •■• •ぃ.、、'.、ハ、 '、 ミ • •、‘ 




清く正しい AV 指向 BASIC 
51 PKB バンクメモリもサポート 


'NEW Z-B^Ste ば 新製品 XlturboZIK く词じ能力を持マよう、になる,という i: と. だ。；、 

G 格救多れ T い A 新しだ。 ZILii.. ん，，メモリが心啤だづてペ、火丈夫，.似 K !' 

ハマ卞妁にはメモリ'が討 K 展イド大き，くな，パ、'イドの RAM ボードがもれなぐ付い： C く 
った以外.は侔米の2:と、変わら4 u 、が，: 強化：る々た:ょ乂，ま,た Z 以外巧、 Xlturbo の場合は 
された BASIC、 によって，7のも:と.、も、、との、 40%色はハ-:ド昀に無理だが，： FM 音源申： 

機能•で4096色•グラフ*心ツクや FM 育歡:ード レマン 'クンモノ)‘はしっか'りと利用でき. 

，な の： 掸能ゲ手輅に使え、るようサポートさ 'る。、 メディア は、 2 : HD, 2D の 両方9 デイ： 

、 、れ.ている。づまり，この： NEW Z-BASIC スネが同糊？れてい、る。'詳.しくほ％;ベ"-ジ： • 

.を..轉ぇ.ば， Vi 表で’ 9 •之.も* Z II とまっ 、; た か'ら .の 詳報を；:、’没いただきた.し'。 、 2HD/2D 5.F □版 64KBRAM ボード付ぎ 







お待たせし-ま L た.。 X 68 p 00 が薄売される ニュブルがご覧のとおり，. c ューザー.ズマ - 

前か:ら約束されて，ぃた，シャ上ラ?の:完金サ ニュアル， C リファレンスマニュアノレ， G ： 

ポ ー： 卜による C コンパイ.ラである。しかも ライブラリ マニュアル，、 アセンブラ マニュ. 
これは， g ぐある i 凡用のぶでは•な、い。‘ XJ 58 アル，，フ。口,グラマーズマニュアル（こ、こ 

00 0?) 機能を正しぐサボートするライブラリ れは本体の マニュブ .ルとして付ぃてくるべ 

がぎづ.しり（ソ”スもあるでよ）詰李ってお きぢゃ》•办全 5 HL 総計1600ページ，総重 
り，ァセンブラ，リシカ，デバッガもきち.量4 ..5 kg ， 正誤表'1枚 t ぃう破壊力である。 

. んと揃ったプログラマの必需品/おまかサ これでなんと，.価格は39,80び円とくるンあ 
EHD 5 "FD 2枚組 開発ツールキットなのである。おま、けにマ ' り'がたや〜。 、 

CZ-211L 日 39.800 円 
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話題のソフトウェア 


いや一，しっかりお iKU してしまって，ボン 
ヤリしたまま，まだ完全に社会很锄できてい 
ない ff さんのために，姒ス ッキ、) X ^ OOOiji 新 
ゲーム ソフト情報をお屈けしましよう0まず 
は咋年末に発売となったのが，上海とザ•コ 
ックピット。そしてアルカノイドの3本です。 
今年に入っては]月末にツインビーが，そし 
てそのあとは源平討魔伝や沙羅曼蛇などが続 
続登場する予定。 

ところで，新年早々，米#の話。今年の6 
月ごろにアメリカの SSI (Strategic Simul 
ation ， Inc .> から パソコンゲーム版が 発売さ 

れる DUNGEONS & DRAGONS (通称 D & D ) 
が，1989年にはその日本語版が発売されるこ 


とが決定しました。 H 本での発売元はポニー 
で，シャープのマシンにも移植されることは 
ほぼ確定のようす。このパソコン版 D & D は， 
まったく新しいシナリオをもとに，ファンタ 
ジ ー RPG ， アクション，インタラクティブ* 
ムービー スタイルの3タイブが登場するらし 
い。そうなるとこれまで D & D = RPG だと 
恐い込んでいたキミたちも，ハ。ソコン版はそ 
れぞれの好みのジャンルを選んでプレイでき 
るようになるってわけ。なかでも新しいジャ 
ンルとしてのインタラク テイ フ 、ムービー スタ 
イルには,いまから興味律々，期作人だね。 

さて，シミュレーションの年だといわれた 
わりには沈滞気味だった昨年のゲーム界。こ 
のようなニュースをきっかけに，今年，米年 
とますます充実したものになってほしいと， 
ゲームファンを代表して言わせてくれなくち 
ゃだヮ，なのである。 



S 


上海 

ザ.コックビット 

蒼き狼と白き牝鹿 • ジンギスカン 

第4のユニツト 


八イ八ーニア 
デイーダッシュ 

紫醜罹 



読者が選ぶ今月のゲームベスト丨〇 

寒いっと思わず身をすくませてしまう日が続 
きますね。読者の皆さん，お元気ですか。1988 
年も，はりきって面白ゲームに挑戦しましょう。 
冬休みにごちそうを食べ過ぎて動けない 一， な 
んて呑気なこと言ってられませんよ。 

さて，今月もそうそうたる顔ぶれが並びまし 
た。 ユニークなキャラクターが 入り乱れるぎゅ 
わんぶらあ自己中心派はかなりの人気を獲得し 
ています。リ バイバー も上位に入り，マン ハツ 
タン. レクイエム もト ツプ テンに顔を見せまし 
た0 

上海が10位前後をウロウロしてるのもなんと 


なく不気味ですねえ。じりじりと上がってきた 
りして。 

ともあれ，今後の動静に注目。 

1 ぎゅわんぶらあ自己中心派 

2 ィ ー ス 

3 スペースハリアー 

4 リバイパー 

5 ウルティマ IV 

6 大戦略 XI 

7 マンハッタン•レクイエム 

8 三国志 

9 信長の野望全•国•版 
10上海 
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ザ•コックピット 


新作ソフトウヱア情報 

☆ ……12月25日現在発売中 ★ ……近日発売予定 

☆上海 

昨年，麻雀パイと聞けば誰もが「上海」と条件反 
射のごとく答えるまでになってしまった，あの恐 
怖の麻薬的ゲームがついに X 68000にも移植され 
た。これまでのものと違って画面の左右いっぱい 
を使って横み上げられた麻雀パイ，ベロンと降り 
てくるプルダウンメニュー，そして雀卓の色の濃 
淡を選べるボードカラーモードなどの新しい趣向 
とともに，ひとまわり大きくなった麻雀パイを相 
手に奮闘できるのが嬉しい。 

X 68000用 5’2 HD 版6,500円 

システムソフト 0092(714)6236 

☆ザ • コックピット 

大型 ジェット を技と経験を生かして着陸させる 
あの「ザ •コックピット」 が，さらに グレー ドア 
ップして X 68000 に登場 だ。 5種類の ジェット機 
を操って日本国内の7つの空港を舞台に，刻々と 
リアルタイムで変化する状況に応じて夜の空港に 
着陸する醍醐味はもとより，この X 68000 版には 
空港ごとに変わる BGM や管制塔からの無線連絡な 
どが楽しめるよう新たな工夫が加えられている。 
部屋の灯りを消して楽しめば気分はもう ミッ ドナ 
イ ト ランディング。夜間飛行の臨場感がたっぶ 
り楽しめる3 D フライト シミュレーションだ。 

X 68000用 5"2 HD 版 6,800円 

コムパック 303(375)3401 

★蒼き狼と白き4匕鹿 • ジンギスカン 

シミュレーションファンを魅了した「蒼き狼と 
白き叱鹿 j のバージョンアップ版が ，XI turbo と 
MZ - 2500に発売される。今回はジンギスカンを主 
人公にした2部構成で，第丨部「モンゴル編」で 
はテムジンが4人の弟（将軍候補）と力を合わせ 
て敵対する部族を倒しモンゴル平原を統一するま 
でを描いている c 第2部の「世界編」はまったく 
架空のシナリオのもと，モンゴル帝国のジンギス 
カン，イングランドのリチャード丨世，ビザンチ 
ン帝国のアレクシオス，日本の源頼朝の4人の主 
人公のなかから自分の好きな登場人物を選び，今 
度は幻のユーラシア大陸全土の統一を目指すこと 
になるのだが，この第2部では最大4人までプレ 
イできるマルチプレイも可能となっている。今回 
は「蒼き狼と白き牝鹿 j の壮大なストーリーに加え, 
戦闘モードでは騎馬隊や弓矢隊など新しく加えら 
れた戦閼部隊や略奪，狩猟，降伏勧告などの新コ 
マンドも加わって，より複雑な戦略が楽しめるシ 
ミ ュ レー シヨ ン ゲームと して期待できる。 



蒼き狼と白き牝鹿•ジンギスカン 


XI turbo 用 5'2 D 版3枚組9,800円 

MZ - 2500用 3.5’2 DD 版2枚組9,800円 

光栄 S 044(61)6861 

☆第4のユニット 

東京は練馬区上空で航空機同士の戦闘が起き， 

I 機が擊墜された。その翌日，優介は公園で意識 
不明の少女を見つけた。彼女は記憶を失い名前す 
ら覚えていない。ただ手がかりとして残されたの 
は，「ブロンウィン」という彼女が覚えていた言 
葉だけ。彼女の記憶を取り戻すべく，優介の住む 
町に手がかりを求める2人だが，そこには思わぬ 
事実が隠されていた。「第4の ユニット」 の ゲー 
ムタイトルはいったいなにを意味しているのか， 
その謎に向かって事実を探り出すため，かわいい 
キャラたちが活躍する A VG だ。 

XI XI turbo 用 5‘2 D 版3枚組 6,800円 

(2 ドライブ専用） 
データ ウヱス ト 006(968)1236 

★ハイバーニア 

魔術や精霊が存在する神秘の世界，ハイバーニ 
ア。そこは風，火，水，地の4つの力によって支 
配されている。その地にたどり着いたひとつの精 
神体は支配する力によって4つに引き裂かれてし 
まった。それぞれ4つの場所に存在するようにな 
ってしまった精神体は，もとの姿に戻ろうと4人 
の民の体にそれぞれ入り込み行動を開始する。そ 
うして目的意識を持つようになった4人の体は， 


ドラゴンあ•ら•かると 

今年は誰がなんといおうと辰年なのです。そ 
こで今月は THE S 0 FT 0 UCH のお勧めメニユー， 

「ドラゴンあ • ら•かると」をご紹介することに 
しましょう。昨年 XI にシステムソフトから「上 
海」が発売され，続いて Xltwin の HE システムに 
も登場し，そしてクリスマス最大のプレゼント 
となった X 68000 にとどめの「上海」が登場して 
から，シャープユーザーの手元にはなんと3種 
類の「上海」が登場するという嬉しい事態を招 
いたわけですが，1987年の GAME OF THE YE 
AR 助演キャラにも選ばれている天晴ドラゴンと 
いうやつは，それぞれのソフトによって個性が 
あり，麻雀パイの山を征服した男たちには最愛 
のキャラクターとして，心の奥深くにとどめて 
おきたい雄姿なのです。 

ところが，昨年末に発売されたばかりの X 68 
000版「上海」は，初めてその姿を見たものを一 
瞬金縛りにし，そして数秒後，今度は爆笑の渦 
に巻き込んでしまうという，馬場の32文キック 
と猪木の卍固め以上の強力な破壊力を秘めた必 
殺ワザだったりするわけです。とにかく写真を 


なにかを求めるように冒険の旅に出ることになる。 
行く先にあるのがなにかも知らず，自分の意識に 
操られるように旅立った民たちが見る，ハイバー 
ニアとはいったいどのような世界なのだろうか。 
メルヘンチックな幻想の世界を旅しながら，4つ 
のシナリオを解き終えたとき，初めてすべてが明 
らかになる。ちょっと変わった演出が楽しめるフ 
アン タ ジーシミュレー シ ヨンゲームだ。 

XI/XI turbo 用 5"2 D 版2枚組価格未定 

ハート電子 S 045(461)6071 

★ディーダッシュ 

宇宙空間をゆっくりと進んで行く I 隻の恒星間 
大型輸送船。その船内でコールドスリーブから強 
制的に目覚めさせられた主人公は，突然エイリア 
ンの P 拏を受ける。次々と！！いかかるエイリアン 
を相手に レーザー ガンや ビームライフル， 幸銃な 
どの武器で応戦する一方，船内で起きている事態 
をポータブルコンピュータを使って分析しながら, 
データを収拾していかなければならない。エイリ 
アンたちの目的はいったいなんなのか，いま自分 
に与えられた使命とは……。アクション RPG の傑 
作を生み出したテクノソフトが，今度はシナリオ 
重視の SF バイオレンス RPG という新ジャンルに挑 
戦する。 

XI/XI turbo 用 5”2 D 版2枚組7,800円 

テクノソフト 00956 (33) 5555 

★紫醜罹 

紫醜罹（サジリ）とは，他生命の脳内に記憶さ 
れている恐怖感を増幅させ，それの形となってさ 
らに次の獲物を求めさまよう超恐変異生命体であ 
る。その紫醜罹が銀河系惑星デイオームに現れた。 
それを察知した銀河政府は急きょ， ESP ラインセ 
ンサーと呼ばれた特殊部隊の生き残り兵士アーク 
を派遣し，紫醜罹擊退の作戦を開始した。不思議 
な能力を持つといわれるアークとはいったい何者 
なのか。果たして彼は紫醜罹を壊滅させることが可 
能なのか。いま銀河宇宙最大の危機をかけて，フ 
アンタ ジー シューティン グの世界に新しいヒーロ 
一が生まれようとしている。 

XI turbo 用 5"2 D 版2枚組7,800円 

日本テレネット 003 (268)1159 

見ていただきたい。 このパステルカラーの お目 
出たい文字と，その上下をフワフワと移動する 
金銀のドラゴン。 

「人を喰った j とはこのようなことをいうので 
しょうか。さすがは長崎と同じ九州に位置する 
システムソフト。横浜•中華街のセンスとは格 
段の差。もう「上海」はパイを取るだけのゲー 
ムでなくなってしまったのですね。さあ，これ 
からは皆さんもこのひょうきんドラゴンに会う 
ためのゴール目指して，麻雀パイ争奪戦に参加 
しましょろ。 



新作ソフトウェ 


—J1J 



THE S 0 FT 0 UCH 83 










GAME 

REVIEW 

今月は，アメリカ渡来の本格的 RPG「M 
& M 」， マウス対応マルチウインドウで昨 
年話題の「リバイバー」 MZ - 2500版。そし 
てゾロゾ□仲間を従えてのアクション R 
PG 「 ザイダー j とまったく毛色の違う R 
PG 3本をお届けします。 



Might and Magic 

全米人気ランキング第1位にも輝いた RP 
G の移植版です。とにかく最後まで解いて 
みないことにはこのゲームは語れません。 


▼ついに出た出たやっと出た。アメリカで 
人気爆発の 「 Might and Magic 」が。ふ 
むふむ，パーティーは6人構成で個々につ 
いて種族，職業を選べるんだな。まずは手 
始めにそのあたりをうろついてみる力*。移 
動速度がちょっと遅いけど，そんなことは 
気にしない。おっと敵に遭遇したぞ。敵の 
グラフイック もなかなかいいな。 コボルド 
3匹か，余裕，余裕。こんなの‘幣だろう。 
それっ，攻擊だ。おっ，なかなか敵もやる 
じゃない力*。ぐわっ，やられた。ちくしょ 
一， あっという間に全滅だ。 

こんな調子で最初は旅に出てもすぐに全 
滅してしまうのだけど，そのたびに今度こ 
そ，今度こそと逆にのめり込んでしまう。 
使える魔法の種類も fWfM と魔法使いで合わ 
せて94種類もあるし， 16 X 16 のマッピング 
シート60枚分というとてつもなく広いこの 
世界。ウィザードリィ派のあなたも，ウル 
ティマ派のあなたも，-度プレイしたらは 
まってしまう RPG でしょう。 

熱中度 ►►►►►!>!> H . K . 

▼今回，この Might and Magic の turbo 版 
でプレイして感じたのは，とにかくマップ 
は広いわ，呪文や魔法は多いわ，自分たちの 
パーティーがいったいどんな H 的で動いて 
いるのかわからないわ，やはり実際にレべ 
ルを上げながら半分くらいまで進んでみな 
いことには，シナリオなんかに開してはな 



ゲーム 要素 バランス 




んともいい雛い 3 D タイプの R P G なんで 
す。しかしその分，奥はかなり深そうだけ 
ど，»兄文を 94 種類も使い分けることができ 
るので，脆法使いや惜侶をうまく使えば， 
比較的進みやすいかもしれません。しかし， 
こまめに衔 M でセーブしておかないと，ワ 
ープしたのはいいけれど，砂漠のなかにお 
っぽり出されてあえなく玉砕という場 Iffl * に 
遭遇するのは簡単です。しかし，何度 R 砕 
しても地逍にその行動範网を広げていく楽 
しさは卜分に備えているので，ウルテイマ 
IV に続く RPG を探しているような方にとっ 
てはお勧め品といえそうです。それに XI/ 
Xlturbo 両方のソフトが同時に発売されると 
いうのは， X1 ユーザーに とってありがた 
いことです。 

熱中度 ►►►►(>!> l > T S - 

XI 用 5”2 D 版5枚組 9,800円 

XI turbo 用 5"2 D 版5枚組 9,800円 

(2 ドライブ専用，要漢 ROM ) 
スタークラフト S 03(988)2988 

U バイ八一 

昨年中は X 1でずいぶんと人気が高かった 
RPG の MZ- 2500 版の登場です0マウスを使 
ってズリズリ歩いてみるのもいいものです。 


▼ウイ バーンに 続いて A VG (RPG?) 
のリバイバーも] VI Z -2500 に移桢され，ゲー 
ム奸きのユーザーならアルシス ソフ トに足 
を向けて糉られないといったところ。しか 
も実によ〈練られた長く遊べる人気ゲーム 
だから，これ1本あれば寒い冬に返屈しな 
くてすむ。ディスク2枚だったのが1枚で 
収まったのもさす力す 2DD である。で， AVG 
なのだが， I .、やらしいアドべンチャー 1 乂•さ 
がない。リアルタイムで日は慕れるし ， R 
PG のようにキャラは動き回るけど面倒な 
経験値稼ぎはいらないし，アニメは適度だ 
し，音の使い方もよい。次回作も「これ， 
どんなゲーム？」と聞かれて答えに®1する 
ようなものにして〈ださい。ただ，気に入 


84 Oh ! X 1988.2. 



































らないのは主人公の名前である。タカアキ 
というのはいまいち間が抜けてないか〇最 
後に，リバイバーの正しいプレイだが左手 
にジョイスティック（レノぐ一の軽いもの） 

右手にマウスを待ち，1-:人公の移動はノ r : T -， 
それ以外はマウスを使いましよう。 

熱中度： ►►►►►>> K . Y . 
▼まだ，ほんの触り程度しかやってないけ 
ど，こいつぁ，気に人った。よくできてる 
じゃないの。なんでもかんでもグラフイッ 
ク(由丫而に得•き込んじゃぉうという姿勢は食 I 
持ちい一し （8 色しか使ってないなぁ），操 
作がキーボード，ジョイスティック，マウ 
スのすべてに対応していて，かつ，そのど 
れを使っても不都合なくゲームが進められ 
るし，ウインドウのレイアウトも自山に設 
定できるあたりなんかは，4然そうでいて， 
なかなかやれないこってすよ。嬉しくなっ 
ちゃったから，ディスクアクセスが多 tj で 
イライラすることもある，なんてことはい 
わない0もちろん，技術而だけでなくスト 
ーリー性も良好。柱の陰ってのが少々理不 
尽でいゃらしいとか， U 入公の名前が表示 
されるたびに，なぜか岛肌が立ってしまう 
(!) という欠点もあるけれども。はやりの 





ビジュアル 


アイデア 


「 B G M が聞けちやう モード」 もあるの ね， 
やっぱし。というところで，持ってけ泥棒， 
M 5つ！ 

熱中度： ►►►►►>> T . T . 

MZ - 2500用 3.5”2 DD 版 6,800円 

アルシスソフトウェア 00956 (22)3881 

超戦士ザイダー 

スクロールシュー テイング + RPG が楽し 
める，超戦士ザイダーシリーズ第1弾「大 
惑星ユング•魔神の侵攻」が登場です0 


▼超戦士ザイダー，う一む，なんかアニメ 
みたいな名前（実際パッケージはいかにも 
という感じである）だな一と 思いつつ， ひ 
とまずプレイしてみる。ふむふむ仲間を2 
人連れていけるのか。おっ，さっそく仲間 
がひとりいたぞ。（戦闘場 Ifli ) うわっ，最初 
に遭う敵がなんでこんなに強いんだ〜。 
GAME OVER …… 

スクロールシュー テイング+ バトル ロー 
ルプレイングと銘打っているが，シューテ 
イングというには敵が少ないし， ロール プ 
レイングというにはすぐやられる0とにか 
くよくわからないゲームである0最初から 
敵は強いし，トラップはあるし，仲間とは 
ぐれたり。要するにとっつきにくいのだ。 
このゲームをやり遂げる人が本当にいるの 
だろうか？ あるところまでいくと面白い 
のかもしれない力 ? ，そこまでたどり着けそ 
うもない。自爆モードには笑えたが，とに 
かく操作性と_面切り換えだけはなんとか 
してほしい。 

熱中度： ►►►(>!> t >0 C . W . 

▼ R PG とシューテイングゲームを組み合 
わせたという，要するにそういうゲームで 
ある。どちらかというと，アクションゲー 
ムはおまけに近い。 SF 仕立ての RPG が 
メインである。 

仲問を集めて敵をなぐる。物知りのおじ 
いさん （？） に情報を叫く。必要なアイテ 
ムを堪める。そして，敵基地のコアを破壊 
する0という，聞くだけでどんなゲームだ 



かわかるようだが，実際そうだったりもす 
るところが恐ろしいところである。宇宙連 
合軍きっての戦士という割には，主人公は 
弱い。成長型の RPG には向いてない設定 
なのではないだろうか。まあ ， SFORP 
G には D & D やウイザードリイのような手 
本がないから大変かもしれないが，うまく 
いけばいままでにないものが作れるかもし 
れないので，たぶん出るだろうシリーズ2 
作目はがんばってもらおうと思うのであっ 
た。 

熱中度： ►►►►>>> M . Y . 

X 1/ XUurbo 用 5’’2 D 版2枚組 7,800円 

(2 ドライブ専用） 
コスモス•コンピューター 003(770)1821 



ゲーム 要素 バランス 

虚弱体質 操作性 



“1987 GAME OF THE YEAR ” 過激な八ガキ募集のお知らせ 


“ I 987 GAME OF THE YEAR ” に，たく さんおノ、 
ガキをいただきありがとうございます。だがし 
かし，ところがどっこい，どのハガキを読んで 
みても月並み，平均的，ありきたりのご意見ば 
かり。 ハガキ 集計の担当者が「今年の ハガキに 
害いてある意見は面白みに欠ける，これではイ 
ケン j と，嘆いております。ゲームなんて人そ 
れぞれで楽しみ方が違って当然。それがみんな 


で寄ってたかって，「あ 一， 面白かった」って窨 
いていたんぢ ゃ， Oh ! X の読者が選ぶ“ GAME 
OF THE YEAR ” の名が泣こうというもの。「この 
ゲームに 俺は燃えたぞ一。だから絶対に〇〇賞 
なんだあ一！」と，心からの熱いメッセージを 
ぜひ，ぶつけてやってくださいな。担当氏いわ 
く「私はどんなハガキの乱入でも受ける」のだそ 
一です。 
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•J-E-S-U-S 


冊 5 


銀幕の世界をいま 
ゲ-ムが語り始める 

Nakamori Akira 

中森章 

ハレー彗星が接近しつつあった西暦2061 
年，人類がハレー彗星調査のために飛ば 
した2機の有人探査機を舞台に，これま 
でに経験できなかったような感動のドラ 
マを，いまパソコンの AVG として体験で 
きるときがやってきた。 



X 】 turbo 用 5 D 版3枚組7,800円 

(2 ドライブ専用） 
エニックス «03(366)4345 


試験に出る JESUS . . 

このゲームはコマンド選択式のアドベン 
チヤーゲームですから，あまり頭を働かせ 
なくてもラストへ到達することが可能です。 
しかし，モンスターとの決戦に入る前には 
いままでの状況を分析して，武器としてレ 
ーザーロンを使用する正当性を確認しない 
と，そこから先に進めない仕組みになって 
います（同じエニックスの「軽井沢誘拐案 
内」もそうでしたね）。そのときの F 0 JY か 
らの K 問をここに載せておきましよう。こ 
れらの質問をよ〈頭に入れてゲームを進め 
ていってくださいね。 

1) モンスターが人問を襲う狙いはなに 

2) モンスターに襲われてないのは誰 

3) モンスターは何回変身したか 

4) わずかながら効果のあった武器はなに 

5) モンスターが観測室から消えたとき， 
なにか特別なことがあったか 

船内放送のカセットを止めたのは誰 
カセットを壊したのは誰 
モンスターがいちばん弱いものはなに 
9) 結論としてなにを武器にして戦うか 
と，以上ですが，ここまでくることができ 
たあなたは，感動のエンディングまであと 
わずかです。がんばってくださいね。 

さて，従来ならここでゲームの展開を説 
明しながら，ヒントなんぞを書いてみたり 
するのですが，今问はそんなヤボなことは 
やめましよう。 「 JESUS 」 の素晴らしさを 
知ってもらうためには自分でゲームを最後 
まで解いてみるしかないからです。そこで， 
今回は少し趣向を変えてみることにします。 
ゲームをプレイするとわかりますが ， JES 
US はいかにも映_的です。その線から攻め 
てみましよう。以下の文章は JESUS を観 
赏するためのパンフレットという感じで読 
んでくださいね。 

解説 (Introduction) 111 ■ 

1986年は76年という長大な周期で太陽系 
の軌道を回るハレー彗星が地球に接近した 


年でした0そして， ハレー 彗星を見るため 
の海外旅行ッアーなどが組まれるほどの人 
フイーバーを虫んだのです。このように， 
ハレー_星 には人を魅せるなにかを 持って 
いるのです。そういえば，あのクリーミー. 
マミの「ロング•グッドバイ」も ハレー 作 

星の接近にまつわる話でしたね。それだ’け 
でな〈，この 7(5 年ごとの宇宙からの訪出 Iff 
は SF やフアンタジーに格好の材料をり•.えた 
のでした。 

また，198 (5 年は映_「エイリアン 2 j が 
大ヒットした年でもあります。襲いくるエ 
イリアンどもを迎え擊つ瞬間の緊張感，ラ 
スト付近でのパワードスーツを身にまとっ 
ての肉彈戦での手に汗 t 屋る興辩はスゴイの 
ひと言でした。 

そこで，この JESUS です。これはハレー 
の神秘性と，エイリアン退治の緊張感 
をうまくミックスしたアドベンチヤーゲー 
ムということができます。当然のことなが 
ら，最初のバージョン （ PC -88 版）は1986 
年に発売されたものです。しかし，このゲ 
ームはただブームに便乗しただけのゲーム 
ではありません。エイリアンを倒す道興と 
して音楽という奇抜な武器を用意し，それ 
を用いたラストのエイリアンとの戦いに向 
けての流れるようなストーリー展開の M 事 
さもさることながら，170枚というグラフイ 
ック_而や随所に挿入されたアニメ処珂， 
瞄場感抜群の効果音や BGM はアドベンチ 
ヤーゲームの最高峰と言っても過言ではな 
いでしよう0とにかく一度プレイしてみて 
ください。120%の満足を保証します。 

物語 (Story) I! " 1 

两暦2061年，ハレー彗星が太陽に近づき 
つつあった。その前年から世界的寒波，フ 
イリピン人地鼢，セントへレナ大喷火 ， U 
本海涨陥没など興常な自然現象が全地球规 
模で次々と起こっていた。「ノストラダムス 
の再米 j と自称する予言者が現れ，「ハレー 
彗星とともにきたる悪魔によって，人類は 
滅ぼされる。異常現象はその前兆だ j と吿 
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げ，信者を急速に増やしつつあった。そん 
な社会不安のなか，人類は2機の探査機で 
ハレー 彗星を迎えようと していた 0 

探査機の名前は「コメット」と「ころな」。 
75年前……1986年……の接近のときとは異 
なり，今回は有人探査機である。まず，1 
号機「コメット」が，2週間後に「ころな」 
がスカイラブ 「 JESUS 」 を出発した。「コメ 
ット」はハレー彗星の尾のガスを採取し， 
次々！:探査結果を 「 JESUS 」 へと送ってい 
たが，突然通信が途絶えた。「コメット」の 
異変を察知した「ころな」では，速雄（は 
やお）を快速艇「いなづま」で調査に向か 
わせた。 

「コメット j で速雄が見たものは，何者か 
に襲われて息絶えた乗組員の死体だった。 
死体の首筋には皆一様に針で刺したような 
傷があった。コンピュータに残された記録 
から，それはハレー彗星からやってきたモ 
ンスターの仕業と判明する。速雄は「コメ 
ット」ただひとりの生存者である恋人のェ 
リーヌを脱出させた後，モンスターを倉庫 
に閉じ込め宇宙空間に放り出した。位機は 
去ったかのように兄えたのだが……。 

登場人物 (Charac ters ) 1 " 11 

武麻速雄（むそう.はやお）……18歳 

パソコンのゲーム 大好き 少年。シューテ 
イング ゲームに のめり込むうちに，本物の 
撃墜を体験したくなって銀河戦士を志願し 
たというアブナイ奴。といっても，性格は 
常識的でちゃんとこの物語の主人公の役を 
果たしている（古代進やカミーュとは大違 

い)〇 

エリーヌ • シユレマン…… 17歳 

音楽の天才。数学の天才。 モンスターに 
襲われた「コメット」のただひとりの生存 
者。実は モンスターが 変身した姿で，味方 
になりすまして殺人を繰り返すという物語 
かと思ったが，大はずれ。彼女は最後まで 
正真正銘の彼女だった。彼女の作曲した音 
楽が モンスターの 弱点になる（歌が弱点な 
ら「マクロス j だね) 〇 
アンドレイ • ベリーニ…… 29歳 

「コメット」 の コンピュータ技師。 （2061 
年から） 80 年前に芸夢狂人が作った 「スぺ 
ースモンスター」というゲームを 復元して 
遊ばせてくれる（ただし， このゲームでい 
くら高得点を出しても物語の進行には関係 
ない)〇 

ウイルヘルム • ハイ ラー . 33歳 

「コメット」 のキャプテン。モンスターが 
熱を エネルギーに していることを指摘して 
息絶える。モンスターに襲われ，毒ガスに 


さらされていてもまだ生きていた。すごい 
生命力である。 

ガルシア • バルカス……24歳 

ハンバーガー と コーラ が大好物。 「コメッ 
卜」の 乗組員。 速雄と「変身 モンスター ゲ 
ーム」をやる力 ? ，負けて特大ハンバーガー 
の一気食いをする。無芸大食，人畜無害， 
出前迅速，落書無用（なんのこっちゃ）。 
ロジャー • カーゾン 21歳 

「ころな」の乗組員。地球の生命は_星が 
運んできた，という考えの持ち主で，ハレ 
一_星の尾のガスから生命の源泉が見つか 
ることを期待していた0皮肉にも，ハレー 
_星は人類の生命を脅かすモンスターを運 
んで'きた。 

イワン.ミラコフ 31歳 

「ころな」のキャプテン。速雄とエリーヌ 
をかばってモンスターに殺される。 

朱芳花（しゅ•ほうか） …… 27 歳 

「マ クロス」 以来，この手の物語には必ず 
と言っていいほど中国名の女性が登場する 
ようだ。ぉ医者さんであると同時に「ころ 
な」のサブキャプテンを務める。速雄とエ 
リーヌが 「コメット」 から連れてき た モン 
スターの最初の犠牲者0 
F 0 JY …•…0歳 

人間ではなく，人工知能搭載のレシーバ0 
人の脳波特性に合わせて作る特注品のため， 
今回の探査では速雄の分しか間に合わなか 
った。いろいろとアドバイスをしてくれる 
が，すぐに エネルギー がな〈なって黙り込 
むのが困りもの。「2001年宇宙の旅」の HA 
L というコンピュータの名称はあの IBM と 
いうアルファベットをひとつずつ前にずら 
したものということは有名だが， FOJY と 
いうアルファベットをひとつずつ前にずら 
すと……。な一んだ，そうだったのか。 

音楽は地球を救 5 (Music) —™ 

この JESUS のなかでは音楽が重要な役割 
を占めています。適所適所に流れて臨場感 
を高めてくれる BGM の素晴らしさは，こ 
のゲームをほかのゲームとはひと味違った 
ものにしていることはゲームをプレイした 
誰もが感じることでしよう。特に朱芳花が 
死ぬシーンでは，もの悲しい BGM が適度 
のアニメ処理と相まって，それがアニメ映 
画の1シーンと見まがうばかりの錯覚を与 
えてくれます0また，ラストでのレーザー 
ロン（鍵盤楽器）を用いてのモンスターと 
の決戦は，力こそ正義という SF アニメが 
氾濫する現在にぉいては，新鮮さすら感じ 
させるのではないでしようか （「マクロス」 
はちよっと置いといて）。 



「 JESUS よ、そして挪、さよう料」 

「もう 一 1 ハン，<-ガ■■食いたかフたぜ • «ぱよ」 
r ハレー竹ら！ ••をす るん匕あとぞ J 
r » ユ，卜れう雀（やフてね* «んとうに よ」 

「3ンピ •づしなかフた*^だ卜-•.二れでばども 屋に なれ 4 」 


6人の雄姿は遠く宇宙の彼方へと 



収録曲ジーザス 
♦虚空への前奏 
籲やすらぎの宇宙 
• 勇者の休息 
秦甘い抱擁 
春崩れゆく都市 
籲迫り来る危機 


(2061) 

•蒼い無限 
參堇色の愛 
♦きらめく瞳 
♦夢の中の二人 
♦空の果て 
* 挑戦の時 


參死神の影 馨帰還 

籲鎮魂歌 •甦る侵入者 

春勝利の旋律 籲去り行く者たち 

籲生命への讃歌 

作曲はご存じすぎやまこういち。昔は歌 
謡曲の作曲者として有名だったその名前を 


テレビアニメのタイトルに見つけるように 
なったのは「サイボーグ009 (新版)」のこ 
ろからだったと思ぃます。ときには歌謡曲 
風でアップテンポ，ときにバロック風に重 


厚な曲相はアニメの画面によくマッチして 
いたといえるでしよう。 

そして，すぎやまこういちのアニメ音楽 
は「伝説巨人イデオン」で最高潮を迎える 
のです。その後，すぎやまこういちの名前 
は「ウイングマン」や「ドラゴンクエスト」 

など，ゲーム音楽の分野で有名になりまし 
たが，そういう点でこの JESUS の音楽が 
“はずれ”であるわけはないのです。実際， 
期待を裏切らないできになっていましたね。 
ゲームを終え，ふと夜空を見上げると，ま 
たたく星の向こうから地球を守るために散 
っていった6人の声が聞こえるような気が 
しました。そして，ドレ）ミカ……とい 
う JESUS のテーマがいつまでも僕の頭のな 
かで流れていたのです。 
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古：さあ，キーオ，セットポジションから 
第2球，打ったぁ 一， 球はグングン伸びて 
いる。大きい，これは大きいホームラン！ 8 ) 

2対0 ， 2対0です。ザマミロ阪神フアン。 
私は巨人が大好きです。 

流：ド真ん中の直球をよく振り抜きました。 
吉村君らしい一発ですね。 

古：さて，4番クロマティ。黒い肌にュニ 
フォームが冴えています。独特なクラウチ 
ングスタイルでピッチヤーを威嚇します。 
対するキーオ，外角にボールを集めあっさ 
りとクロマティを三振に切って取りました。 
流：いまの一発で目が覚めたんでしようね。 
古：続く 5番原も打ち取って，1回の表を 
終了しました。ぉぉっと，電光掲示板に「本 
日はようこそ」の文字が出た 9 、テレネッ 
トスタジアム，さっそくクサイ演出に出た 
ぞ。これは凄いですねえ。 

流：いわゆるひとつの捉破りですね。ハイ。 

1 ) このゲーム，テレネットスタジアムという 
球場で行われている試合なのである。 

2) 選手名はかなり変えてある。松木，篠之塚, 
吉林，タロマティなど。 

3) 実際，このゲームはかなり速い。 

4) 盗塁もある。プレイはジョイスティックに 
対応。ついでに FM 音源にも対応。 

5) このゲーム，やたらとフライが多い。 

6) 応援歌は4曲のなかから選択できる。 

7) もちろんピッチャーごとにスピードや変化 
球のキレが違う。 

8) 打者によっても打率，長打率などが違って 
くる。ホームランはカキーンと いい 音がする。 

9) 電光掲示板には各種アニメが登場して面白 

い0 







先発ピッチャーは体調がポイント 



まだ2回なのにこの得点差 



• ブロ野球 FAN 



燃える男の 
テレネットスタジアム 

Shimizu Kazuto 

清水和人 

春の高校野球がスタートするまで冬眠で 
もしようと考えていた野球フアンのあな 
た。さあ，この真新しい球場で白球に賭 
けた男たちのドラマを味わってみてくだ 
さい。でも，肝心の実況中継のほうはか 
なり脱線しているみたいです。 



XI turbo 用 5”2 D 版2枚組8.800円 

(2 ドライブ専用） 
日本テレネット 003(268)1159 


ブレイボール w 曜 

古：全国8千万のプロ野球ファンの皆さん 
こんばんは。本日は侍ちに侍った因縁の好 
カード巨人•阪神戦を，完成したばかりの 
テレネットスタジアムリよりお送り致しま 
す。実況中継は私，過激なアナウンサー古 
田一郎と，本日の解説は燃える男でお馴染 
みの流し目茂雄さんです。 

流：こんばんは。 

古：流し目さん，今日のカードでなんとい 
っても注目したいのは，やはり引退したは 
ずの江川が先発で登板することでしょうね。 
流：それはですね，いわゆるこのゲームで 
は江川ではなくて「江戸川」 2 > という名前に 
なっていますが，やはり江川は江川，江川 
でなければなりません。ハイ。ン ー， です 
からこれからはこのゲームに登場するメン 
バーはいわゆる，私の知っている名前で紹 
介させて頂くことにするわけだったりする 
わけですね。早い話が，18人も似たような 
名前をこの私が覚えられないという欠点を 
暴露したりするわけですね，ここで。そも 
そも私ら2人がいいかげんな名前なわけで 
すから，これだけはエ クス キューズしたい 
わけだったりするんですね。 

古：タイガースの先発はキーオ，第1球投 
げました。打ったぁ，松本。横極的に前に 
出るプロレスで内野ゴロを安す『にしました0 
さすがに速いですね彼の足は。 

流：盗 M もあり得ると思いますよ，この場 
面では，ハイ0 

古： 2番バッター篠塚(こ第1球投げました。 
おっと， いきなり松本走ったぁ u 0 スロー 
カーブの阪神バッテリー，刺せません。流 
し目さんのカンは大当たりですね。 

流：いわゆるひとつの勋物的カンですね。 
古：篠塚セカンドフライに倒れてワンア 
ウト，さあテーマソング“に乗って吉村の 
登場だ0キーオのスピードボールが果たし 
て彼に通用するか 7 >。 第1球外してボール。 
ここは様子を見たようですね，流し目さん。 
流：今日の吉村君は気合いが入っていますよ。 



夕間せまるテレネットスタジアム 
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巨人，江川が好投 

古：試合は江川があっという間に三振の山 
を築きます。すごいですねえ，今 U の江川 
は0 

流：右バッターの内角，左バッターの外角 
ギリギリ，すべてにストレートですね 10 し 
各バッター手が出ません。バースにしても 
完全に振り遅れています。今日は体調がい 
いのでしようか。最初から飛ばしています 1 ”。 
中国針を打っているのでしょうか。まった 
く絶好調です。 

古：攻撃は代わって巨人の攻撃。中畑のヒ 
ットを河埜，山倉とバントでつないで 12 >， 
これぞ野球の№4醐味，満塁のシーンを迎え 
ました。ここで好投の江川がそのまま打席 
に入ります。 

流：江川君はあの金田さん同様，バッティ 
ングも シュア なんですね。 

古：おおっと江川，内角に切れ込むボール 
にチョンとバットを出してライト前まで運 
びます。これは阪神バッテリーお手上げだ C 
3対0， 3対0になりました。 

流： ン ー， このあたりが実に江川君らしい 
ですね。ひょうひょうとした仕草で相手を 
完全に呑んでかかっていますね。 

古：なるほど，江川選手に対する相手は猪 
木ににらまれたストロング小林といったと 
ころでありましようか。さあ，上位に打線 
は戻って，松本倒れたあと篠塚の2点タイ 
ムリーで5対0とすでに一方的な試合とな 
ってきました。阪神，遅ればせならがここ 
でピッチャーの交代です⑶。この交代を流 
し目さんはどのように見られますか。 

流：ちょっと遅すぎましたね。村山さんは 
まだ現場のカンが戻っていないようですね C 
以前，天覧試合でこの私にホームランを打 
たれたころの彼なら，自分からマウンドを 
降りているところです。 - 

古：さて，ピッチャー代わって中継ぎの福 
間，このピンチをどう切り抜けるでありま 
しようか0迎えた バッターは 先ほどホーム 
ランを打っている吉村。ワンアウト，ラン 
ナー2，3 S の場面であります。 

流：当たっていますからねえ，吉村君は。 
古：さあ，ボール球2つを見送った吉村， 
対する福間ちょっと制球が定まらない。第 
3球投げました。打った，大きいまた入る 
か一，レフトカ ？ いっぱいまで下がって補り 
ました。しかしこの間に3 M ランナー江川 
が返って6点、目。コールドゲームぼいゲー 
ムとなってきました。しかしどうしてプロ 
野球に コール ド ゲームが あるのでしようか。 
これは史上最悪の負け数を記録した阪神へ 


の思いやりなのでありましようか。しかし， 
続くクロマテイがピッチャーゴロに倒れて 
ようやくチェンジです。さて，試合はどん 
どん進み8回を終えて9回表，巨人の攻撃。 
得点は2回以降変わらず6対0のまま。こ 
こまでよく押さえた福間に代わって押えの 
切りネし山本がマウンドに上がります。 

流：福間君は実にいい仕事をしますね。 

古：さて山本ですが，縦横緩急取り混ぜた 
ピッチング…で巨人打線を1点に押さえま 
した。対する江川はここまで阪神打線をノ 
ー ヒット ノーランに 押さえて います。 これ 
は阪神，実に情けない。さあ，阪神，最後 
の攻撃に入ります。 

流：今日の江川君のできからいって，まず 
はジャストミートを心がけるべきでしよう。 
でもここまでくると/ーヒットノーランを 
見たいですねえ。 

古：さあ，相変わらずマウンドに向かって 
左に立っての直球です。もうスピードは89 
キロしか出ていないが，掛布はあっさりと 
凡退で2ァウト。いよいよ最後のバッター 
となるか真弓。場内からは「あとひとり」コ 
ールが巻き起こっています。まず第1球， 
内角低めにはずしたボール0どよめきが起 
こりますテレネットスタジアム〇流し目さ 
んどうですか。めったにこのような場面に 
は遭遇できるものではありません。私はは 
っきりいって緊張の極致を迎えています。 
流：そう見られるものではありませんから 
才 ci ん。 

古：さあ，ファールが2球続いてカウント 
は2 エン ド2。江川ゆっくりした モー シヨ 
ンから振り被って投げたあ。ストライーク！ 
ゲー ムセットです。やりました，中国針 • 
江川，カムバック第1戦を見事にノーヒッ 
トノーランという大記録で飾りました。怪 
物，江川の復活です。 

流：またひとつの歴史が，ここに刻まれた 
わけですね。 

10) 右ピッチャーが向かって左はじからストレ 
一卜を投げると，ナチュラルカーブとなり， 
まず打てない。特に左バッターは恐ろしく振 
り遅れてしまう。必勝拽:球パターンだ。 

11 ) ピッチャーは体調表示によってスタミナの 
もち方が違う。スタミナ切れとなると極端に 
球速が落ちる。 

12) ランナーが塁にいるときは バン トが効果的。 
エン ドランにすればオールセーフの可能性が 
高い。しかし，満塁のときはダメ 3 

13) ピッチャー，ランナー，バッターの交代は 
ESC + ファンクシ•ヨンキーで行う。過去の対戦 
成績のデータなども見られる。 

14) このピッチングはかなり辛い。しかもこの 
場合，ピッチヤーには必勝パターンがない。 



BGM に飽きたら次の曲をリクエスト 


他球場の試合結果 1 一 

古：ヤクルト•中日戦は流し E ! Jr . がついに 
ベンチ入りできませんでした。しかし，出 
戻りホーナーの2 ホーマー によって逆転勝 
ちを収めています。西武*日ハム戦は四武 
の先発，東尾がいきなりなにを思った力*， 
バッ ターに麻雀パイを投げるという大チョ 
ンボをしでかしましたが，エ藤がきっちり 
と押さえ7対3で日ハムを降しています0 
また，この試合の最後では守りに着いてい 
た清原が突然泣きだしてしまうというパプ 
ニングもあったようですが，これはスタン 
ドに応援にきていた吉永小百合さんの姿に 
感激してしまったらしく，これからの FF 
攻勢が心配されます。東尾といい，この清 
原といい，管理野球の名残りがあるこのチ 
ームにとって，第2のビートたけしとならな 
いことを祈るばかりです。それにしても流 
し目さん，今日の江川のピッチングを振り 
返っていかがでしよう力、 

流：そうですね。チェンジの合問のあのア 
ニメといい，屋根のない雨天順延型スタジ 
アムといいまったくいまの時代におけるプ 
口野球へのアンチテーゼというのか，捉破 
りのミーハー現象といいます 力，， ほんとに 
ホームラン コンペ モード⑸もあったりして， 
日本テレネットの面目躍如といったピッチ 
ングでしたね。 

古：そうですね，今日の江川や山本なんか 
を相手に，10球続けて打つことができるホ 
—ムラン コ ンぺ はなかなか遊べます。それ 
では記念すべき第1戦を，これまた記念す 
べき大記録とともにお届けしたテレネット 
スタジアムから お別れします。実況は私， 
古田一郎，解説は流し目茂雄さんでした。 
それでは皆さん。 

古•流：バハハーイ。 

15) ホームランコンペモードとは，各球団のク 
リーンアップからバッターひとりを選択し， 
ピッチャ_が投げる丨0球からホームランを狙 
って勝負する。試合にあきたら打ちっぱなし 
気分で遊べる。 
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THE SOFTOUCH 


よりよいソフトウェア環境のために〈7〉 


ダイナブック 
からの発想 


Tama Yutaka 

多摩豊 

1988年の幕があいた。今年はパーソナル 
コンピュータにとってどのような年とな 
るだろう。 AX , TRON , 32ビットといっ 
た話題ばかりが先行するなか，いま一度， 
バソコンに託された夢を新鮮な気持ちで 
思い起こしてみてはどうだろうか。 



壮大な初夢 —■■■■■■' 

まだパーソナルコンピュータというもの 
力す，影も形も存在していなかった1970年代 
の初め，とんでもない夢を抱いてしまった 
人間がいた。「誰もが簡単に使えるノート 
の大きさの情報端末」を作る，こんな途方 
もないことを思い描いた研究者がアメリカ 
にいたのである。 

その機械を作るためには，高性能のグラ 
フィックディスプレイ，子供でも扱えるュ 
ーザーインタフェイス，簡単にアプリケー 
ションを作ることができる言語，そのほか 
さまざまなものが必要だ。まさに夢と呼ぶ 
にふさわしいような話だった。 

その夢の名はダイナブック，そして夢を 
見た人の名はアラン•ケイといった。 

あれからすでに15年という月日がたとう 
としている。しかし，この夢はまだ現実の 
ものとはなっていない。僕は，この夢が現 
実になる日を夢見ているのである。そんな 
わけで，今回はこの連載のメインテーマ「よ 
りよいソフトウェア環境」というもの力 ? ， 
どこから始まって，どこを目指*しているの 
かを考えてみたい。 

タイナブックが鹿み出したち の^^ 

アラン•ケイは，70年代の初めに創立さ 
れたゼロックス社パロアルト研究所の，初 
期の，そしておそらくはもっとも有名な研 
究員のひとりであった。 

彼が追い求めていたもの，それは冒頭に 
書いたような“魔法のノートブック”であ 
る 。 A 4判のノートの大きさで，情報を自 
fll 自在に扱うことができるコンピュータ， 
彼はまだ Apple I が世の中に存在する前に， 
こんなものを考え出したのである。 

ダイナブックというのは，形のないアイ 
デアであった。たとえば，細かい仕様があ 
るわけではなく，完成予定図があったかど 
うかすら疑わしい。すべてはアラン•ケイ 
の頭の中，そして彼が発する言葉の中に存 
在していたのである。しかしこのアイデア 
は，パロアルト研究所の大きなテーマとな 
り，ワークステーション“ ALTO ” という 
姿を取ることになる。 

ALTO が誕生したのは1973年の春である。 
ダイナブックのアイデアは，当時のコンビ 
ュー タ•ハ ー ドウェアでは，どうがんばっ 
ても実現不可能なものであった。そこでパ 
ロアルトでは“ノートの大きさ”の部分を 
取り外して，とりあえずこのアイデアを実 
験するための“システム”を作ったのであ 
る〇 ALTO は，ビットマップデイスプレイ， 


マウス，マルチウィンドウ，通信機能を持 
ったマシンであった。 

この ALTO が，現在のパソコンに与えた 
影響には計り知れないものがある。 

たとえば，今やパソコンには当たり前の 
ように接続されるマウス，これは ALTO で 
使われるようになって初めて世に広まった 
ものだ。 

それまでコンピュータになにか指示をす 
るためには，すべて キー ポ ー ドから命令を 
打ち込まなければならなかった。しかも视 
在のように矢印 カーソルキーがついている 
わけではないから， カーソル ひと つ 動かす 
にしても，コント ロールキー + J のような 
操作を必要としたわけである。 

これをより使いやすくするために考案さ 
れた“マウス”は，誰にでも使いやすいュ 
ーザーインタフヱイスの一環であり，強力 
なグラフィック機能を持つはずのマシンに 
とっては，欠かせない武器なのである。 

マウスを発明したのはパロアルト研究所 
ではない。しかし，それを採用したコンビ 
ュータを作ったということは重大である。 
このマシンを見たアップル社のステイーブ 
ン•ジョブズは，即座にそのアイデアを构 
分の会社へ持ち帰った。 

タイナブックを夢見る入々 ヽ 

スティーブン•ジョブズが t ! 社へ持ち帰 
ったのは，マウス，ビットマップデイスプレ 
イ，マルチウィンドウという装置や機能で 
はなかった。彼が触発されたのは，アラン 
• ケイのアイデアそのものだったのである。 

“誰にでも簡単に使える”マシンを実视さ 
せるには，人問がどのような形でなんのた 
めにコンピュータを使うのか，そしてこれ 
からはどうなっていくのかといったさまざ 
まな分野に対する研究が必要だった。 

1983年，このような研究の末登場した Li 

sa は，マウス，ビットマップデイスプレイ， 
マルチウインドウを主体とするューザーイ 
ンタフェイスを持ち，ダイナブックのうち 
の“誰にでも簡単に使える”という部分を 
初めて実現した製品となった。 

Lisa を作り上げるためにはハードウェア 
の研究はもちろん，それ以上にどのような 
ソフトウェアが必要なのかも研究しなけれ 
ばならなかった。基本的には， ューザーが 
自分でアプリケーションをプログラムする 
などということを考えていなかった Lisa は， 
5種類のアプリケーションソフトを付域す 
る形で登場した。これだけあれば，人間が 
コンピュータを使って行うであろう作業は 
すべてこなせるという代物だったのである。 






しかしながらこの試みは若干早すぎた。残 
念なことに，その値段は“誰にでも”買え 
るものではなかったのである。 

はっきりいって Lisa は失敗した製品であ 
った。しかしアップル社はその研究をその 
まま推し進め，翌年，ご存じ Macintosh が 
登場することになる。 

Mac は Lisa よりさらに洗練されたューザ 
ー インタフェイスを持っていて，おまけに 
数段安かった。そして初めて，ダイナブッ 
クのアイデアのうちの“誰にでも簡単に使 
える”という部分が世の中に広まることに 
なるわけである。 

アラン•ケイは，このときにはパロアル 
卜研究所を辞め，アップル社で研究を行 
うようになっていた。しかし，彼は曲:接こ 
の Lisa にも Mac にもかかわってはいなかっ 
た。彼のアイデアを受け継いだ多くの人々 
が，この夢のマシンを開発したのである。 

1984年，その夢を追う者は，無数に存在 
するようになっていた。 

何が成し遂げられていなし、か？ 

さて，最近のラップトップコンピュータ 
は，形だけを兄るならこのダイナブックに 
かなり近づいたといえるかもしれない。し 
かし，それは大きな誤りである。ここでひ 
とつ考えてもらいたい。 

“マウスがついていて，ビットマップディ 
スプレイで，マルチウインドウが開くコン 
ピュータ”は，すべて誰にでも使いやすい 
コンピュータなのだろうか？ 

現在，世の中に出 M っているコンピュー 
夕は，かなりこの条件に近いものが多い。と 
ころが，それはこの“形”だけをそろえて 
いるのであって，なぜそういったものが必 
要なのかをあまり考えていないものが多い 
ような気がするのである。 

たとえば’，最近はやりのグラフィックツ 
ール0素啃しいものが沢山あることは認め 
るが，まだマックペイントのほうが使いやす 
い0特に，そのツールで作った“絵”を， 
他のソフトで使おうとしたら，どうしても 
lAi 倒吳いことになるのである。 

これは決してアプリケーションに問題が 
あるわけではない。システムを作るときに， 
アップル社が行ったような膨大な研究がな 
されていないからなのである c 

たとえば Mac の中に入っているグラフィ 
ッ クルー チン“クイックドロー”は，開発 
だけで3年の月 tl をかけている。その結果， 
Mac 用のソフトはすべてこのルーチンを使 
ってグラフィックを扱えるようになってお 
り，どのようなソフトでも，なんらかの形 


でデータの互換性.があるようになっている。 
この準備があって，初めて Mac はノートの 
ように手軽に使えるようになっているので 
ある。 

そして今進んでいること ■ ■ | ■■■ «- 

咋年アッ プル 社は，クイックドロ ールー 
チンとマックペイントを開発した ビル •ア 
トキンソンの手による新しいソフトを発表 
した。それが話題のハイパーカードである。 
これは，アッ プルネ I :が決してダイナブック 
を忘れていないことのひとつの証明である。 

このソフト，ちょっと説明を m いただけ 
ではただのカード型のデータベースと思わ 
れてしまうかもしれない。確かに，画面上 
に1枚のカードを想定し，そこにさまざま 
な悄報を書き込んで，他のカードとリンク 
させる，と聞いたらデータベースソフトと 
忍われてもしかたがない。しかし，その内 
容はもっと大きな，それこそダイナブック 
をソフトウェアの而から追求したものなの 
である。 

画面上に出てくる真 fi なカードに情報（文 
字だけでなく，絵や音までも扱える）を記 
録するのがこのソフトの®本的な機能であ 
る。これはノートとじだ。 

またこのカードは，情報を宵き留めてお 
くだけでなく，そこからさまざまなことを 
むってくれる。 

たとえば，必要な文字を検索したり，兄 
たいカードを引っ張ってきたりという操作 
は，而倒臭いコマンドなどを使わなくとも 
行うことができる。また，あるカードを他 
のカードにリンクさせるのにも雒しいコマ 
ンドは必要ない。単純に“ボタン”をカー 
ド上に作り，そのボタンをクリックしたら， 
iuh * すカードを表/バ•させるようにすればい 
いのである。 

こういった操作は，基本的にすべてマウ 
スだけで（もっともデータを打ち込むのは 
キーボードの役 n であるが）行うことがで 
きる。ノートのように，そしてノート以上 
に多種多様な情報を扱うことができ，ノー 
卜にはないさまざまな機能を簡取に操作で 
きる。 

Mac だから，絵も文字も自山自在に使え 
る。他のアプリケーションソフトで作った 
ものをカード上に移すことも簡黾だ。こう 
いったゾフトは， Mac がさらにダイナブッ 
クへ近づくための必黹；なのである。 

ビル•アトキンソンは，またもや3年と 
いう H fl をかけてこれを開発し，アップル 
社は，これからの Mac にはこれをただで付 
けるという形でその普及に力を入れている。 



やはり，ダイナブックをいつの H にか実税 
しようという夢は，あの会社の中に息づい 
ているのである。 

そして ハイパー カードは，ダイナブック 
の次:呪のためのもうひとつの人•事な要素“誰 
にでも使えるプログラミング言語”をも ；II 
求して いる。ハイパ ーカードには，さまざ 
まな行！を指示するための I 語， ハイパー 
トークが ついている。 これが実に（アメリ 
力人にとっては）使いやすいものなのだ。 
これまでのプログラミング言語とは it い， 
ハイパー トークは ほとんど実際の英語と fiij 
じような形で命令を記述することができる。 
そのスクリプト（プログラムのことをそう 
呼ぶ） は， まったく自然な炎•語として“説 
む”ことができるのだ。 

さらに，いわゆるアルゴリズム的なみえ 
力•をしなくても，命令をすることができ（ど 
ちらかといえば，アプリケーションソフト 
のマクロ機能に近い），またこれを使わなく 
ても ハイパー カードは使えるのである。 

夢は …… ■ ■■ 

この壮大な夢は決してアップル社の専売 
特許ではない。たとえば日本で現在進んで 
いる TRON プロジェクトの根底に流れてい 
るのはダイナブックのコンセプトである。 
また，ダイナブックの鍵である“ノートの 
人きさ”に関しては， H 本の技術が大いに 
役立つであろう。しかし，この夢のコンビ 
ュータが H 本人のためのものとして出现す 
るには，その思想，夢の本質を追い求める 
人間がひとりでも多く必要だ。 

コンピュータ技術新でない我々にできる 
ことは，なにが欲しいのかを声高に叫ぶこ 
とではないだろうか？ それこそが夢を夢 
でなくすために必要なことなのである。 
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□ 
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THE SOFTOUCH 

• X 68000 用ソ^の傾向と対策 


感性に麵する 
ソフトウェア 

Yoshida Kouichi 

吉田幸一 

優れたハードはユーザーの心を熱くし， 
その機能を生かしたソフトは感性を刺激 
する。 X 68000 に発売されるソフトは果た 
してどこまでその欲求を満たしてくれる 
のだろうか。現在，そして未来を語るた 
めにいま，その傾向と対策を教授しよう0 



昨年秋のとある日。某ソフトハウス（有 
名なワープロを作っているところ）での話。 
「パソコンはなにを使っている力、」と聞かれ 
たので X 68000 だと答えると，部屋の隅の 
ほうで， 「 X 68000 ?」，「シャープが出した 
68000積んだゲーム マシン だよ」，「なるほ 
ど」。実話。こいつらなんなんだあ。 

だが，世間なんてそんなものである。素 
人でない人たちでこうなのだから，一介の 
パソコ ンユー ザーの多く が X 68000 をどう 
思っているか想像に難くない。 X 68000 に 
ついてたいして知りもしない輩が多いのだ 
から仕方ないといえば仕方ないし， 某パソ 
コン誌などを読んでいると X 68000 は高価 
で優れたゲームマシンである！と洗脳さ 
れそうになってしまうが，これは悲しい問 
題ではないだろうか。物事をシニカルに批 
評するのが流行っている世の中とはいえ， 
表層だけを見つめて事足れりというのでは 
あまりにおそ松君である。本誌読者にはそ 
んな人いない（はずな）のでひと安心とい 
うところか。 

そんなときに飛び出たのが スペースハリ 
ア ー。 いまでは ユーザー 普及率80%を越え 
るのではないかと思われるほど売れまくり， 
発売1年に満たない新機種専用ゾフトなの 
にソフト売り上げの上位に负い込んでいる。 
聞いた話によると，発売1力 E で6千本売 
れたのだそうだ。当時としては ユーザーの 
半分〈らいが買った勘定になる。きっと連 
射 式ジヨイス テイ ツクもかなり売れたこと 
だろう。 

おかげでますます X 68000 は高価で優秀 
な ゲー ムマシン だとの評判がたってしまっ 
た。このままではいけない。 X 68000 は使 
う側を試す マシンな のだ。みんなでひとつ 
の人気ソフトに飛び付きハードに決まった 
役割を持たせるのではなく， ユーザー がそ 
れぞれまった〈遠う場所で異なるソフトを 
使い，勝手なことをしながら 「 X 68000 って 
やっぱ ええな あ」とつぶやく マシンな のだ0 
ゾフトもそういった出現をしてくれなけれ 
ば困るのである。 

XBBOOO にあるべきソフトとは ■ 

いままで何度も Oh ! MZ 時代から本誌な 
どで事あるごとに書かれていた力' C コン 
パイラが発売されたいまだからこそ，また 
書いてしまうのである。感性を刺激するソ 
フトが欲しい，と。 

いままでの16ビツトパソ コンは 世の中の， 
いわゆる文明の部分に影響を与えてきた。 
しかし，文明なんてものはそこいらの専門 
家に任せておいて，我々は文化を作らねば 


ならないのだ。目指すはパソコン界の文化 
大革命である。 

たとえば ， MUSIC PRO -68 K 。 最近の 
私のお気に入りソフトであるが，完成され 
たソフトとして評価すると編集機能がいま 
イチだったり，マウスの右ボタンが遊んで 
いたりとまだまだである。しかし，五線譜 
のどこになにをどう置いてもよいというユ 
ーザー次第でどうとでもなる自许1さは極め 
つけである。子供には完成された電気で動 
く玩具より木でできた積木のほうがより長 
く自由に遊べて奥が深い，といった事実を 
肌で実感できるのだ。私の友人は CRT の五 
線譜をいきなり前にして3時間，石になっ 
たという。しかし，短い曲をいくつも作る 
うちに音楽知識と勘が身に付いていくのだ。 
恐ろしいことに，おかげで音楽の聴き方が 
変わってしまった。 

X 68000 にとってあるべきソフトのひと 
つは，こういった小布民のクリエイティブ 
心をかきたてるものである。この文脈では 
“ PRO ” というより偉大なるアマチュア向 
けだといえよう。グラフィックで小市民の 
クリエイティブ心を刺激するといえば ，X 
68000用ではないがフアンタビジヨンであ 
る。あれは楽しい。ゲームだけれど大戦略 
エディタセットも，ある意味でクリエイテ 
ィブ心を刺激する。パソコンで遊ぶといえ 
ばゲーム，というのはもはや時代遅れなの 
だ（なんていっていいのかな)。 

音楽とくれば絵であるが ， ZsSTAFF P 
RO -68 K は文字どおりプロである。あの機 
能と表現力は使う人を震撼させる。 Z’sST 
AFF PRO -68 K の ユーザー は次の3通りに分 
かれるであろう。ひとつが X 68000 のあま 
りの建さに自分の1苗 I 才のなさを痛感して落 
ち込むやつ。あるいは自分で描くのをあき 
らめてカラーイ メー ジ ユニット を買いに行 
くやっ。最後が胬起して Z’sSTAFF PRO 
68 K に迫ろうと頑張るやつ。あなたはどれ 
になるか。ちなみに，売れているそうです。 
でもこれを使いこなすのは大変そうだなあ。 



スペース ハリ アー 





























Kamikaze 



はそれほど多くなくともよいソフトは売れ 
る。最近忘れられている，大事なことであ 
る。 


で，現実的なお話 


X 68000 ユーザー侍望のソフトの充実は 
皆さんの懐がお年玉やボーナスでふくらん 
だ年末年始（といってもこの号が出るころ 
にはとっくに成人式も終わっている）から 
本格的に始まる。なんとか1987年内にとい 
う根性から少なくとも年始めには，と噂さ 
れていながら発売が遅れていたソフトも店 
頭に並び，買うソフトがなくて囤った時代 
からどのソフトを最初に買うか困る時代へ 
移行しようとするだろう。 

そこで，新作情報を一気に並べてしまお 
うというわけである。冬のボーナスが X 68 
000のローンのボーナス払いでなくなった， 
という人は，悲しいて/すね。 

Z，sSTAFF PRO -68 K 

虚実入り乱れた新作情報のなか，やっと 
こさ Z’sSTAFF PRO -68 K が発売された。 
あれ？とっくに発売されていたのでは， 

と驚く人もいるだろう。が，結局は昨年11 
月まで待たされたのである。出来はどうか 
というと，前述したとおり。四角形の領域 
を任意に回転させたり（傾けるのだ)，ねじ 
ったりひねったり，底辺（あるいは上辺） 
だけ拡大 • 縮小してデフォルメしたりとい 


で58,000円というのは安いのかもしれない。 
Kamikaze (神風)バージヨンアップ！ 

続いて少々値の張るソフト Kamikaze (P 
RO -68 K は付かない）だが，マクロがない 
とかセル固定ができないとか部分的にあら 
まっ，という点が指摘されていた。で，早 
々にそっと機能強化してしまったのだった。 
思ったより早いバージョンアップで私は感 
心している(当然 BUSINESS PRO も同様)。 

新しい広告を兒ればわかるように，画面 
右のアイコンも一気に増えている。値段と 
名前はそのまま，ユーザー登録をした旧ユ 
ー ザ ーに は無料で バー ジョンアップという， 
当然だけれどもうれしい話。いままで値段 
の割に……と二の足を踏んでいた方もこれ 
で満足するのではなかろうか。私なんか， 
ビジネス ユーザーで もなんでもないけれど， 
Kamikaze で遊んじゃうのである。98用の 

メジヤーなスプレッドシートと違ってマニ 
ユアルを熟^！しな〈とも勘で使えるから（マ 
ウスのおかげね），世-の中に転がっている 
数字（情報過多時代だから，至るところに 
データがある）をぶち込んで，自分だけの 
データ処理をして楽しんでいるのだ。情報 
過多時代とはいっても我々の目に届くもの 
はすべて一度メディアの手によって加工さ 
れたものばかりだから，真実を見失わない 
ためにも1次データである素の数字から， 

自分で結果を導き出すというのは面白い遊 


私など，真っ白な画面にパレットや編集の 
ウィンドウを開いたまま石になりそうだ。 

と，いうわけで X 68000 にとってふさわ 
しいソフトの次の姿は，プロがつい衝動買 
いしてしまうような優れた完成したソフト 
である。音楽ならやはり MIDI が欲しいね。 

さて，気がついている人はとっくに気が 
ついているが， X 68000 用のゲーム以外の 
ソフトにはたいていソフトハウスを問わず 
“ PRO -68 K ” が付いている。う一ん，面白 
い。そこで，手元にあるシャーフ。の X 68000 
ソフト情報を見ると，発売中，発売予定を 
含めてなんと10本もある（もちろん付かな 
いのもあるけれど)〇侍望のマルチウインド 
ウエディタ WINDEX や，今月発売予定の 
FINAL などにも “ PRO -68 K ” が付くので 
全部で12本。でもよく見るとなにかが足り 
ない。そう，ワード PRO -68 K ， ワープロで 
ある。付属のワープロではとても PRO と 
は呼べない。とりあえず，高速高機能エデ 
ィタ+印刷機能+よい日本語 F P でいいか 
ら今年早々にでも欲しいものである。ワー 
ド PRO -68 K のあとは当然 DTP PRO 68 K , 
アウトライン PRO -68 K と続いて欲しいのだ 
けれどね。いくら遊べるマシンでも押さえ 
るところは押さえてもらいたい。 

で，そういったアプリケーションを作る 
人に欠かせないのが俗にいう開発キット， 

C compiler PRO -68 K だ 。 C といえば，こ 
の間 IBM - PC 用の Turbo C を見たんだけれ 
ど，ウィンドウが開きまくって使いやすそ 
うだった。そうなると，エディット用やら 
デバ ッ グ用やらメ ッ セージ用などマルチウ 
ィンドウの開発環境が欲しい。そうなると 
PROLOGUE や Small Talk も欲しいけど 
先は急がない。 

最後にゲームである。ゲームは放ってお 
いても玉石混淆噴出しそうなので，最後に 
回してしまったのだが，「モンスター百数 
十種」なんて宣伝をしていたりするのを見 
ると不安である。ビデオゲームを移植すれ 
ばいいというものでもない0ゲームソフト 
でなくともゲーム以上に奥深く遊べるとわ 
かったいま，より以上のものが求められる 
のである。異様にリアルなゲームと，アイ 
デアで勝負のゲームが求められるだろう。 
たとえばダンジョンものでもウィザードリ 
ィのような黒い壁に白の線ではなく，煉瓦 
の壁には遠くからでも書いてある文字が見 
え，落ちているものは目で確認してマウス 
カーソルをテケテケヒ動かして拾い，プレ 
イヤーは RPG かシミュレーションかアドべ 
ンチャーかわからなくなっていく〜となる 
のだ 0 スペースハリアーや Z’sSTAFF PR 
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びである。少々而倒だけれどゲームより而 
白い。 

謎の Hyper UD 

お次も PRO -68 K の付かないソフトである0 
謎の，と付いたのはタイトルを兒てもどん 
なソフトでなにをしたいのかわからないか 
らである。 AV 統合ソフトなどといってい 
るように，ビデオ画像に， X 68000 の絵， 
FM 音源，サンプリング，スプライト（ア 
ニメ），文字（テロップ）などの表祝機構 
をリンクしてビデオアートしてしまおうと 
いう f (沢なソフトなのだが，気合いを入れ 
て使おうと思うとビデオ2台とカラーイメ 
—ジ ユニットが 欲しくなる。しかし，ただ 
遊ぶだけならビデオアートまでいかな〈と 
もいっこうに構わない。 X 68000 の機能を 
生かす ツールが それぞれ付いて16,800円で 
手に入るだけでも，とってもおいしい話で 


はないか。 

グラフィ ック エディ タは Z ’ sSTAFF にか 
なわなくとも，ミ ユージックエディ タは M 
USIC PRO -68 K にかなわなくとも，全部 
いっしょで安ければ強力な武器である。# 
にスプライトエディタ（ついでに作ったキ 
ャラクタが動いてくれる）やボイス エディ 
夕はほかに市販品もなく，ありがたい。ビ 
デオがな〈とも X 68000 の機能だけでちょ 
っとしたアートは可能だし（君にも作れる 
環境ソフト），ひとつひとつ個別に使いたい 
人には便利なおもちやのかんづめ，それに 
しても安いが，全部で16,8001リなのであっ 
て，ひとつひとつはそれなりのものである 
ことに注意が必要である。ちなみに，アイ 
コン やサンプルデータはちとダサい。 
マウスと通信 

と，くれば次は通信ソフトである 。 XLi 


nk PRO -68 K だ。キーボードから シコシコ 
と文字を打つのがメイ ンの 通信にマウスや 
プルダウ ン メニューは似合わないかと思っ 
たのだが，あにはからんや，意外にじっと 
画面を見て悄報を仕入れている時間のほう 
が多いから（特に300ボーだと）マウス片手に 
コチョコチョできるほうが便利なのだ。そ 
の上，マウスが壊れたらただの鍋敷きと化 
してしまう X 68000 のソフトで，初めてキ 
ーボードのみでも操作可能だ。通信ソフト 
だから当然といえば当然だが，実際に自分 
の目で確認するまでは一抹の不安を拭い切 
れなかったのは確か。 

通信 バッファ に受信データが蓄えられる 
ので，特にダウ ン ロードしなくても バッフ 
ァ からあふれない限り（デフオルトで64 K 
バイト），冋線を切っても内容は保持され 
ているし， エディタ （これも専用 バッファ 
がある）とターミナルは瞬時に切り換えら 
れるので エディ タのなかの必要な部分だけ 
をカットしてターミナルでペーストしてや 
れば手軽にアップロードできる。少々遅い 
のが気になるとはいえ，機能はなかなかの 
ものである。あとは速いモデムと安い電話 
料金（うちから都区内にかけるとなんと38 
秒101リである）ですな。 

そして作る人の味方 

やっと発売された C compiler PRO -68 K ， 
俗称 X 68000 開発 キット である。何度も報 
じられたように X 68000 の機能を網羅した 
たくさんのライブラリと，標準では付いて 
こなかったいくつかの便利な外部 コマンド 
なんかが付いていて，おまけに BASIC も C 
に コンバート して コン ハ 0 イル できてしまう 
というおいしさ。とっても重い5册のマニ 
ュアルが付いて39,800ド1である。う一ん， 
破格だ。8086川の練られた コンパイ ラに 比 
ベ最適化がどうとか効率がどうとかいう人 
もいるが完金オリジナル版だし， バージ ョ 
ンアップを重ねるうちにどんどんよ〈なっ 
ていくことでしよう。 

最後に新作ゲーム 

いつでもすぐ遊べてなかなか鮑きない上 
海である。いままでの上海も機種によって 
微妙に画而や解けたときに出る龍のデザイ 
ンが遠ったので期待していたら，なかなか 
個性的な上海になっているようだ。特にプ 
ルダウンメニューとなり，ズリッとウイン 
ドウが出てくるさまは気持ちいい。牌も It 
米の上海より大きくて兒やすい。象牙&竹 
というよりも背が緑色のプラスチックの牌 
を想像させる。能もなかなか傑作である（編 
集室のスタッフが集まって5分くらいみん 
なで笑い転げながら兒ていた)。 
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X 68000 は変なパソコンである。背中に 
リモート端子があるのも変だし，停電にな 
るとデイスクが抜けなくなるのも変だ（咋 
年夏の東京大停汜のときに某編坻氏も家で 
巻き込まれ，原稿の入ったディスクが抜け 
なくなって困ったのは有名な話である)。ど 


んなからくりかディスクは飛び出てくるし， 
ビープ音の代わりにユーザー によっ て鳴る 
音が違うのも変だ（ちなみに私のはウルト 
ラセブンが叫ぶ）し，スイッチを問違って 
切ってもカラータイマーが点滅していれば 
復活できるというのもいままでのパソコン 
と比べると変だ。 

ここまで徹底したパソコンには，人知を 


越えた ソフトがふさわしい0 ハ 0 ソコンは0 
分でいじる 人と人の 作った ソフト を使う 人 
の 2種類が混在して初めて成り立つも ので 
ある。いじる人がいじって 初めて ソフトが 
でき，使う 人が 潤い，両者がクロス オーバ 
一する。そして，その繰り返しの結果とし 
て •後に笑う者がいちばんよく笑える もの 
なのだ。 


各種ソフトウェア X 68000 度チェック 


この表の正しい見方これまで X 68000 に発売されたソフトの数々を実際にさ 
わってみて，私が感じたままを備考欄にコメントとして紹介してあります。た 
だし WINDEX PRO -68 K と FINAL PRO -68 K はまだ完成版が手元になかったので， 
サンプル版などをもとに感想を述べることにしました。そしてとどめの X 68000 


度の星印は，5段階評価 （5 つ星が満点）で早い話がこの私が X 68000の機能を気 
持ちよく生かしている，または使ってみてそのコンセプトが気に入った，ゲーム 
の場合はただ単に面白かったなど，なんといいましょうか率直にいうと「独断 
と偏見」，結局この一語に尽きてしまうわけですな。 


1万円以下のソフト 






ソフト名 

X 68000 度 

ソフトハウス名 

価格 

発売時期 

備 考 

ゼビウス 

★ ★ 

電波新聞社 

6,800円 

発売中 

•お馴染み，究極のゼビウスです。電波新聞社の定番アイテム。 
ジョイスティック付き8,800円。 

レリクス 

★ 

ポーステック 

7,200円 

発売中 

•祝一平氏のレビュー参照のこと。ノーコメント。 

スペース ハリ アー 

★ ★★★★ 

電波新聞社 

6,800円 

発売中 

籲売れ行きがすべてを証明。14面の人知を越えた速さが好きで 
す。私はこれの16面で自分の動態視力の限界を思い知らされ 
ました。 

魔神宮 

★ 

ザインソフト 

7,800円 

発売中 

• X 68000 初の RPG 。 絵は綺麗だけれどちょいと遅い（ X -BASIC 
で書いてある）のが残念。 

マンハッタン.レクイエム 

★ ★★★ 

リバーヒルソフト 

7,800円 

発売中 

•マウス片手にできる操作は簡単，話は複雑のアドベンチャー。 
オープニングのかっこよさとグラフィックロードの速さは特 
筆もの。高品質である。 

T . D.F 

★ 

データウェスト 

6,800円 

発売中 

•なぜか「1ドライブより楽しめます j なんて書いてある。 

上海 

★ ★ 

システムソフト 

6,500円 

発売中 

•麻雀牌を使ったパズルだが，絵が綺麗で見やすい。暇潰しに 
最高である。やりだすと龍を見るまでやめられない。 

ツインビー 

★ ★ ★ 

シャープ 

7,800円 

1月発売予定 

• 2人で遊ぶとなお楽しいかわいいシューティングゲーム。ジ 
ョイスティックが2本欲しいね。ゲーセンでは苦手でした。 
雪辱を果たすぞ。 

アルカノイド 

(リベンジ • ォブ.ドゥー） 

★ ★★★ 

シャープ 

7,800円 

発売中 

•ただのアルカノイドではなく新作リベンジ•オブ • ドゥーで 
あるところがポイント。マウスでやりたい。 

1万円以上のソフト 






Kamikaze 

BUSINESS PRO -68 K 

★ ★★★ 

サムシンググッド 
シヤ■—フ 

68,000円 

発売中 

•マウスとマルチウィンドウを駆使したエクセルライクな遊べ 
るスプレッドシート。近頃機能強化されたのでとてもよくな 
った。和製統合化ソフトの最高峰か？ 

SOUND PRO -68 K 

★ ★★★ 

シャープ 

15,800円 

発売中 

籲3次元波形は見れるわ，イメージで音は作れるわ，50曲ある 
サンプル曲を聴きながらエディットできるわの至れり尽くせ 
りの音色作成ツール。ただサンプル曲を気に入った音色で流 
し続けても環境ソフトとなるところが凄い 。 MUSIC PRO -68 K 
や BASIC から呼べるのもよい。 

MUSIC PRO -68 K 

★ ★ ★ 

シャープ 

18,800円 

発売中 

•詳しくは本文参照。人知を越えたソフト。詰めの甘さとサン 
プル曲が偏っているのは愛敬？ 

Z'sSTAFF PRO -68 K 

★ ★★★★ 

ツァイト 

58,800円 

発売中 

書 これも詳しくは本文を。人知を越えていて，自分の才能が思 
い知らされる（ほかの機種のグラフィックツールのように不 
出来を機械やソフトのせいにできない)。表現力はビカー。 

Hyper UD 

★ ★ 

イースト 

16,800円 

発売中 

•至れり尽くせりの幕の内弁当。サンプルは努力不足。詳しく 
は本文。安いでんなあ。 

XLink PRO -68 K 

★ ★ ★ 

シスポート 

19,800円 

発売中 

參 またまた本文参照。自動アクセスやホスト機能など多機能。 
マウスの威力が通信にも。ヘルプ機能も嬉しい。 

WINDEX PRO -68 K 

★ ★ ★ ★ 

J E し 

28,000円 

1月発売予定 

❿ マルチウィンドウで機能満載のスクリーンエディタ。考えら 
れる機能どころか思いもしなかった機能まで詰め込んである 
ようだ。人知を越えるか？ 

FINAL PRO -68 K 

★ ★ ★ 

ASP 

38,000円 

丨月発売予定 

•—見，人気エディタ MIFES に似ているが，コマンドは Word 
Star ライクでずっとコントロールキーやエスケープキーが 
充実している。人知は越えないが，よき伴侶である。 

C compiler PRO -68 K 

★ ★ ★ ★ 

シャープ 

39,800円 

発売中 

•本文參照。国産オリジナルコンパイラである。 
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1988 年型 turbo 仕様 


その名は Z-BASIC 


^ 人 Kamon Masato 


XlturboZ の登場以来侍ちに待たれていた 
新型 turbo BASIC がこのたび ， XlturboZII 
の登場とともにようや〈姿を現しました。 
その名も Z - BASIC です。4096色アナログ 
グラフィック， FM 音源など XlturboZ で拡 
張されたハードをフルサポートしただけで 
はなく，バンクメモリを標準化することに 
よってアナロググラフィックを持たない X 
lturbo にとっても十分使いでのある BASIC 
になっています。 

その性能 

さてその NEW Z - BASIC ですが，今ま 
での turbo BASIC といったいどこが異なる 
のでしようか。 

アナロググラフィックに対応 

XlturboZ でようやく XI も4096色同時発 
色可能のアナロググラフィック対応になっ 
たにはなったのですが，肝心の BASIC が 
対応しておらず， Z’sSTAFF Z からしか使 
えないという有様でした。ここにきてよう 
やく BASIC でアナロググラフィックを使 
えるようになったというわけです。 

テキストのパレツトだってアナログさ 

アナログ対応になったのはなにもグラフ 
ィックだけではありません。テキストもテ 
キストパレット機能によって64色中の任意 
の8色による表示が可能になったのです。 
さらにこれを応用することによって ， PCG 
でも64色を使うこととか，単色 PCG を256 
X 3 個使用する，なんてことができるのです。 
グラフィックが面白い 

グラフィックはただ単に多色化しただけ 
ではありません。そのほかにも小技があっ 
たりするのです。この小技のおまじない.と 
もいえるのが OPTION SCREEN 5/6命令 
です0この命令で，グラフィックやパレッ 
卜のセーブ/ 口ー ド，2面幽時表 7 K など 
が可能になるのです。特に面白いのが2画 
面同時表示で，グラフィック （1 枚目/2 
枚目）/テキスト（含む PCG ) の3画面を 
優先順位つきで同時表示できるのです。こ 


れを使えばグラフイックとグラフイックの 
問にテキストをはさむこともできちやうと 
いうわけでなかなか而广1い機能であります 
ぞ。 

画像取り込み自由自在 

これまでは面倒くさかった画像 1 R り込み 
も簡 1 れそのものです。なんたって IMGGE 
T 命令ひとつですんじやうのですから。も 
ちろん8/64/512/4096色取り込みすべてに 
対応しモザイク，反転も自由自在です。そ 
の他ビデオ作りで重宝しそうなクロマキー 
合成やいろいろなモードができたスクロー 
ル命令など本家 AV パソコンならではのい 
たれりつくせりぶりです。 

これであなたも作曲家？ の MML 

なんといってもアナロググラフイック対 
応とならぶもうひとつの目玉がこの MML 
でしよう。いまいち不評な VIP からしか扱 
えなかった FM 音源を BASIC から PSG 
感觉で容易にいじることができるようにな 
ったのです。基本的には X 68000 の MML と 
まったく同じです力す， M - CLR 命令を加え 
ることによりメモリを効率的に使うことが 
可能になっています。 

バンクメモリで大容量 

Xlturbo で将来拡張されるべき機能とし 
て存在したバンクメモリですが，マルチプ 
ランで使われたのみでこれまではほとんど 
日のほをあびることがありませんでした。 

Xlturbo ユーザーの方は BASIC でプログ 
ラムを組んでいて，メモリに困ったことは 
ほとんどないはずです 。 turbo BASIC では 
プロダラム領域と変数 M 域を分けることが 
できますから，純粋なプロダラム領域が26 
K バイトもあれば足りないということはま 
ずないでしよう（あまり思鹿でかいものは 
CHAIN などをするべきです）。 

このバンクメモリは 32 K バイト X 16 バン 

ク合計 512 K バイトで， Z - BASIC ではバン 
ク0/1の 64 K バイトが標準となっており，デ 
ータトラックなどのシステム領域や変数領 
域などに用いられています。 


さあ，新しい turbo BASIC の底力を見てみ 
ましょう 0 XlturboZ はもちろん，従来の X 
lturbo でも増設 RAM と FM 音源のサボ 
一卜された高機能 BASIC として使用が可 
能です。1988年はこの BASIC から始まり 
ます。 


ボードを見ると， RAM を買ってきてジャ 
ンパを入れるだけで 512 K バイトまで拡張 
できそうですのでデータエリアは心配あり 
ません。アナロググラフィックと FM 音源 
を使うと，従来と同様のことをするプログ 
ラムでもデータなどがかなり大きくなり， 
G - RAM も占有されてしまいます。今回の 
BASIC と拡張 RAM は従来の turbo .BASIC 
と同様のプログラムをそのままグレードア 
ップできるように配蹴されたものと考えた 
ほうがよいでしよう。マルチプランの披張 
ボードと互換性がないなど若干の問題点も 
あります。 

このように BASIC だけで使用するぶん 
にはよいのですが，違うバンク h にプログ 
ラムを置いたりするとなると，途端に面倒 
になってきます。となると，今後はこのボ 
ードの能力をサポートした 0 S の登場が恃 
ち望まれます。 

コンパ チモー ド/マル チモー ド 

さて，それでは NEW Z - BASIC で被張 
された機能を紺1かく見ていってみましよう, 
グラフィック関係の命令はすべてアナログ 
対応になり，8/64/4096色の同時表示が可 
能となっています0もちろんパレットも40 
96色に対応していますから，640 x 400ドッ 
トモードでも，4096色中の任总の8色を選 
ぶことができます（マルチモード）〇もちろ 
ん従来の BASIC とコンパチなモードもあ 
ります。 

Z - BASIC ではアナログ対応のモードをマ 
ルチモード，従来とコンパチなデジタルモ 
ー ドをコンパチモードと呼んで区別してい 
ます。このモードを設定するのが OPTION 
SCREEN 命令です 。 turbo BASIC では OPT 
ION SCREEN 〇〜 4 のみでしたが， Z-BAS 
1 C では新たに OPTION SCREEN 5/6 が加 
わり，この命令を実行するとマルチモード 
が設定されるようになりました。 

注意しなければならないのはモードを設 
定するのとモードを切り換えるのは別だと 
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いうことです。実際の切り換え動作は WID 
TH / SCREEN 命令によって行われます。 
OPTION SCREEN 5 

表示行25行アナログモード 
表示行10/12/20行 
OPTION SCREEN 0と同じ1けバ隹 

(コンパチモード） 

OPTION SCREEN 6 

WIDTH 40，25，0，1 
64色2両面同時表示可能モード 
その他 

OPTION SCREEN 5と同じ ® jfN 
(表示ページ，優先順位は SCREEN/GRA 
PH 命令で切り換える） 

このようなシステムにより，以下の命令 
に手が加えられました。 

1) コンパチモードで8色，マルチモード 

で8/64/4096色表示の命令 

COLOR 
PA し ET 
GET @/ PUT @ 

PSET/PRESET 

LINE 

POLY 

CIRCLE / CIRCLE ® 

PAINT / PAINT @ 

PATTERN 

SYMBOL 

POINT 

これらの命令ではコンパチモードでは8色 
表示，マルチモードでは画面の解像度に応 
じ4096色中任意の8/64/4096色の表示が可 
能となっています。 

ただし PALET 命令で気をつけなければ 
ならないのは，コンパチモードでは不透明 
な黒（スーパーインポーズしても透けない 
黑}のカラーコードが8であり，設定でき 
るパ レッ トコードが〇または i であるのが， 
マルチ モードではカラーコードが一1，設 
定できるパレットコードが0のみになった 
ということです。すなわちコンパチモード 
と マルチ モードでは次のような差が出ます0 
コンパチモード 

PALET 0, 8,1 
PALET 1，8,1 

マルチモード 

PALET 0,一 1，1 
(PALET 1，一1は不可） 

これはもちろん マルチモー ドでは カラーコ 
一 V ' 8がほかの色のす! T 走に用いられるため 
なのですが，注 S ; が必要でしょう。また，マ 


ル チモ ー ドと コンノぐ チモ ー ドでの パレット 
の初期化の違いなどにも注意してください。 

2) コンパチ モードでしか動作しない命令 

SCREE 隱 / GRAPH ® 

CLS 1/2/3 
PALET ® 

PRW 

CANVAS 

LAYER 

KSEN 

これらの命令はマルチモードで実行すると 
エラーになります。 CLS 1/2/3が実行でき 
ないというのは， R / G / B の各プレーンごと 
の CLS ができないということです。アナ 
ログになると単純に RGB に分離できない 
からですね。 

3) その他 

アナロググラフィック 対応の ために 以下 
のような命令が拡張されています。 

HSV ( h , s , v ) 

h :色相〇〜95 
s :飽和度〇〜15 
v :明度 〇〜15 

h ， s , v を指定し，カラーコード（〇〜4095) 
を得る m ] 数です。 

RGB ( r ， g ， b ) 

r :赤の階調〇〜15 
g: 緑の階調〇〜15 
b :青の階調〇〜15 
r ， g ， b を指定し，カラーコード （0 〜 4095) 
を得る閲数です。 

4096色ともなると，色とカラーコードがす 
ぐさま結びつきませんから上の2関数を用 
いて4096色中の1色を指定するわけです。 

また，4096色のカラーコードを得る関数 
には次の2つがあります。 

HA し F ( n ) 

n :中問色コード 

& H 00 〜 & H 7 F の中問色コードを カラー 
コード （0 〜 4095 H こ変換します。 

CUP ( pc ) 

pc : パレットコード 

パレットコードを_面モードに従って力 
ラーコード （0 〜 4095) に 変換します。 

逆にカラーコードを現在の画面モードに 
従い， パレット コードに変換する命令に C 
DOWN があり，この命令によって4096色の 
カラーコードを8/64/4096色の パレットコ 
ードに変換できるというわけです。 

さて，ほかにもアナログ化にからむもの 
として TPALET があります。これはグラ 


A 應 

ww w^w ww 



フイックだけでなくテキストもアナログ表 
示しようということで，テキストに64色中 
の任意の8色を選んで使うことができるよ 
うになっています。このテキスト パレット 
は PCG に対しても布効ですから， PCG でも 
64色中8色表示が可能になるわけです（コ 
ンパチ/マルチ モードによらず使明可）〇 
また マルチ モードでのみ使える命令に， 
VSAVE 
V し OAD 
PSAVE 
P し OAD 

があります。これらは名前から想像がつく 
とおりそれぞれグラフイックをセーブ/口 
ード，パレットデータをセーブ/口ー ドする 
命令です。 VSAVE/VLOAD に関しては以 
前からその必要性が叫ばれており，やっと 
という感じなのですがセーブにかかる時問 
が長く， Z’sSTAFF の ファイルと データ形 
式が遠う，といまいち不満が残ります。一 
方，总外に便利そうなのが PSAVE/PLOA 
D です。今までは両面のセーブ/ 口ー ドの 
ことをち•えると愤極的にパレットを使うわ 
けにはいきませんでしたが，これさえあれ 
ばもう大丈夫です。4096色中仟意の8色表 
ボなどというときに重宝しそうですね。 

従米からあった SCROLL 命令ですが， 
靳たにスクロ ー ルの モー ドが加わりました。 

m : 0 %—>•消— ► (繰り返し） 

m .* 1消—^消— (繰り返し） 

m : 2現一►消—現— (繰り返し） 

m : 3消—现 一 >•消 
m : 4現一消 

m =0 は從米と コンパチなモー ドです。 モー 
ド指定を Vt 略してもこのモードになります。 
モード0とモード2の遠いはモード0は消 
えていく過程で， I •.方向（下方向）から消 
えていったものが F 方向 （ h 方向）から出 
てくることにあります。 

CUTCRT n 

n : 0 (または省略) 
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コンピュータ画面出力 
n :1 

コンピュータ画面出カカット 
CUTCRT はコンピュータの画面を出力す 
るかしないかを切り換える命令です。 
CUTCRT 1 

とするとコンピュータ画面の出力がカット 
され黒 一色 （スーハ。ーインポーズ時はテ レ 
ビ圃面のみの出力）になります。 

INPMODE n 

n : 0 (または省略) 

インターレーススーパーインポー ズ 
しない 
n :1 

イ ン ターレーススーパー イ ンポーズ 
する 

インター レース スーパーインポーズとは 
ハイレゾ幽 像もス ーパーインポー ズできる 
モードです。ですから， 

WIDTH 80, 25, 0,1 

にぉいて，通常のスーパーインポーズ状態 
(CRT 2/3) にするとキャラクタのフォント 
は8ドットで，漢字はつぶれて表示されま 
す。ここで， INPMODE 1とするとキャラ 
クタのフォントは16ドットになり，漢字も 
正しく表示されます。 

MM し 

侍望の，という形容詞がぴったりの MM 
L です。基本的にはすべて X 68000 と同じ 
ですが FM 皆源で演奏するためには次のよ 
うな手順が必要となります。 

1) M 一 INIT (0) 命令で FM 音源使用を宣 
言する。 

この命令により FM 音源を初期化してい 
ないと以降の M _ 命令はすべて Device of f 
line エラーになります。 

2) M_A しし OC ( trk , bytes ) 命令でトラッ 
クバッファを確保する。 

トラ ッ クバ ッ ファとは演奏用のデータを 
岳えてぉく場所です。 FM 音源は CTC の割 
り込みにより，定期的にトラックバッファ 
から演奏用データを取り出して演奏するの 
です。このトラックバッファは BASIC の 
システム領域内にあり，大きさは全体で約 
16 K バイトで，これを16個のトラックバッ 
ファに振り分けます。 

3) M_ASSIGN ( ch ， trk ) 命令で FM 音源 
のチャンネルにトラックを割り振る0 

トラックバッファは16個ありますが ， F 
M 音源のチャンネルは8個しかありません0 


そこでひとつのチヤンネルがどの トラック 
バッファ のデータを演奏するかを指定する 
のがこの命令です。これを利用すれば，複 
数のチャンネルで同じ楽譜を演奏させるこ 
とが容易にできます（複数のチャンネルに 
同一の トラックバッファ を割り当てる）〇な 
お，初期状態はチヤンネル1に トラックバ 
ッフア 1,チヤンネル2に トラックバッフ 
ァ 2……のようになっています。 

4) M_TEMP0 (テンポ）命令でテンポを 
設定。 

テンポの初期値は120です。またテンポ 
は楽譜データの中でも記述できますので， 
必ずしもこの命令を使う必要はありません。 

5) M_TRK (trk, 楽譜データ）命令で楽譜 
データをトラックバッファに書き込む。 

MML 書式の楽譜 データ （文字列） を トラ 
ックバッファにセットします。 楽譜 データ 
の書式は X 68000 とまったく同一です。 ま 
た『試験に出る XI 』の MML の データ 書式 
とは，1 オクターブ 上下の データ（く，〉〉 
が逆になっているという違いがあり，命令 
も多少増えてい ま すので楽譜 データをコン 
バートする際には注意が必要です。 

6) M—PLAY ( ch ， ch , ••… ) 命令で演奏 
開始。 

データをセットしてようやく演奏するこ 
とができます。注意しなければならないの 
は，演奏開始の指令はトラックバッファに 
対してではなく，チャンネルに対して行う 
ということです。トラックバッファはあく 
までデータをためてお〈バッファなのであ 
って，実際に演奏するのは FM 音源のチャ 
ンネルなのですからね。 

そしてもうひとつ重要なのは，このコマ 
ンドは演奏の開始を指令するコマンドであ 
るということです。すなわち，一旦この命 
令で演奏を開始してしまえば，あとは FM 
音源が CTC による割り込みを使って勝手に 
演奏を続けてくれるのです。それゆえ，演 
奏しながらほかの什事をするということも 
当然できます。 

ひと通りの演奏は上記の命令だけで足り 
ます力す，ほかにも次のような命令が批張さ 
れています。 

M—CONT ( ch ， ch ， …… ) 

指定されたチャンネルにおいて，一時 
停止された演#を再開します。 

M_FREE (trk) 

指定されたトラックの残りのバイト数 
を返します。 


M—STAT (ch) 

指定されたチャンネルの状態を調べま 
す。 

M—STOP (ch, ch, …… ) 

指定されたチャンネルの演奏を一時停 
止します。 

M_CLR (trk) 

指定されたトラックに入っている楽譜- 
データを消去します。これは X 68000 に 
はない命令です。いらなくなったデー 
夕をどんどん消去することによりメモ 
リの効率化を図ろうというもので，メ 
モリにあまり余裕のない XI においては 
( X 68000 に比べての話）かなり布効な命 
令です。 

M—VSET (vo, va) 

vo :音色番号 

ca :音色データ格納用整数型2次元配 
列名 

2次元配列変数を用いて音色データを 
セットします。 

M_VGET (vo, ca) 

FM 音源の音色データを2次元配列変 
数を用いて読み出します。 

大容量メモリ 

turbo 以来ハード的には実現されながらも 
ソフ トサポートされていなかった バンク メ 
モリがようやく BASIC でもサポートされる 
ようになりました。 

バンクメ •モリは〇〜15あり，バンク0/1 
が標準装備されます（しかしマルチプラン 
付属の RAM ボードが使えないというとん 
でもないことがあったりする）。 BASIC で 
はバンクメモリ0及びバンクメモリ1の5 
FFF ,, までをシステム領域に用いるので，変 
数領域として用いれるのはバンク1の6000 H 
〜 7 FFF „ しかなく，実際に変数領域として 
用いるには少し狭すぎるようです。バンク 
メモリを BASIC が収まるだけの烛小限し 
か装備していないのが原因なのですが，こ 
のままでは >変数領域を多く取るためにはも 
っとバンクメモリが必要になりそうです。 

しかしそのぶん BASIC には余裕が出て， 
NEWON n 命令（一部のコマンドを削除す 
ることによりメモリを増やす）が削られて 
います （ BASIC テキストの開始アドレスを 
衍定する NEWON ad 命令はある）。 

さて， BASIC でバンクメモリをなにに使 
えるかというと， カラーハードコピールー 

チンと変数領域です。 
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1) 変数領域 

turbo BASIC では G-RAM を変数領域に 
も用いれるようになっていましたが，これ 
も3バンクメモリにまで拡張されました。 
バンクメモリ上に変数を置く場合にも VDI 
M 命令を川います。この際，どのメモリを 
変数領域にするかを指定する命令が VDIM 
BASE です。 

VDIM BASE n 
n *. メモリ番号 
0 : G-RAM 1 

1〜15 :バンクメモリ1〜15 
VDIM/VDIM CLEAR などの命令は VDI 
M BASE によって指定されたメモリに対し 
て働きます 0 VDIM BASE のデフオルト値 
は 0 (G-RAM1) となっており， turbo BA 
SIC とコンパチです。 

また，バンクメモリに度接データを書き 
込んだり，バンクメモリから K 接データを 
読み込むこともできます。 

VPOKE n , a ， データ，…… 
n : メモリ番号 
一 1 :メインメモリ 

0 : G-RAM 1 

1 〜 15 : バンクメモリ 1 〜 15 

a :アドレス 

VPEEK ( n , a ) 

この2命令を使うことによって，パ，ンク 
メモリを齑接アクセスすることができます 
( n に1〜15を指定する）。さらにメインメモ 
リや G-RAM1 もアクセスできますから，か 
なり便利な命令です。 

さて， VDIM BASE 命令によってバンク 
メモリや G-RAM1 にも変数を茜〈ことが 
できるようになったわけです力す，逆に変数 
がどのメモリ上にあるのかを知ることもで 
きます。 

VARBASE (変数名） 

変数がどのメモリ上に格納されているの 
かをメモリ番号（一1〜 15) で返します。 
該当する変数が存在しないときは，そのと 
き存在しているメモリ番号の最大+1を，同 
じ変数が複数のメモリにある場合はもっと 
も小さいメモリ番矽を，それぞれ返します。 

さらにそのメモリ上で変数がどんなアド 
レスに設かれているのかを知るためには， 
STRPTR ( n )， VARPTR (変数名）を JIJ います 
が， これらの命令もバンクメモリ， G-RAM 
1に対応するようになりました。 

ここで注意したいのが， SWAP 命令では 
VARBASE が M じなメモリ上の変数の交換 


しかできないということです。すなわちメ 
インメモリ上に変数 A が，バンクメモリ1 
上に変数 B があったとすると， 

SWAP A, B 

とはできません。この場合 
C=A : A=B : B=C 
もしくは 

PUSH A : PUSH B 
POP A : POP B 
などとすることになります。 

また，当然のことですが BASIC のフリー 
エリアは変数領域に左右されるので， FRE 
( 2 ) は VDIM BASE です旨定されたメモリの 
フリ ー エリアを返すようになりました。 

2 ) カラーハードコピールーチン 

パ、 ンクメモリには カラーハードコピール 
ーチンを置くこともできます。ふつうはバ 
ンクメモリはアクセス スピードが メインメ 
モリより遅いのであまりプログラムは蹬か 
ず， データバッファや， 変数領域などに用 
いることが多いのです が，ハードコピール 
ーチンなど，普段はあまり使われずバンク 
をまたもとにもどすなどのバンク切り換え 
をあまり必要としないプログラムは罱いて 
も構わないのです。それゆえ， Z-BASIC で 
は標準で，バンクメモリ 1 の 600 Oh 以降に 
CZ-8PC1/2 用のカラーハードコピールーチ 
ンが 組み込まれます。 

この ルーチンはマルチモー ドのときに使 
用されます。すなわち HCOPY 命令は マル 
チモー ド時 （ 2 画而同時表示 モー ド時を除 
く）には， 

HCOPY n 

n :省略テキスト画而ハードコピー 
n : 0 グラフィツク_而縮小サイズ 

ハー ドコピー 

n : 1 グラフィック_而標準サイズ 
のようになります。 

また，このハードコピールーチンは自作 
のものも使うことができます。 

HCOPY ON base, ad, I 

base : メモリ番号 

( 一 1 ， 1 〜 15) 

ad : ハードコピールーチンのスタート 
アドレス 

1 :ハードコピールーチンの長さ 

(IFOOh 以下であること） 

この命令は マルチモード 時に使用される 
ハード コ ピールー チンをどこに置くかを指 
定 する命令です。ただし， ハー ドコピ ール 
ーチンを置く場所はあらかじめ VDIM CL 


EAR/CLEAR 命令などで確保しておく必要 
が あります〇また ハードコピールーチンが 
置かれているア ドレスに 対し VDIM CLEA 
R/CLEAR 命令が実行されるとこの命令は 
無効になります。 

Z-BASIC その真価 | 

さて，こうして質•量ともにパワーアップ 
した NEW Z-BASIC を紹介してきたわけ 
ですが，それではこの Z-BASIC はその値:段 
(18, 800円， 64 K バイトメモリボード付属) 

を考えると果たしてお買い得なのでしよう 
か。 

turboZ のューザーは問違 I 、なく 買うべき 
でしよう。なにせ，自分の愛機の性能を100 
%発揮してくれる BASIC なのですから。そ 
れに 64 色に対応した完全マウス対応の PCG 
エディタなどのユーティリティプログラム 
も完備していますし，マニュアルも親切で 
す。 

それでは turbo (Z でない）の ューザーは 
どうでしようか。 turbo ではハード的制約に 
より以ドの命令を使 fi ] できません。 
VSAVE/VLOAD 
PSAVE/PLOAD 
TPALET 
HCOPY ON 
CUTCRT 
INPMODE 
IMGGET 
IMGPOS 
IMGBIT 

IMGMOS/IMGMOS @ 

CHROM 

なんだこんなに使えないんじゃ意味ない 
じやないかと思われるかもしれません。確 
かにアナロググラフィック関係の命令は一 
切使用できません。しかしそれを差し引い 
ても大容撤メモリと MML は残るのです。 

さらに今後は增設メモリに対応した高機能 
な システム などが現れてくるという可能性 
もありますから，従米の turbo ューザーが買 
っても決して損をしないものであるといえ 
るでしよう。 

最後に，今まで， Z-BASIC を当然のごと 
くに紹介してきまし i こが，こ れは実は偉大 
なことなのです。いい古された言葉ですが， 
「やっぱり クリーンコンピュータ」 という わ 
けです0さあ， XI ワールド はこの Z-BASI 
C によって今後どんな展開を見せていくの 
でしようか，非常に楽しみです。 
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半透明機能奪回作戦 

Nakamori Akira 

中森章 


先月のグラフィック機能の基礎事項紹介に続いて，今回はその応用編を 
お届けします。して，その内容はというと，禁断の半透明機能と特殊プ 
ライオリテイ機能を中心に， Z’sSTAFF PRQ -68 K で作成したグラ 
フィックを用いて簡単なアニメ処理に挑戦してみることにしてみましよう。 


X-BASIC でダラフィツク機能を扱う上 
での基礎事項は先月説明しました。しかし, 
X 68000 が持つているグラフイツク機能のう 
ち， X-BASIC では扱うことのできない機 
能があることをご存じでしようか。半透明 
機能や特殊プライオリティ機能もそういつ 
た機能に分類することができます。そこで， 
今月のテーマは半透明機能と特殊プライオ 
リティ機能を月义り上げようと思います。 X — 
BASIC で扱うことのできない機能をどうや 
つて使用するかというと，それは，必要最 
小限な関数をマシン語の外部関数にするこ 

図1半透明機能のイメージ 


画面 I 画面2 


A 


同時表示 半透明 

プライオリティの低い画面は見えない 画面2が透けて 

プライオリティは画面丨 >画面2 見える 


X - BASIC では変数を使用する前には変数の型宣言 
をしなければなりません。宣言できるデータ型は 
int (4 バイト整数）， char ( I バイト整数 ）， str (文 
字列)， float (実数) の4種類です。 

X - BASIC のプログラムの実行はその大部分が関 
数の呼び出しによって行われます。それ以外は制 
御構造です。型宣言と制御構造と関数，これが X - 
BASIC の3大要素です。 

X - BASIC には画面上のキャラクターを スムース 
に移動させるための機能としてスプライトが備わ 
つています。スプライト画面には0から127まで 
の128平面があり，それぞれの面上に置いたパタ 
ーンを自由に移動させることができます。この移 
動に際し，パターンの左右反転，上下反転，色 (6 
5536色から16色）の変更なども可能です。また， 

スブライト画面のほかにバックグラウンドと呼ば 
れる画面が2面あり，ここでは最大 64 X 64 個並べ 
たスプライトパターンを背景として利用可能です。 


とで解決します。最初の予定では，この X - 
BASIC 入門でマシン語をやるつもりなどな 
かったのですが，半透明!：いう魅力的な機 
能が私の固い誓いを破ってしまったのです。 
といっても，マシン語の外部関数は隠し味 
程度にしか使いませんから，マシン語を知 
らない人も安心してくださいね。 


半透明機能 


半透明機能とは，2つの画面上の色の明 
るさを半分ずつにして足し合わせる機能で 

図2半透明の領域指定 


画面 I 

(グラフィック） 画面2 



半透明 


パレットが奇数の領域のみ半透明になる 
プライオリティは画面丨 >画面2 


バックグラウンド面上では，スプライト面とは異 
なり，面上のすべてのパターンを同時に移動させ 
ます。 

また， X - BASIC では65536色同時発色を特徴と 
する X 68000 のグラフィック機能を扱うことができ 
ます。色数が65536色であるのはグラフィック画 
面（実画面）が 512 X 512 ドットの場合ですが，こ 
のときは色数を256色，16色と減らすことによって， 
実画面を2画面，4画面と増やすことができます。 
さらに，色数を16色，実画面数を丨画面に限れば 
1024 X 1024 ドットという大画面を扱うこともでき 
ます。 X 68000 の実画面はその一部が表示画面と呼 
ばれる画面上に表示されます。表示画面とはパソ 
コンのディスプレイに映る画面のことです。表示 
画面は実画面よりも狭くなっていますから，表示 
画面で実画面のすべてを見ることはできません。 
しかし， home という関数を使えば表示画面が表示 
する実画面上の領域を変えることができます。 


す。このときの2つの画面とは，グラフィ 
ック画面の2つのページ，グラフィック画 
面のひとつのページとテキスト画面，グラ 
フィック画面のひとつのページとスプライ 
卜画面という組み合わせが考えられます。 
いずれにしても，片方の画面はグラフィッ 
ク画面のひとつのページになります。そし 
て，2つの画面間で半透明が行われると，プ 
ライオリティ（表示の優先順位)の高い画面 
が半透明になり，プライオリティの低い画 
面の内容が見えるようになるのです（図1)。 

しかし，半透明はいつも画面全体に渡っ 
て行われるのではありません。半透明にな 
る領域を指定しなければなりません。それ 
は，グラフィック画面のプライオリティが 
いちばん高いページ上で指定します。つま 
り，グラフィック画面のプライオリティが 
いちばん高いページのパレットコードが奇 
数（つまり値の下1ビットが1 ) である領 
域が半透明の対象領域になるのです（図2 )。 
このことからわかるように，半透明機能を 
使用するとき，パレットコードの下1ビッ 
卜は半透明を行う領域の指定に使われるた 
め，パレットコードの 2 N と （2 N + 1)( N は 
整数）は同じ色（カラーコード）を指定し 
ておかねばなりません（違う色を指定する 
と画面の色がメチャクチャになる)。従って， 
それぞれの画面モードにおいて使用できる 
色数は半分になってしまいます。 

ここで，半透明機能を使うための条件を 
まとめておきましよう。 

1) グラフィック画面のいちばんプライオ 
リティの高いページのパレットコードが 
奇数である部分が，半透明の対象領域に 
なる。 

2) 偶数パレッ トコー ド (2 N ) と奇数パレ 
ット コード （2 N + 1) は同じカラー コード 
を持つ。 

3) グラフィック画面と別の画面（テキス 
卜画面またはスプライト画面）の半透明 
では，グラフィック画面のプライオリテ 
ィは別の画面よりも高くなければならな 
い。グラフィック画面の2つのページ間 
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の半透明ではいちばんプライオリティの 
高いページ(領域指定）と次にプライオリ 
ティの高いページの間で半透明が行われる。 
4) グラフィック画面のページ間の半透明 
と，グラフィック画面と別の画面（テキ 
スト画面またはスプライト画面）との半 
透明は同時に行うことができる。 

と，ここまで書いたところで疑問を持った 
人がいるかもしれませんね。今月まで，こ 
の X-BASIC の連載を読んできてくれた人 
なら疑問を持って当たり前なのです。とい 
うのは，グラフィック画面，テキスト画面， 
スプライト画面のプライオリティは， 

グラフィック画面< テキスト画面くスプ 
ライト画面 

という順序に固定されています。 

また，グラフィック画面の各ページのプ 
ライオリティにおいては，ページ0が最も 
高く，ページ3が最も低いので，半透明領 
域の指定でわざわざ「いちばんプライオリ 
ティの高い」ページというのは，まわりくど 
いような気がします。確かに X-BASIC で 
はプライオリティが以上のように固定され 
ていました。このため，半透明機能はほと 
んど実現できない機能だったのです。しか 
し， X 68000 の機能としてはプライオリティ 
を自由に変えることができるようになって 
いますから心配しないでください。 


特殊プライオリテイ機能 


特殊プライオリティ機能は，ダラフィッ 
ク画面の特定領域のブライオリティを，別 
のテキスト画面やスプライト画面よりも高 
<する機能です。特殊ブライオリティの領 
域の指定方法は半透明の場合と同じで，グ 
ラフィック画面でブライオリティが最大の 
ページの パレット コードを奇数にすること 
で指定します。特殊プライオリティモード 
に移ると，グラフィック画面のプライオリ 
ティが別の画面（テキスト画面またはスプ 
ラィト画面）よりも低い場合でも，特殊プ 
ライオリティを指定された領域は最大のプ 
ライオリティになります。すなわち， 

テキスト画面>ページ0>ページ1 
スプライト画面>ページ0>ページ1 
というプライオリティの場合でも， 

ページ0>テキスト画面>ページ1 
ページ0>スプライト_面>ページ1 
というように，テキスト画面やスプライト 
画面のプライオリティカ ? ，グラフィック画 
面の2つのページのプライオリティの中間 
であるように見せかけることができるので 
す（図3)〇 


もラひとつの半透明機能 


これまで説明してきた半透明機能はグラ 
フィック画面の最大プライオリティを持つ 
ページで領域を指定するものでした。しか 
し， X 68000 では別の方法で指定する半透明 
機能があります。それは，テキスト画面の 
パ レットコー ドの0の内容（カラー コード） 

とダラフィック画面の半透明です。この半 
透明を行うと画面モード（ドット数，色数） 
に関係なく，画面全体がテキスト画面のパ 
レットコード〇 に設定されている カラーコ 
ード（半透明になっている）で覆われます。 
つまり，グラフィック画面全体に「もや」 
がかかったように見えます。 

このとき，テキスト画面のパレットコー 
ド0のカラーコードを適当に変えることに 
よって，この「もや」の色を変えることが 
できます （ X-BASIC マニュアル などではパ 
レットコード0のカラ_コードは0にする 
ように推奨されていますが)。しかし，この 
半透明機能を使用するとテキスト_面やス 
プライト_面は見えなくなってしまいます 
(なぜなんでしよう）。結局はグラフィック 
画面に「もや」を付けるだけの機能ですが 
果たしてこの機能がなにをするためにある 
のか（本米の目的）はよ〈わかりません。 


半透明機能実現のために 


半透明機能や特殊ブライオリティ機能を 
利用するためには，画面間のプライオリテ 
ィを変えなければなりません。また，半透 
明や特殊プライオリティ自体 x- BASIC か 
らは指定できない機能です c そこで，いよ 
いよマシン語の登場です。といっても，な 
にからなにまでマシン語の外部関数にする 
のでは面白くありません（これは X BASIC 
の連載ですからね)。そこで，最小限の機能 
のみをマシン語の外部関数にして，あとは 
X BASIC でやりくりしましよう。 

この最小限の機能というのは，普通の B 
ASIC ( HuBASIC など）でいうところの PE 
EK 関数， POKE 命令です 。X BASIC には 
直接 0 S の内部や メモリ の内容を参照する命 
令（関数）がありません。これは， ユーザー 
プログラム から 0 S や X - BASIC のシス テム 
を保護するという観点に立てばもっともな 
ことです。しかし，そこは少し目をつぶっ 
てもらうことにしましよう。 X 68000 ではビ 
デオ コントローラ を始めとす る 種々の コン 
トロー ラの内部 レジスタ が メモリ」 •.に マツ 
ビングされ ている ため， X 68000 にできて X - 


図3特殊プライオリテイのイメージ 


クラフィック グラフィック 

ページ〇 ページ I スプライト 



プライオリティ 

スプライト >グラフィック（ページ0,ページ I ) 
ページ0 >ページ I 


BASIC にできないことを行うためにはメモ 
リを自由に読み書きできる機能が必要なの 
です。 

というわけで，リスト1がメモリを読み 
書きするための外部関数を定義するアセン 
ブラ用のプログラムです。リスト1では re 
gr 関数（メモリリード ， REGister Read の 
つもり）と regw (メモリライト ， REGister 
Write のつもり）関数を定義してあります。 
外部関数の詳しい作り方は Oh!MZ 1987年8 
月号の「 X - BASIC の外部関数を作る」 （ 34ぺ 
ージ）という莱野氏の記事を見てください。 
もっとも，同じ記事のなかでメモリの PEE 
K や POKE という関数も紹介されています 
ので，それを利用してもよいでしよう。 

リスト1の関数はワード （16 ビット）単 
位のメモリ参照しかサポートしていません 
(さし当たってそれ以外は必要ありません 
から)〇 t にかくリスト1のプログラムを打 
ち込んでから， regr 関数や regw 関数を X B 
ASIC に組み込むまでの手順を示しておきま 
す。ここでは，リスト1のプログラムが reg.s 
という ファイル になっていると仮定します0 

1) アセンブル 

as reg . s 

reg . s をアセンブルして reg . 〇を作る 0 

2) リンク 
lk reg . 〇 

reg . 〇をリンカに通して reg . x を作る。 

3) リネーム 

ren reg . x reg . fnc 

reg . x を reg . fnc という名前に変える〇これ 
で外部関数のファイルができたので ， BAS 
1 C . X と同じデイレクトリに コピーして おく。 

4) BASIC . CNF の書き換え 
BASIC . CNF といラフアイルに 

FUNC=REG 

という1行を追加する 0 REG とは reg . fnc 
のこと0〜 . FNC というファイルが別の名 
前のときは，「=」の右辺をそれにする。 

以上のような手順を踏めば，次に X BA 
SIC を立ち上げたときから regr 関数や regw 
関数が使えるようになります。そうそう， 
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この regr 関数や regw 関数の使い方を説明し 
なければなりません。それは，以下のよう 
なフォーマットで使用します。 
regr ( addr ) 

引数： addr . int 型 

メモリのアドレスを指定する 
戻り値： int 型 

addr で指定されたメモリの内容 
16ビットの値が返る 
regw ( addr , value ) 

引数： addr . int 型 

メモリのアドレスを指定する 

value . int 型 

メモリに書く値を指定する 
下位16ビットのみが有効 
戻り値：なし 

ここで，オマケをもうひとつ付けてぉきま 
しよう。 X - BASIC のプログラムは， C コ 
ンパイラでコンパイルしてマシン語に変換 
することができます力 5 '，このとき X-BASI 
C の外部関数はライブラリに存在しません 
から（当たり前），リンク時に エラーに なつ 
てしまいます。これから作ろうとしている 
プログラムをコンパイルしたとき， エラー 
になるのは困るので， C コンパイラの BA 
SIC 用ライブラリ （ BASLIB . A ) に regr 関数 
と regw 関数を追加してぉきましょう。 

まず，リスト1のプログラムではライブ 
ラリ関数はできません。なにも聞かずにリ 
スト1を少し書き換えてリスト2のように 
して〈ださい（書き換えの方法は別の機会 
にやりたいと思います)。これが ' regc . s とい 
うファイルであると仮定します0このとき， 
以下の手順で BASLIB . A に新たな外部関数 
を追加することができます。 

1) アセンブル 
as regc . s 

regc . s をアセンブルして regc . 〇を作る 0 

2) ライブラリに追加 

ar BAbLIB . A regc . 〇 
ァーカイバを用いてライブラリに regc . o(r 
egr 関数と regw 関数）を追加する。 

これで C コンパイラへの対策も万全です。 


半透明機能を実現する関数 


マ シン 語のリストにも飽•きてきたので， 
そろそろ半透明機能や特殊ブライオリテイ 
機能を実現するための X - BASIC の関数を 
紹介します。それがリスト3です。リスト 
3のプログラムには行番号が付いていませ 
ん （ save @ 命令でセーブしたもの)。それは， 
このプログラム-を別の X - BASIC のプログ 
ラムに一部追加して使うためです。そのた 


めの命令は load@T す。つまり， load @ 命 
令を用いて， 

load @“ ファイル名”，行番号 
とすることで，指定した行番号の位置から 
プログラムを 追加して使うことができます。 
このとき指定する行番号は追加される前の 
プログラムに 使われていない大きな数値に 
すればよいでしよう。 

さて，リスト3の解説ですが，リスト3 
でやっていることは，メモリの特定アドレ 
スの内容を読み込みそれを一部変更して同 
じァドレスに書き戻すことです 0 あまり変 
なことはしていませんからやっていること 
はわかると思います（シフト演算や and , or 
といったビツト操作が目に付きますね)。こ 
のとき，メモリの何番地にどういうレジス 
夕が割り当てられていて，それぞれのレジ 
スタのビツトの意味はなにかという説明は 
省略します。詳しく知りたい方は参考文献 
1)， 2) を読んでみてください。ここではリ 
スト3に定義されている関数の使い方を解 
説するに留めましよう。これらの関数の引 
数の型はすべて int 型で，戻り値（ある場合） 
は int 型です（プログラムを見ればわかりま 
すが，念のため）。 

1 ) m_pnor(sp, txt, gr) 

sp …スプライト画面のプライオリテイ 
txt •.テキスト画面のブライオリテイ 
gr …グラフイツク画面のプライオリテイ 
スプライト画而，テキスト画面，グラフ 
イツク画面のプライオリテイを変更します。 
プライオリテイは0から2までの数値で指 
定します。このとき0が最大，2が最小の 
プライオリテイを意味します。 X-BASIC の 
初期状態では 
m _ prior (0, l ,2) 

を実行した場合と同じプライオリテイにな 
っています。 

2) p_prior(p4, p3,p2,pl) 

[ 4 而モード] 

pi •••ページ0のプライオリテイ 
p 2 …ページ1のプライオリテイ 
p 3 •••ページ2のプライオリテイ 
p 4 •••ページ3のプライオリテイ 
[2 面モード] 

pi , p 2 •••ページ0のプライオリテイ 
p 3, p 4 …ページ1のプライオリテイ 
グラフイツク画面の各ページ問のプライ 
オリテイを変更します。プライオリテイは 
0から3までの数値で指定します。このと 
き0が最大，3が最小のプライオリテイを 
意味します。 X - BASIC の初期状態では 
p _ prior (3,2, l ,0) 

を実行したのと同じプライオリテイになつ 


ています。プライオリティを変える場合， 

2而モードでは0と1， 2と3をセットで 

指定しなければなりまぜん。すなわち， 

p _ prior (3,2, l ，0) 

p _ prior(l ,0,3,2) 

の2つが意味のある指定です。1面モード 
や2面モードにおいて意味のない指定をし 
た場合は，画面のパレットコードが変わっ 
てしまいます（色がメチャクチャになる） 
から注意しましよう。 

3) txt_disp(n) 

n ……テキスト画面の表示の指定 
0 表示しない 
1表示する 

テキスト画面を表示するか否かを指定し 
ます。半透明機能には関係ありませんが， 

スプライト画面の表示の指定 （ sp _ disp 関 
数）やグラフィック画面の表示の指定 （vp 
age 関数）との対照性を考えて作りました。 

4) gt_half(n) 

n . グラフィック画面とテキスト画面 

(スプライト画面）の半透明指定 
0 半透明にしない 
1半透明にする 

グラフィック画面のいちばんプライオリ 
ティの高いページのパレットコードが奇数 
である領域を半透明にして，グラフィック 
画面よりもプライオリティの低いテキスト 
画面やスプライト画面が透けて見えるよう 
にします。 

5) gg_half(n) 

n ……グラフィック画面内での2つのぺ 
ージ間の半透明指定 
0 半透明にしない 
1半透明にする 

グラフィック画面のいちばんプライオリ 
ティの高いページのパレットコードが奇数 
である領域を半透明にして，その次にブラ 
イオリティの高いページが透けて見えるよ 
うにします。 

6) gt_spec(n) 

n ……グラフィック画面とテキスト圃而 
(スプライト画面）の特殊プライオ 
リティ指定 

0 特殊プライオリティにしない 
1特殊プライオリティにする 

グラフィック画面のいちばんプライオリ 
ティの高いページのパレットコードが奇数 
である領域のプライオリティをほかの画面 
(テキスト画面やスプライト圃面）よりも高 
くします。 

7) gg_spec(n) 

n . グラフィック画面とテキスト画面 

(スプライト画面）の特殊プライオ 
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リティ指定 

0 特殊 プライオ リティにしない 
1特殊 プライオリ ティにする 
g し spec とまったく同様の機能を持った 
関数です。グラフィック画面のページ間で 
特殊 プラィオリ ティを行う関数を作るつも 
りだったのですが，考えてもみればもとも 
と プライオリ ティがいちばん高いページで 
特殊 プラィオリ ティの領域指定を行うので， 
そういう機能は実現できても意味がなかっ 
たのです。 

8) pg_half(n) 

n . テキスト画面のパレットコード0 

の内容とグラフィック画面の無条 
件半透明指定 
0 半透明にしない 
1半透明にする 

グラフィック画面全体をテキスト画面の 
パレットコード〇の内容（カラーコード） 

を示す色で「もや」をかけます。このとき， 
スプライト画面やテキスト画面は見えなく 
なってしまいます。 

9) txt_ccode(pal) 

pal . パレ ッ トコード 

テキスト画面‘のパレットコード （0 から 
15) に割り当てられているカラーコードを 
戻り値とします。 

10) sp_ccode(pal, blk) 

pal . パ レツトコード 

blk . パレットブロック 

スフ。ライト画而の各パレットブロック （0 
から 15) に属する，それぞれのパレットコ 
ード （0 から 15) に割り当てられている力 
ラーコードを戻り値とします。パレットブ 
ロック〇のパレットはテキスト画面のパレ 
ットと共通になっています。 

11) g_ccodeO(pal) 

pal . パレットコード 

グラフィック画面が16色モード，256色モ 
ードのとき，グラフィック画面のパレット 
コードに割り当てられているカラーコード 
を戻り it とします。 

12) g_ccode1 (pal) 

pal . パレッ トコー ド 

グラフィック画面が65536色モードのと 
き，グラフィック画面のパレットコードに 
割り当てられているカラーコードを戻り値 
とします。 

9) から 12) の関数は今回のテーマとはま 
ったく関係ありません0各画面のパレット 
のカラーコードの初期値を知りたい人が多 
いと思うので，マシン語を扱うせっかくの 
この機会に，そのための関数を作ってみま 
した。 


画面 データの 変換 


半透明機能や特殊プライオリティ機能を 
使う場合だけでなく，グラフィック機能を 
使ってなにかをやろうとするとき，まず， 
画面に表示する絵を用意しなければなりま 
せん。そのためには， X-BASIC の間数を 
使い，実画面上に線や点や阐角や円などを 
組み合わせた図形を描き，それをファイル 
にセーブしたものを用いるのが普通です。 
しかし， X68000 には Z’sSTAFF PRO-68K 
という強力なお絵描きツールがありますか 
ら，それによって作られた画面データを利 
用することもできます。 

今回は半透明機能や特殊プライオリティ 
機能の説明をするわけです力 ? ，これから例 
として示すプログラムのなかで使う画面デ 
ータはすべて（といっても2画面だけです 
力” Z’sSTAFF PRO-68K で作成したもの 
です。この作成した画面データを X-BASI 
C でファイルする方法は， 

今月号の特集 (42 ページ） 

に詳しく紹介してあるの 
で，そちらをまずは読ん 
でみてください。 

ところで，半透明機能 
や特殊プライオリテイ機 
能を用いる場合，グラフ 
ィックが1画面しかない 
のは寂しいので，せめて 
2 画面 (256 色）のモード 
で使用したいものですね。 

そうすると， Z’sSTAFF 
PRO-68K の画面データ 
を用いることができませ 
ん。そこで， 65536 色モー 
ドの画面データを 256 色 
モードの画面データに変 
換することが必要になり 
ます。もちろん，もとの 
65536 色モードの画面デ 
—夕で 256 種類(半透明機 
能や特殊プライオリティ 
機能を使う場合は 128 種 
類）より多くの色が使わ 
れている場合は完全な変 
換は不可能です（これま 
た今月号の特集 42 ページ 
を応用すれば可能となり 
ます）。し力 1 し， 256 種類 
(あるいは 128 種類）以下 
の色数であればパレット 
を適当に付け換えること 


で完全な変換ができるのです。その方法に 
ついて示しておきましよう。 

以下では，画面データは 512 X 512 ドット 
のもののみを考えます （1024 X 1024 ドット 
では1画面しか持てないのでつまらない）。 
まず，65536色モードの画面データのフォー 
マットを図4に，256色モードの画面データ 
のフォーマットを図5に，16色モードの画 
面データのフォーマットを図6に示します。 
図4，図5，図6を見てわかるように，画 
面データをファイルに落とすと，画面の各 
座標の値（パレットコード）が 

(0,0) ， (1 ， 0) ， (2,0), ……(511 ， 0 )， 

(0，1)， (1,1), (2，1)，……(511，1)， 

(0,2) ，（ 1 ， 2) ，（ 2,2) ， ……(511,2 )， 

という順序（つまり，ディスプレイの左か 
ら右，上から下の順序）で並びます。この 
とき，パレットコードのビット数は，65536 
色モードで16ビット，256色モードで8ビッ 
卜，16色モードで4ビットです。 


図4 65536色モードの画面データとファイル内容の対応 
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図5 256色モードの画面データとファイル内容の対応 
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図 B 16色モードの画面データとフアイル内容の対応 
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図 7 65536色から256色へのデータ変換 


16ビット16ビット16ビット16ビット16ビット 
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図日256色から16色へのデータ変換 


8ビット 8ビット 8ビット 8ビット 8ビット 



8ビット 8ビット 8ビット 8ビット 8ビット 
4ビット x 2 


さて，65536色モードの画而データを256 
色の画面データに変換するためには，圃面 
データを2バイト （16 ビット）ずつ取り出 
し，なんらかの方法で1バイト （8 ビット> 
に変換してやればよいでしよう（図7)。ま 
た，256色モードの画面データを16色モード 
の画面データに変換するためには，2デー 
夕を単位として，画面データを2バイト （8 
ビット X 2) ずつ取り出し，1バイト （4 
ビット X 2) に変換してやればよいでしよ 
う（図8>。ここでは，65536色モードの画而 
データを25(;色 モー ドの画面データに変換 
するプログラムの一例を示します。それが 
グスト4のプログラムです。プログラムの 
内容を簡単に説明します。 

1) 処理をしやすくするために，65536色モ 
ードの画面データ （524288 バイト）を ， char 



図9 ページ0(女の子) 



図 II ページ0とページ I の同時表示 
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型の配列（ひとつは65536バイト）に8分割 
して読み込みます。 

2) 画面データの内容を確かめるために， 

8分割して読み込んだ画面データを画面上 
(65536 色モード）で再生します （ put 関数を 
使用)。 

3) 各 char 型配列のデータを2バイトずつ 
check 関数に渡し，1バイトのデータに変 
換します。つまり，添字が 2 N と 2 N + 1 (N 
=0,1,2,…… ） のデータから1バイトのデー 
夕を作り，添字が N の場所に書き戻します 
(図7と同じ）。このため，変換後の各配列 
は半分のデータのみが意味を持つようにな 
ります。 

4) check 関数は与えられた16ビットの力 
ラーコードに適 S な数値 （8 ビット）を割り 
当て，それをそのカラーコードに対するパ 
レットコードとして戻り値とします。この 
とき，.戻り値は偶数で与えますが，戻り値 

+1の パレットコー ドにも同じカラー コー 
ドを割り当てています。これは，もちろん 
変換後の画面データを半透明機能のデモに 
使うためです（半透明機能を使うとき，偶 
数 パレット と奇数 パレット は同じカラー コ 
ードにする必要がある）。 

さらに，戻り値とするパレットコードに 
定数値を加えていますが，これは別の2つ 
の画面データを変換したときに，2 つの 画 
面データ間のパレットコードを同じにする 
ためのオフセットです。また，この check 
関数を変更して，戻り値の特定の値を奇数 
にすれば，同時に半透明になる領域を指定 
することもできます。ところで， check 関 
数に引数として与えられる数値はカラーコ 






図丨2ページ0とページ丨を交互に表示 


—ドであるといいましたが，厳密には65536 
色モード時の パレット コードです。 

5) 画面を256色モードにして，変換後の 
画面データを表示します。このとき、256色 

モー ドの画面 データのパレットコードは ch 
eck 関数によって適当に与えているので， 
画面の色はメチャクチャになっています。 

6) 256色モードに変換された画面データを 
ファイルに保存します。8回に分けてファ 
イルに書き出します0ファイルのバイト数 
は変換前のファイルの半分になります0 

7) check 関数によって決定されるパレッ 
トコードとカラーコードの関係は，あとで 
BASIC のプログラムに追加して使えるよう 
にファイルに保存しておきます。 


半透明機能のデモプログラム 


それでは，半透明機能と特殊プライオリ 
テイ機能のおさらいとしてデモプログラム 
を作ってみましょう。 

ここでは， 512 X 512 ドット-256色モード 
の画面を2つ使って半透明や特殊プライオ 
リテイを行います。これらの画面データは 
Z’sSTAFF PRO -68 K によって描いた絵を 
リスト4に示すようなプロダラムで変換し 
たものです（パレットの設定を覚えておく 
ことを忘れずに）。図9 (写真）が第0ペー 
ジとして用いる人物の絵，図10 (写真）が 
第1ページとして用いる背景の絵です。 

説明するまでもなく，図9は女の子の絵 
(ちょっとデッサンが狂ってしまったよお）， 
図10は青空と雲の絵です。女の子の絵は透 
明な背景（パレットコード 0) 以外はすべ 
て奇数のパレットコードです。また，背景 
の絵は青空の部分が奇数のパレットコード， 
雲の部分が偶数のパレットコードです。え 
っ，女の子と雲になんの関係があるかです 
って。本当はもっとロマンチックな背景を 
描くつもりでしたが，女の子を描いたあと， 
力尽きてしまったのですよ。この程度の雲 
の絵なら目をつぶっていても描けそうです。 

さて，デモプログラムはリスト5のよう 
になります 0 リスト5のなかで gal 256. hlf 
が女の子の絵のファイル， sky 256. hlf が背 
景の絵のファイルになっています。そして， 
このデモプログラムは，リスト3で定義し 
た種々の関数のお世話になりながら次の8 
つのテーマを 無限 ルーフ。 で繰り返します0 

1) 第0ページ，第1ページの同時表示 
画面が2画面あれば同時に表示してみよ 

うと思うのは自然な発想でしょう（図11)。 

2) 第0ページ，第1ページを交互に表示 

2つの画面のプライオリティを交互に変 
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図16ページ I とテキストの半透明 


図17ページ0,ページ I ,テキストの同時半透明 


図18特殊プライオリティ 


えるだけでも，ほうら半透明のでき上がり。 
気分はパラパラ マン ガ，もしくは， アニメ 
ーシヨン（図12)。 

3) テキストのパレツトコード0の内容と 
の無条件半透明 

7色のスポットライトを浴びちやって。 
でも，使い道のよくわからない無条件半透 
明でした（図13)。 

4) 第0ページを手前にした半透明 

空にかすかに映る女の子。「スターシヤ」 
なんて呼んでみたりしてね（図14)。 

5) 第1ページを手前にした半透明 

こういう使い方が半透明機能の一般的な 
使い方なんだろうなあ（図15)。 

6) 第1ぺニジとテキストの半透明 

これもグラフイック画面とテキスト画面 
の半透明では一般的な使い方といえるでし 
ょぅ（図16)〇 

7) 第0ページ，第1ページとテキストの 
同時半透明 

グラフイック画面のページとページの半 


透明，グラフィック画面とテキスト画面の 
半透明を組み合わせると，こんな面白い効 
果も出せるのです（図17)。 

8) 特殊プライオリティ 

XlturboZII の Z - BASIC では2つのグラフ 
ィック画面の間にテキスト画面を入れるこ 
とができます。残念ながら X 68000 のハード 
ウェアではそのようなプライオリティを指 
定することができません。でもご心配なく。 
特殊プライオリティを使えば似たような効 
果を出すことができるのです（図18>。 

と，まあ以上のような解説を X 68000 お得意 
の ADPCM でしゃべらせるのも面白いかも 
しれませんね。しかし，自分自身の声でパ 
ソコンがしゃべり出すのは無気味なので， 
さすがにそこまではやりませんでしたが。 

ところで，リスト5のプログラムそのも 
のの解説は不要でしよう。前処理として， 
画面データの読み込みとパレットの設定を 
する以外は，プライオリティを変更するこ 
と，半透明にすること，プライオリティを 
リスト1外部関数 「 eg 「 と 「egw 


もとに戻すこと，半透明をやめることと，絵 
をじっくり見るためにウェイトを入れるこ 
とくらいしかやっていません。ほかにもテ 
キスト画面のパレットを変えたりしていま 
すが，細かい部分は自習としましょう。 

ホ 氺 

X - BASIC にとっては禁断の半透明機能 
はどうでしたか。来月はフラクタル図形に 
よる アニメーション などをやってみたいと 
思います。そのほかになにをやるかはいま 
この時点では私自身もわかりません。本当 
は今月でグラフィック機能の課程を修了す 
る予定でしたが，例の「予定は未定にして 
決定にあらず」という法則が働いてしまっ 
たようです。では，来月までさようなら。 

く参考文献〉 

1 ) アスキー出版局テクライト編， fX 68000 テク 

ニカルデータブックムアスキー，1987年 

2) P 0 PC 0 M 編集部編，「 X 68000データブック j , 

小学館， 1987 年 

丨）も 2) も内容はほとんど同じ。ただ， 2) のほうは 

100円安くて I 0 CS コールの一覧が載っている。 
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offset 36 バラメータテープルの先頭ア 
offset 40 実行アドレステーブルの先頭 


何もしない 

スーバーバイザモードに移る 
旧 SSP 退避 
USP 退避 

USP ® 掃 

ユーザーモードに戻る 


アドレス 

メモリリつド 

贋り值セット 

エラーなし 


;アドレス 

;データ 

メモリライト 

エラーなし 


アドレス 

内容 

アドレス 
データ 
戻り儀なし 


戻り値型（ダミー、〇にしておく） 
戾り镰上位 16 ビット 

戻り値下位 16 ビット 



rts 


.even 


clr.l 

-(sp) 

dc.w 

_SUPER 

addq•1 

#4，sp 

move*1 

d0,_sspbuf 

move.1 

usp,a0 

move.1 
rts 

a0,_uspbuf 

• even 


move.1 

_uapbuf,a0 

move•1 
move•1 

a0 9 uap 
_aspbuf f -(i 

dc.w 

.SUPER 

addq.1 

#4,sp 


rts 
• even 


レジスタリ 


regr(addr) 
addr : int 


»拿本拿本拿拿本！;本拿:！本:！拿拿拿拿拿 

regr : 


bsr _auper 

move* 1 arg vec(sp) f a0 

olr.l d0 

move.w (a0),d0 

move.1 d0 v _ret_val 

bar user 


clr.1 
lea 
rts 
• even 

本拿拿本拿1 

レジスタラ 


regw(addr,val) 
addr : int 
val : int 


d0 

_ret_arg f a0 


bsr 

_auper 

move.1 
move•1 
and.1 

arg_vec(sp),a0 
arg vec+10(8p) 
#$ffff,d0 

move.w 

d0 9 (a0) 

bsr 

_uaer 

clr.1 
rts 

d0 


regr_param 

regw_param 



regr 

regw 


aspbuf : 

d 

_uapbuf ： 


dc. i 
• even 


►12 月 18 H 本甾さんへ行くと Oh ! X があった。 1 ■う一ん，また今夜から忙しくなるぞ j と忠 
いながら口って，今度は2階のコンピュータ関連図書のコーナーへ■行くと，なんとそこに 
は『試験に出る Xlj が。すぐさま H ったその锄り道は，財布も軽かったが，足取りはもっ 
と蛏かった。 松久正幸 （1 ⑴岐み Ui 


ift 谟滿僱嫌 

予予予予予 


4 8 2 6 0 
4 4 5 5 6 

t t t t t 
eeeee 
s 8 8 s 8 
f f f f f 
f f f f f 
000 0 0 


^222223333333333444444444455555555556666666666777777777788888888889999999999000000000011111111112222222222333 

111111111111111111111111111111111 
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リスト 2 「 eg 「 と「日呂 w の C コンパイラ用 


_SUPER 



_auper ： 


$ff 20 


olr. 1 

-Up) 

dc. w 

_SUPER 

addq.1 

#4,sp 

move.1 

d0,_sapbuf 

move.1 

usp,a0 

move.1 
rts 

a0,_u8pbuf 

.even 


move•1 
move.1 

_u8pbuf,a0 
a0,usp 

move.1 

sspbuf,-(ap) 

dc • w 

_SUPER 

addq•1 
rts 

#4 ,sp 

.even 


.globl 

拿拿拿拿拿拿拿拿 

_regr 

ttxtt 

スタリー 

K « 


regr(adar) 
addr : int 


regr: 


link 
move.1 

a6，*0 

a0,-(sp) 

bar 

_8uper 

move•1 

move.w 

move.w 

8(a6),a0 
(a0) 9 d0 
d0 # _ret_val 

bar 

user 

clr.l 

move.w 

d0 

_ret_val,d0 


スーパーバイザモードに移る 
旧 SSP 退避 
USP 退邂 


; USP 愎姍 

；ユーザーモードに戻る 


;アドレス 
；メモリリード 


move. 1 (sp}+,a0 

unlk a6 

rts 


.even 

. 2lobl regw 



« レジスタライト * 

拿 * 


regw(addr,val)* 
addr : int 拿 
val : int 拿 


拿 


拿 

ttttt 


_regw: 

link 

a6,*0 



move.1 

a0,-(ap) 



bsr 

_auper 


拿 

move.l 

8(a6),a0 

:アドレス 


move.1 

12(a6),d0 

； データ 


and.1 

,d0 



move.w 

d0,(a0) 

； メモリライト 

拿 

bsr 

_u8er 


本 

clr.l 

d0 

；エラーなし 

拿 

move•1 

(sp)+,a0 



unlk 

rts 

a6 



• even 
ret_val : 

dc.l 0 ••戾り值 

.even 

Bspbuf : 

dc.l 0 

_U8pbuf : 

dc.l 0 

.even 

end 


/* 

/* スブライト • テキスト•グラフィック 
/* 間の表示優先 )6 位設定 

/» 

func m_prior(ap ， txt,gr} 
int vl,v2 
8p=ap and 3 
txt=txt and 3 
gr=ar and 3 

vl=(8p ahl4)+(txt shl2)+gr 
v2=regr(&HE82500) and &HFF 
v2=v2+(vl shl8) 
regw(&HE82500,v2) 
endfunc 
/* 

/* グラフィック •ページ 間の 
/* 表優先顺位拉定 
/* 

func p_prior(p4,p3,p2,pl) 
int vl,v2 
pl=pl and 3 
p2=p2 and 3 
p3=p3 and 3 
p4=p4 and 3 

vl=(p4 shl 6)+(p3 ahl 4>+(p2 shl 2>+pl 
v2=regr(4HE82500) and 4HFF00 
v2=v2+vl 

regw(&HE82500,v2) 

endfunc 

/* 

/* テキスト表示 K 定 

/* 

func txt_disp(n) 
int v 

n=(n and 1)shl5 
v=regr(&HE82600) and ftHFFDF 
re2w(&HE8260e f v+n) 
endfunc 

/* 

/* グラフィック•テキスト間の 

/* 半透明》定 

/» 

func gt_half(n) 
int v 

n=(n and 1)shl8 
v=regr(fcHE 82600 > and &HEEFF 
if n<>0 then v=(v or 
regw(4HE82600,v) 
endfunc 

/* グラフィック W の半透明校定 

ft 

func gtf_half(n) 
int v 

n=(n and 1)shl9 
v=regr(4.HB82600) and &HEDFF 


リスト 3 半透明用関数パッケージ 


if n< >0 then v=(v or &H1C0O)+n 
regw(&HE82600 r v) 
endfunc 

/» 

/* グラフィック • テキスト M の 
/* 特殊ブラィオリティ»定 

/* 

func gt_8pec(n) 
int v 

n=(n and 1)ahl8 
v=regr(&HE82600) and 4HE6FF 
if n<>0 then v=(v or 4H1400)+n 
regw(&HE82600 t v) 
endfunc 
/» 

/» グラフィック間の 
/* 特殊ブラィオリティ»定 

/* 

func gg_apec(n) 
int v 

n=(n and 1)shl9 
v=regr(4HE82600) and &HB5FF 
if n<>0 then v=(v or &H140O)+n 
retfvr<&HE82600,v} 
endfunc 
/* 

/* バレットブロック 0 と 
/* グラフィックとの半透明 
パ 

func pg_half(n> 
int v 

n=(n and 1)shl14 
v=regr{iHE82600) and &HBFFF 
if n<>0 then v=v+n 
regw(&HE82600,v} 
endfunc 


/* テキストカラーコード 

/* 

func txt_ccode(pal) 
pal=pal and 15 
return(regr(&HE82200+2*pal)) 
endfunc 
ハ 

/* スブライトカラーコード 
ハ 

func 8p_ccode(pal , blk) 
int a 

pal=pal and 15 
blk=blk and 15 

a=4HE82200+(blk shl 5)+( pal ahl1) 
return!regr(a)) 
endfunc 

ft 

/* グラフィックカラーコード 
/* 16,256 色モード 


►12 月18日，ようや〈ブラックタイプの X 68000 を H うことができました。いいゾフトがも 

っと出ることを期待しています。 PC なんぞに負けるなよ（もう勝っているけど）。 X 68000 BASIC 入門 107 

菊島祐一 （19) 山梨県 






/» 

funo g_ccode0(pal) 

pal=(pal and 255) ahl1 
return(regr(&HE 82000 fpal)) 
endfunc 

/* 

/* グラフィックカラーコード 
/* 65536 色モード 

/* 

func g_coodel(pal) 
int ah,al,high，iow 
ah=(pal and 4HFF00) ahr 8 


al=pal and 4HFF 
high=(ah or 1)shl1 
low=(al and &HFE) shl1 
ah=ah and 1 
al=al and 1 

high=regr{4HE 82000 +high) 
low=regr(&HE 82000 -flow) 

if ah=0 then ah=high ahr 8 else ah=high and 4HFF 
if al=0 then al=low ahr 8 else al=low and 4HFF 
return((ah shl8)+al) 
endfunc 


U スト 4 65536色から 256 色への変換 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

40 e 

410 

420 

430 

440 

450 

46 e 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

•720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 


/* 

/* 65536 色モードの■(像を 
/« 256 色モードに変換する 
/* ブログラム 

/» 

int z 

dim int p(256) : int pptr=0,poff=0 

dim char a(65535),b(65535),c(65535),d(65535) 

dim char e(65535),f(65535),2(65535),h(65S35) 


str iname,oname,pname t m 
int fp,i,j 

input "input file"；iname 
input "output file";oname 
input *'pallet file" : pname 
input "pallet offset"；poff 

/» 

/* ■ 像データの躞み込み 
/* 

fp=fopen(iname,"r") 
fread(a,65536,fp) ： fread(b,65536,fp) 
fread(c,65536,fp) : fread(d,65536,fp) 
fread(e, 65536 ,fp) ： fread(f ,65536 ,fp) 
fread(g ,65536 f fp) ： fread(h,65536,fp) 
fclose(fp) 

/» 

/* ■像データの 再生 
/* 

screen 1,3,1,1:apatfe(0):vpage(1) 
put(0,0,511,63,a) : put(0,64, 511,127, b) 
put(0 ,128,511, 191,c} : put(0, 192,511 ,255,d) 
put(0, 256,51 1,319,e) ： put(0,320,511,383,f) 
put(0, 384,51 1,447,g) ： put<0,448 ,511,511, h) 


データの変換 


/* 

/» 

p(0)=0:p(l) 
for i=0 to 
for i=0 to 
for i=0 to 
for i=0 to 
for i=0 to 
for i=0 to 
for i=0 to 
for 1=0 to 
/» 

/* 度操した 
/* 


0 : pptr=1:for 
32767 : j=i ahl 
32767 : j=i shl 
32767 :j=i ahl 
32767 : j=i shl 
32767 : j=i shl 
32767 : j=i shl 
32767 : j=i shl 
32767 : j=i Bhl 

デ _ 夕の再生 


i=2 to 255 ： p(i)=-l 
1:a(i)=check((a(j) 
l:b(i)=check((b(j) 
1:c(i)=cheok((c(j) 
l:d(i)=check((d(j) 
1 ： e(i)=check((e(j) 
l ： f(i)=check((f(j) 
1:g(i)=check((g(j) 
1 : h(i)=check((h(j) 


shl8)+a(j+1)):next 
shl8)+b(j+1))：next 
shl 8)+c(j+1)) : next 
ahl8 )+d(j + 1)) : next 
ahl8)+e(j+1)):next 
shl 8)+f(j+l)) : next 
shl 8)+g(j+1)) : next 
ahl 8)+h( j-fl)) : next 


screen 1,2,1,1:apage(0):vpage(1) 
put <0,0 ， 511 ， 6 3,a> : put(0,64,511,127,b) 
put(0,128,511,191,c) ： put(0, 192,51 1,255,d) 
put(0,256,511,319,e) ： put(0, 320,51 1,383,f) 
put(0,384,511 ,447, g) ： put(0,448,511,511,h) 

/* 

/* 麦換したデータのセーブ 
ft 

fp= fopen(oname,"c"> 

fwrite(a,32768,fp):fwrite(b,32768,fp) 
fwrite(c, 32768 ,fp) : fwriteid, 32768 ,fp) 
fwrite(e,32768,fp):fwrite(f,32768,fp) 
fwrite(g, 32768 ,fp>:fwrite(h,32768,fp> 
fclose(fp) 

/* 

/* パレットのセーブ 
fp= f open(pname,"c") 
for i=0 to pptr 

m="palet("+str$(i+poff) + M , '*+Btr$(p(i)) + ")"+chr$(13)+chr$(10) 
fwrites(m,fp) 


next 

fputc(&HlA,fp) : fclose(fp) 

/* 

/* おしまい 
/* 


input z 
end 


ft 

/* データの変換 （ 16 ビット， 8 ビット 

/* 

/* ここでいろいろな迅理ができる 

/* 

func check(c) 
int i 


for i=0 to pptr 

if p(i)=c then break 
next 

if i<pptr then return(i+poff) 
if pptr< = 254 then{ 

p(pptr+l)=c : p(pptr+2)=c ： pptr=pptr+2 
return(pptr+poff-1) 

)else( 

print "pallet overflow "; c 
return((c mod 256)+poff) 

I 

endfunc 


► i mvj .164 ページの成 m 右，やってくれましたね。私も S OS 川アルカノイドを作ってい 
たのです。受験が終わったらゆっくり仕上げようと思っていたのですが，なんとなく問じ 
ことを考えている人がいるようないや一な予感はしていたんだけど，くそ一，俺の時間を 
返せ 一。 山田純二（18> 神奈川県 
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リスト 5 半透明特殊プライオリテイのデモ 


10 /* 

20 /* 半透明檐能のデモ 
30 /* 

40 dim int a{65535),b(65535) 

50 int fp,i 

60 atr fname0="b:¥gal256.hlf" 

70 atr fnamel="b ： ¥sky256.hlf" 

80 /* 

90 /* 512 X 512 256 色 

100 /* 

110 screen 1,2,1,1 : console ,,0 
120 /« 

130 m 时（ " 第 0 ページの嫌み込み"） 

140 /* 

150 fp=fopen<fname0,"r"> 

160 fread(a,65536,fp) 

170 fcloae(fp) 

180 galpalU 
190 apage(0) 

200 put(0,0,511,511,a) 

210 /» 

220 msg (" 第 1 ページの « み込み"） 

230 / 拿 

240 fp=fopen(fname 1 ,"r") 

250 fread(b,65536,fp) 

260 fcloBe(fp) 

270 bgpal() 

280 apage(X) 

290 put(0,0,511,51l,b) 

300 /* 

310 while 1 
320 /* 

330 mag (" 第 0 、第 1 同時表示•リ 
340 /* 

350 vpage( 3 ) : wait( 10000 ) 

360 /拿 

370 «n B g (" 第〇、第 1 ページを交互に"） 

380 /* 

390 for i=0 to 100 

400 if (i mod 2)=0 then { 

410 p_prior(3,2,1,0) 

420 } else { 

430 p_prior(1,0,3,2) 

440 ) 

450 next : wait(3000) 

460 /* 

470 magr テキストとの無条件半透明"） 

480 /拿 

490 wait(1000) : pg_half ⑴ 

500 m_prior(0,2 t 1) 

510 for i=0 to 20 

520 color th8v(6*i,31,31)] : wait(3000) 

530 next 

540 m_prior(0,1,2) : pg_half(0) 

550 color [0] 

560 /* 

570 mBg 《 " 第 0 ページを手前で半透明"） 

580 /* 

590 p_prior(3,2,1,0) : gg_half(l) 

600 wait(30000) : gg_half(0) 

610 /* 

620 (" 第 1 ページを手前で丰透明"） 

630 /> 

640 p_prior(l,0,3,2) : gg_half(l) 

650 wait(30000) : gg_half(0) 

660 p_prior( 3 ,2,1,0) 

670 /i 

680 mag (" 第 1 ページとテキストの半透明 ” > 

690 /* 

700 p prior( 1,0,3,2 ) : m_prior( 0 ,2,1) 

710 gt_half(1) : kprint() 

720 wait( 30000) : p_prior( 3,2,1 • 0 ) : els 
730 m_prior( 0 ,1 f 2) : gt_half(0) 

740 /i 

750 magr 第〇、第 1 ページとテキストの半透明 "} 

760 ft 

770 m_prior(0 f 2,1 ) 

780 g«_half(l) : gt half ⑴ : kprint() 

790 wait(30000) : els 

800 m_prior(0,1,2) : at_half(0) : g«_half(0) 

810 /* 

820 nrngr 特殊ブライオリテイ"） 

830 /本 

840 p_prior( 3 ,2,1,0) : m_prior( 0 ,1,2) 

850 gt_apec( 1 ) : kprint() : wait( 3000 ) 

860 gt_spec(0) : els 
870 /拿 

880 endwhile 
890 end 
900 /* 

910 /» 

920 ft 人物（第 0 ページ〉のパレット 
930 /* 

940 func galpal() 

950 palet( 0,0 ) ： palet(1 ( 0) 

960 palet(2, 16958): palet(3,16958) 

970 palet(4,17278) : palet(5,17278) 

980 palet(6,64060) : palet(7, 64060 ) 

990 palet(8,49726) : palet(9,49726 ) 

1000 palet( 10 ， 5321 8): palet(11,53218) 

1010 palet(12,42978) : palet( 13,429 78) 

1020 palet( 14,36 8) : palet(15,368> 

1030 palet( 16,668 6) : palet<17,6686) 

1040 palet(18,63102 )： palet( 19,631 02) 

1050 palet(20,36834) : palet(21, 36834 ) 

► 「あけまして，おめでとう j などという言葉は我々にはいらない。なぜって？そうさ 
おいらは，ろ，ろ，ろ，ろが 3 つ，違った，浪人生なんだよう。 4 月には大学生になりた 
いよ一。というわけで；リクエストは聖飢魔 II の 「 1999SECRET OBJECT 」 をお願いし 
ます（な，なんなんだこの文章は）。 葛目明久（ 18> 大阪府 


1060 palet{22,49122 ) ： palet( 23,49122 ) 

1070 palet{2 4,65148>: palet( 25,65148 ) 

1080 palet(26,36800) : palet( 27,36800 ) 

1090 palet(28,63482) : palet(29,63482) 

1100 palet(30,18398) : palet(3l,18398) 

1 110 palet(32,2002) : palet(33 r 2002 ) 

1120 endfunc 
1130 /* 

1140 /* 背录（第 1 ベージ）のパレット 
1150 /* 

1160 func bgpal() 

1170 palet(38,0) : palet(39,0) 

1180 palet(40,63546) : palet(41,63546) 

1190 palet(42 f 65534) : palet(43,65534) 

1200 palet(44,65406 )： palet(45,65406) 

1210 palet(46,65342) : palet(47,65342) 

1220 palet(48,63358 )： palet(49,63358) 

1230 palet(50,63294 )： palet(51,63294) 

1240 palet(52,63230): palet(53,63230) 

1250 palet(54,61246 )： palet(55,61246) 

1260 palet(56,61182 )： pftlet(57,61182) 

.1270 palet(58,61118 )： palet(59,61118) 

1280 palet(60,59006) : palet(61,59006) 

1290 palet(62,65470) : palet(63,65470) 

1300 palet(64,63422 )： palet(65,63422) 

1310 palet(66,62970) : palet(67,62970) 

1320 palet 168,6489 0 )： palet(69,64890) 

1330 palet<70, 60922 ) ： palet(71,60922) 

1340 palet(72 ,63674): palet(73,63674) 

1350 palet(74,63994 )： palet(75,63994) 

1360 palet<76,64442) : palet(77,64442) 

1370 palet(78,64762): palet(79,64762) 

1380 palet(80,62842 )： palet(81,62842) 

1390 palet(82,63866) : palet(83,63866) 

1400 palet(84,64250) : palet(85,64250) 

1410 palet(86,64634 )： palet(87,64634) 

1420 palet(88,62778) : palet(89,62778) 

1430 palet(90,64314): palet(91,64314) 

1440 palet(92,62906) : palet(93,62906) 

1450 palet(94,64378 )： palet(95,64378) 

1460 endfunc 
1470 /* 

1480 /* メッセージを表示する 
1490 /* 

1500 func msg(m ； str) 

1510 m=m-»-space$ (60-strlen (m)) 

1520 color 6 : locate 0,0 
1530 print m : color 3 
1540 endfunc 
1550 /» 

1560 /» ウェイトを入れる 
1570 /拿 

1580 func wait(w) 

1590 int i 

1600 for i=0 to w : next 

1610 endfunc 
1620 /t 

1630 /* 澳字を表示する 
1640 /* 

1650 func kprint() 

1660 int i,j 

1670 color 6 

1680 for i=&H88 to 4H98 

1690 for j=AH3F to AHKF 

1700 print chr$ ⑴； chr 拿 U }; 

1710 next 

1720 next 

1730 color 3 

1740 endfunc 
1750 /* 

1760 /* スブライト • テキスト•グラフィック 
1770 /* 間の表示優先順位設定 
1780 /* 

1790 func m_prior(sp,txt,gr) 

1800 int vl,v2 

1810 8p=sp and 3 

1820 txt=txt and 3 

1830 gr=gr and 3 

1840 vl=(sp ahl 4)+( txt shl2)+gr 

1850 v2=regr(4HE82500) and 4HFF 

1860 v2=v2+(vl shl8) 

1870 re£w(&HE82500 f v2) 

1880 endfunc 
1890 /零 

1900 /* グラフィック•ページ闉の 
1910 /* 表優先順位拉定 
1920 /* 

1930 func p_prior(p4,p3,p2,pi) 

1940 int vl,v2 

1950 pl=pl and 3 

1960 p2=p2 and 3 

1970 p3=p3 and 3 

1980 p4=p4 and 3 

1990 vl=(p4 shl 6)f(p3 shl 4>+(p2 shl 2)+pl 
2000 v2=regr(&HE82500) and &HFF00 

2010 v2=v2+vl 

2020 regw(&HE82500,v2) 

2030 endfunc 
2040 /< 

2050 /* テキスト表示設定 

2060 /本 

2070 func txt disp(n) 

2080 int v 

2090 n=(n and 1)shl5 

2100 v=regr(&HE82600) and &HFFDF 
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2110 regw(&HE82600,vt-n) 

2120 endfunc 
2130 /* 

2140 /* グラフィック•テキスト間の 
2150 /* 半透明設定 
2160 /* 

2170 func gt_half(n) 

2180 int v 

2190 n=(n and 1)shl8 

2200 v=regr(&HE82600) and &HEEFF 

2210 if n<>0 then v=(v or &H1C00)+n 

2220 regw(&HE82600,v) 

2230 endfunc 
2240 /* 

2250 /* グラフィック間の半透明設定 
2260 /* 

2270 func gg_half(n) 

2280 int v 

2290 n=(n and 1)shl9 

2300 v=regr(iHE8260O) and &HEDFF 

2310 if n<>0 then v=(v or &HlC00)-fn 

2320 resw(&HE82600,v) 

2330 endfunc 
2340 /* 

2350 /* グラフィック•テキスト間の 
2360 /* 特殊ブライオリティ»定 
2370 ft 

2380 func gt_8pec(n) 

2390 int v 

2400 n=(n and 1} shl8 
2410 v=regr(&HE82600) and tHE6FF 

2420 if n<>0 then v=(v or 4H1400)+n 
2430 regw(iHE82600,v) 

2440 endfunc 
2450 /» 

2460 /* グラフィック間の 
2470 /* 特殊ブライオリティ校定 
2480 /* 

2490 func gg_8pec(n) 

2500 int v 

2510 n=(n and 1)shl9 
2520 v=regr(&HK82600) and 4HE5FF 

2530 if n<>0 then v=(v or &H1400}+n 
2540 regw(&HE82600,v) 

2550 endfunc 
2560 / 拿 

2570 /* バレットブ a ヅク〇と 
2580 /* グラフィックとの半透明 
2590 /拿 

2600 func pg_half(n) 


2610 int v 

2620 n=(n and 1)shl14 
2630 v=rear(tHE82600) and AHBFFF 
2640 if n<>0 then v=v+n 
2650 regw(&HE82600,v) 

2660 endfunc 
2670 ft 

2680 /t テキストカラーコード 
2690 /拿 

2700 func txt_ccode(pal) 

2710 pal=pal and 15 
2720 return<regr<&HE82200+2 本 pa 川 

2730 endfunc 
2740 /拿 

2750 /* スブライトカラー コード 
2760 /» 

2770 func 8p_ccode(pal,blk) 

2780 int a 

2790 pal=pal and 15 

2800 blk=blk and 15 

2810 a=&HE82200+(blk shl 5)+(pal ahl1) 

2820 return(regr(a)) 

2830 endfunc 
2840 /本 

2850 /* グラフィックカラーコード 
2860 /* 16,256 色 モード 

2870 /* 

2880 func g_ccode0(pal) 

2890 pal=(pal and 255) shl1 
2900 return(regr(&HE 82000 +pal)) 

2910 endfunc 
2920 f % 

2930 /* グラフィックカラーコード 
2940 /* 65536 色 モード 

2950 /* 

2960 func g_ccodel(pal) 

2970 int ah,al,high,low 

2980 ah=(pal and iHFF00) shr 8 

2990 al=pal and 4HFF 

3000 high=(ah or 1)shl1 

3010 low=(al and &HFE) shl1 

3020 ah=ah and 1 

3030 al=al and 1 

3040 high=regr(&HE 82000 +high) 

3050 low=regr(4HE 82000 +low) 

3060 if ah = 0 then ah 二 high shr 8 else ah=high and &.HFF 
3070 if al=0 then al=low shr 8 else al=low and 4HFF 
3080 return((ah shl8)+al) 

3090 endfunc 



区 CP / M 68 Kfor X 68000 ¥110,000 

X68000 用 CBIOS をインストールした X68000 専用の純正 CP/M 

68K です。標準 CP/M-68K の付属コマンド及びユーティリティ 

一を全て含みます。 

〇マウス • キーボード、電卓が使用可能 
マウスによるソフト.キーボード、電4〖機能、テレビコント 
ロール機能 COPY キーが Hum an 68K と同様に使川できます0 

〇 RAM ディスク 768KB が使用可能 
VRAM 上に RAM ディスクを設定するためメイン RAM を迫 
しません。 

〇増設 RAM、 枘設ディスクに対応 

枘,没 RAM 说大 12MB まで、増設ディスク描大2台まで対応し 
ます。 

〇128、256、1024バイト/セクターに対応 
標準 IS、PC-9801 用 CP/M-86、MS-DOS、Hmnan68K ディ 
スク • フォーマットに対応します。 


因 CP / M -68 K エミュレーター EM 68 K ¥30,000 

Human68K 上で CP/M-68K のトランジェントコマンド、ユーテイリティーソフト、 
アプリケ_ションソフトを作動させるためのエミュレーターです。一度エミュレ 
ーターを常駐させると後は Huma n 68K コマンドと同じ感党で CP/M-68K コマンド 
が使用できます。また、 CP/M-68K の C コンパイラで開発したアプリケーション 
ソフトをトランスレーターにかけると、エミュレーターなしで Human68K 上で作 
勋する様になります。 

なお、エミュレーターには CP/M-68K の付厲コマンドは含まれません。 

因 CP / M -68 K ファイルコピー CP 68 K ¥20,000 

CP/M-68K 上で作動し、 CP/M-68K と Human68K(MS-DOS) 間のファイル相互コ 
ピーをするトランジヱントコマンドです。ワイルド•カード（ホ、？）力< 使用でき 
ます。 

CP/M-68K はディジタルリサーチ、 H uman 68K はシャープの登録商標です。 


1 C ランド 

ニューウエイブ 


システム事業部 


〒792愛媛県新居浜市久保田町3- 1 -4 

第2アイヮビル1 F 

TEL (0897) 3 5 — 2 2 80 
FAX (0897) 3 5 — 2 3 1 4 


110 Oh ! X 1988.2. 























































WORD POWER の移植 


X 6 B 000 あなたの知らない世界 


ようや < C 言語のフニユアルで ASK 68 K 
のフアンクシヨン コールが 公開されましだ 
ね。さて，今回は辞霍構造とフロントフロ 
セツサの関係にわすかなりとも迫ってみだ 
し、と思います。 Xlturbo 用の W 〇 RD P 〇 
WER を X 68000 上で使用してみましよう。 


フロントブロセクサ ASKGflK の解析 


X 68000 に付属してくるワードプロセッサ 
はひかえめにいっても，あまり「夢を超え 
た j ものではありません。この Human 68 k 
に搭載されている日本語 フロン トプロセッ 
サ ASK 68 K を解析してみようと思ったので 
す力 ? ，これ自体 104 K バイトもの巨大なプロ 
グラムであり解析するのは至難の技です。 
そこでまず日本語 フロン ト エンド ブロセッ 
サとは切っても切れない閨係にある辞書 X 
68 K _ M . DIC の解析を行いました。 

かな文字を漢字に変換する場合，いった 
いどんな処理が行われているのでしようか。 
ご存じのように X 68000 では2文節最長一致 
法という方式が採用されています。この方 
式では変換対象となる文字列の頭から順番 
に文節の切れ目を探し，変換対象の最初の 
文字から始まるもっとも長い単語を2文節 
の範囲で探し出してきます。さらに1語決 
定したらその次からまた2文節取り出して 
同様の処理を行っているようです。これら 


の検索処理を高速に行うため辞書の構造は 
いろいろ工夫が凝らされています。 


辞書の構造 


X 68000 の X 68 K _ M . DIC は1 ブロ ック1024 
バイトで形成されており，その内容は図1 
のようにインデックス領域と辞書本体に分 
けられます。インデックス領域は辞書本体 
の各 ブロ ックのいちばん最初に登録されて 
いる見出し語を8バイトごとに並べたもの 
です （8 バイト以上の見出し語の場合は最 
初の8バイトのみを格納する。空いてしま 
った領域は0011で埋める）。 

日本語変換作業のとき ASK 68 K は最初に 
このインデックス領域をアクセスし，求め 
る語の格納されているブロックを知ります。 
インデックス領域の見出し語をサーチし求 
める語にもっとも近い見出し語までの見出 
し語の個数を数えると，それが辞書本体内 
の求める語のあるブロックの番号となりま 
す。次に辞書本体のそのブロックをアクセ 
スして，変換したい語を発見し，めでたく 


変換となるわけです。 

さて，その辞書本体は図2のように構成 
されています。ひとつの単語は大きく分け 
て見出し語部分と登録語部分の2つの部分 
から構成されています。辞書本体はひとつ 
の見出し語につきその全体の長さの値（下 
位，上位の順で格納されている）2バイト 
と見出し語の長さ1バイトで始まります。 
この見出し語の長さによって変換時に使用 
される順番がおおむね決定されます。一般 
にこの長さが大きい語が優先的に変換対象 
となります。 

辞書内では記号とアルファベットは JIS 
コードと同じなのですが片仮名が独自のユ 
ニークなものとなっています（図3)。これ 
は ASK 68 K の変換速度向上のためと，辞書 
自体を小さく押さえるために使用される A 
SK 68 K の特殊な内部コードであると思われ 
ます （ JIS コードとよく見比べてください〉。 
また，辞書内の各見出し語の順番はこの内 
部コードに沿って並べられています。 

各登録語はそれぞれ自分の前に自分の品 
詞情報を1バイトで表現して置いています。 


図1 X 68 K — M . DIC の構成 

000000001 FFFh インデックス領域 

( IE 00 以降にフラグ領域？） 

002000 Oh ~ 辞害の本体 

ただし，丨ブロック=1024バイト 

図2 X 68 K _ M . DIC の辞書フロック内部構造 



全体の長さ L 0 は下位•上位の順で記録されている。また1024バイトに満たない部 
分は •• OOh " で埋められる 


図3見出し語コード 



見出し晤コード表 (ASK68K の内部コード） 

0 I 23456789 ABCDEF 


2 u! - 

3 012345678 9 :;< = >? 

4 ©ABCDEFGHIJKLMNO 

5 PQRSTUVWXYZf ¥ ] A _ 

6 abcdefghi jkimno 

7 pqrstuvwxyzi I ! 

8 


9 _ 

A ァアィイゥウェエォオカガキギク 
B グケゲコゴサザシジスズセゼソゾタ 
C ダチヂッツブテデトドナニヌネノハ 
D バパヒビビフブブへべぺホボポマミ 
E ムメモヤヤユユヨヨラリルレロワワ 
F 斗ェヲンヴカケ 
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品詞 


品詞コード （16 進) 

動詞（力行5段） 

01 

// (ガ 

// 

) 

02 

ガ（サ 

// 

) 

03 

// (夕 

// 

) 

04 

"(ナ 

// 

) 

05 

"(パ 

// 

) 

06 

// (マ 

// 

) 

07 

"(ラ 

// 

) 

08 

// (ワ 

// 

) 

09 

// (サ行変格） 

0 A 

// (力行変格） 

0 B 

// (上下 

一 

段) 

0 C 

形容詞 



0 D 

形容動詞 



0 E 

形容動詞複合名詞 

0 F 
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オンメモリ 
アドレス FOOOh 以降 

レコード番号 
36~65 


Q 辛*分) 


ディスク A 

レコード番号 内容 

0 ~13 未使用 （ FFh で埋めてある） 

14 FAT 領域（詳しく は User's Manual ) 

15 未使用 （ E 5 h で埋めてある） 

16-31 ディレクトリ領域 

(詳しくは，’87年 Oh ! MZ 丨丨月号 Q & A ) 

32〜35 WORD POWER マシン語及び 

ル_トインデックス 

(メインメモリの FOOOii 以降に取り込まれる ) 
(“ A 日本語百科"の文字が見られる） 
36-65 インデックス領域 

66〜1251 辞書領域（“！ ズルズル”） 

ディスク日 

レコード番号 内容 

0 ~ 15 辞書領域（“セ”〜“セイショ"） 

16—17 未使用 

(“ B 日本語百科”の文字が見られる） 
18-1279 辞窨領域（"セイショウ"ワンリョク”） 

なお， I プロック= 2レコード. I レコード=512バイト 


この品詞 コード （図 4) は最大で IEh です。 
文字の コードで IEh 以下は コントロールコ 
ードとして使用されており，これらは容易 
に区別できるようになっています。ですか 
ら各登録語は隣の語とくっついた状態で格 
納されていますが問題ありません。 

また，見出し語の並ぶ順番は,変換時に出 
てくる順番に相当し，変換で求める語が'?萑 
定されると，それ以外の登録語が後方にず 
らされて確定された語が先頭にきます。し 
たがって，もっとも最近使用した語が先頭 
にきます。そして辞書の拡張として登録さ 
れた語も先頭に加えられます。なお，最終 
的に1ブロック内で1024バイトに満たない 
部分は 00 h で埋められます。あるブロック 
から次のブロックに登録語が続くことは許 
されません。 

これらのインデックス部及びブロック内 
の余った領域（具体的には使用されないの 
で 00 h で埋められている領域）は，辞書抗張 
時に使用されますが，ブロックに空き領域 
がなくなるとその部分には登録不可能とな 
ります。この場合は DICM . X を用いて辞書 
を再編成することで再び登録できるように 
せねばなりません。 


WORD POWER の構造 


X 68000 の日本語处理でもっとも不満に思 
えるものは JIS 第2水準漢字のサポートの 
弱さでしょう。標準で JIS 第2水準漢字 R 
OM を搭載し， 600 K バイトもの巨大な辞書 


を持ちながら，なんでこんなにと思えるほ 
どの貧弱さです。 

こんなとき懷かしくなるのが Xlturbo の 
WORD POWER です。これは JIS 第2水 
準をちゃんとサポートした唯一のワープロ 
用辞書といってよいものでしよう。たとえ 
ば， 

さんずいく変換〉 

とすると，さんずいを部首とした漢字が次 
次と表示されます。「て1」などを変換する 
と手紙の書き方，「なん lj では難読語が読 
み仮名つきで出てきます。もともと JIS 第 
2水準漢字のたちの悪いところは，読み方 
がわからないことですから，こういった検 
索方法は必要不可欠といえるでしよう。そ 
のほか，類義語/反意語も逐次表示されます 
から文章の中で使用する語彙もどんどん広 
がります。なぜこんな便利なものが8ビッ 
卜機でできて X 68000 についてこないのかま 
ったく不思議です。 

そこでついでといってはなんです力す，こ 
こまできたら思い切って Xlturbo シリーズ 
用の辞書 WORD POWER も解析してみま 
しよう。この WORD POWER は A ， B の2 
枚のデイスケットで供給されていて，これ 
らは1ブロ ツク 2レコード，1レコード512 
バイトで構成されています（図5)。 

この辞書も X 68 K _ M . DIC と同様に各辞書 
本体内ブロックの最初の語を集めたインデ 
ックス領域と辞書本体，それと短いプログ 
ラムからできています。このプログラム， 
すなわちレコード番号の32から35の部分は 


マシン語のプログラムです。この辞書が使 
用されるときにメインメモリの FOOOh 以降 
に取り込まれ，実際に変換の際に目的の語 
を探すプログラムそのものなのです。簡単 
にいえば，辞書をめくるプログラムともい 
えるでしよう。 

この プログラムの 最後のほうにルートイ 
ンデックスと呼ぶべきものがあります。こ 
れはインデックス領域のインデックスです。 
図6を見て〈ださい。これが WORD POW 
ER の使用時の状態です。求める語を辞書か 
ら探すとき，まずルートインデックスから 
求める語のあるインデックスを求め，それ 
により辞書のあるブロックを探します。こ 
のようにすることで求める語を高速に見つ 
けることが可能となります。実際には1語 
の 変換に最低2回のフアイルアクセスを行 
うことがわかります。 

ルー トインデックスは マシン 語の プロ グ 
ラムに埋め込まれた形となっており，イン 
デックスの各ブロックは，辞書本体の各ブ 
ロックの最初の見出し語をブロックの順番 
に並べたものとなっており，各見出し語と 
見出し語は 20 h で区切られています。また， 
各インデックスブロックの後方で512バイ 
卜に満たないところは FFh で埋められてい 
ます（ただし最後の2バイトを除きます)。 
ここは拡張域として使用可能です。図7は 
各辞書本体のブロックの構成を示したもの 
です。辞書本体の構成は X 68000 に似てい 
ますが品詞コードがなく，辞書としての性 
能としては劣るものと思われます。見出し 


図4登録語/品詞コード 


図5 WORD POWER の構成 
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図 7 WORD POWER の内部構造 


2 レコード 512 バイト 
20h ■•- 



登録語 n 


2Fh 


見出 


スフツシュ 


ただし，登録語 I の I 文字目は 
全角である 


なお，512バイトに満たないところは， 2 Eh “.” で埋めてある 


語は，半角の1バイトキャラクタコード （J 
IS コード）数バイトから構成されており， 
その直後に登録語が続きます。いちばん最 
初の登録語は必ず全角の2バイトコードで 
始まっており，これによって見出し語と登 
録語の区切りを判別しています。登録語と 
登録語の間は 20 h で区切られ，各見出し語の 
最後の登録語の後ろには 2 Fh をつけて各見 
出し語から始まる語群の区切りを示してい 
ます。 


純で高い効率を得る方法のひとつです。ほ 
かにハッシュ法や B 木などがあります。こ 
れらについては各自学習してください。知 
つていて損はありません。 


WORD POWER を XB 8000に移植する 


WORD POWER を X 68000 に移植するプ 
ログラムを記載します。この移植を行うに 
あたって必要なものとして， Xlturbo シリ 


します。この順番を忘れないでください。 
このプログラムの実行で X 68000 側に WOR 
D . A と WORD . B というファイルが作られ 
ます。 

2) WORD POWER の変換 

辞書本体内の見出し語とその登録語を1 
行ずつに分けて見出し語を ASK 68 K 内の内 
部コードに変換します。また，50音ごとに 
ファイルを分割します。使用するプロダラ 
ムは convert , bas で，これをロードしてドラ 
イブ A には先ほどの WORD . A ， WORD . B 
のディスケットをドライブ B には別のディ 
スケットを入れて走らせてください。プロ 
ク''ラム終了によつて WORDO . C , WORDA . 
C と WORD ア . C 力 1 ら WORD ワ . C のファイ 
ルがドライブ B に形成されます。 

3) 辞書本体のソート 

作成された50音ごとのファイルをそれぞ 
れ ASK 68 K で使用される辞書と同じ順序に 
なるようにソートしなおします。使用する 
のはバッチファイル WSORT . BAT です。 
エディタの編集機能を使用するなどして作 


X 68 K . M . DIC と同様にブロックから次 
のブロックへひとつの見出し語の登録語が 
続くことは禁止されており，最終的に各ブ 
ロックの後方の512バイトに満たない部分 
は 2 Eh で埋められます。この部分も拡張域 
として使用可能です。 

実際に変換対象となった登録語はその見 
出し語内の登録語列の最初に移り，他の登 
録語はひとつ後方にずれます。また，辞書 
の拡張についてですが，この拡張を行うプ 
ログラムが手元にないので（ひょっとする 
と，存在しないのかな？），なんともいえな 
いのですが拡張は結構簡単に行えるものと 
思われます。これについては各自で考えて 
みてください。 

なお，この辞書にもやはり不明な部分が 
あり，これについては読者の皆々様の知恵 
を拝借したいと思うしだいであります。具 
体的に述べますと，各インデックスブロッ 
ク（レコード番号36から 65) の最後の2バ 
イトに注目してください。ここになにやら 
意味ありげな値が書き込まれているのです 
が，この意味がよくわかりませんでした。 

さて，このように辞書はデータベースの 
もっとも基礎的なもののひとつであり，き 
わめて単純な構造でありながら，高速にデ 
ータを探し出すこともできます（扱うデー 
夕の量にもよりますがもっと高速な方法も 
あると思われます）。 

膨大なデータの中から高速に求めるデー 
夕を得るためにはさまざまな方法があり， 

ここで用いられているインデックス法は単 


ーズ， RS -232 C ケーブル（クロス接続のも 
の ）， WORD POWER 本体が必要です。以 
下に移植の手順を述べます。 

1) 辞書 WORD POWER の転送 
WORD POWER のデ、イスタの内容を XI 
turbo から X 68000 へ RS -232 C で転送します。 
転送プログラムは Xlturbo 側には transxl . 
bas , X 68000 側には transX 68 K . bas を使い 
ます。これらのプログラムをロードしたら， 
Xlturbo のドライプ A に ‘‘ WORD POWER 
A ’’， ドライブ B に ‘‘ WORD POWER B’’， X 
68000の A ドライブには新しいデイスケット 
(フォーマット後のもの）を入れて，必ず X 
68000を先に RUN し，次に Xlturbo を RUN 


成してください。これを使用するにあたつ 
てパ、ツチファイルを実行する COMMAND . 
X にパ、ッチエリアサイズを確保させるため 
にオプシヨンをつけて 

COMMAND / B :8 
としてこの WSORT . BAT を実行します。 
この際，ドライブ A には WORDO . C から始 
まる拡張子 C の先ほどのファイルを入れ， 
ドライブ B には別のデイスケットを入れて 
おきます。このバッチファイルの実行によ 
り，同じ名前で拡張子 D のファイルが作ら 
れます。 

4) 辞書フォーマットへの変換 

分割された各ファイルをまとめ， ASK 68 


VS のカレンダーを修正する 


X 68000 ユーザーの皆さん，9月23日は驚か 
れませんでしたか？ そうです， VS 上のカレ 
ンダーには春分の日と秋分の日が休日として 
登録されていないのです。 

これらの休日は年によってころころ変わる 
とはいえ，計算する方法はあるでしょうし， 
当分のあいだ9月24日が秋分の日になること 
はないはずです。 MZ - 2500のアルゴカレンダ 
一ではこの2 つの 休日は固定されていますが 
ほかの休日とは色違いで表示されるなどのエ 
夫が見られます。ようするに，やりようはあ 
ったはずなのに平日あつかいというのはあん 
まリというものでしょう £ . 

というわけで VS を解析したところ，00013 F 
35 h から各月の日数，00013 F 4 Ih から4バイト 
ごとに各月の祝日が格納されていることがわ 


かりました。下のプログラムを実行すると春 
分の日と秋分の日を加えることができます。 
あまりやりたくはないのですがシステムを窨 
き換えることになりますので，必ずバックア 
ップを取ったディスクで行ってください。マ 
シン語入カツールで直接書き換えてもかまい 
ません。これを応用すれば自分の誕生日など 
も登録することができます。 （棚瀬克明） 

リストカレンダー修正 

10 ant march , sept 
20 input " 春分の日？ ".march 
30 input •• 秋分の日？ "，aept 
40 num=fopen("a ： ¥vs.x","rw") 

50 fseek(num,&H13F49,0) 

60 fputc(march,num) 

70 fseek(num,&H13F62,0) 

80 fputc(sept,num) 

90 fcloaealK ) 

100 end 
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K で使用できるように X 68 K _ M . DIC と同 
じフォーマットに変換します。使用するプ 
ログラムは create , bas です 0 このプログラ 
ムをロードして，ドライブ A に先ほどのフ 
アイルをドライブ B には別のデイスケット 
を入れて実行します。 

このプログラムの実行で USER . DIC が形 
成されます。この USER.DIC を DICM で再 
編成すると，この辞書は使用可能となり W 
ORD POWER の移植は終了します。 

このままでも使用可能なのですが，今ま 
での辞書 X 68 K _ M . DIC も使いたいので2つ 
の辞書の重なった部分は削り，無駄をなく 
したほうがよいでしよう。ということで U 


SER . DIC 側から X 68 KJVL DIC との共通部 
分を削除します。これを行うのが compare , 
bas です。このプログラムをロードして， 
ドライブ A に USER . DIC ( DICM で再編成し 
なくともよい），ドライブ B に X 68 K _ M.DI 
C を.入れて実行します。このプログラムの 
実行でドライブ A に WORD . DIC が作られ 
ます。 

この WORD . DIC を DICM で再編成し CO 
NFIG . SYS に定義してやることで X 68000 
で WORD POWER を使用することができ 
ます。実際に使用するときには，これまで 
使っていたサブ辞書をメイン辞書とマージ 
してできあがったものをサブ辞書， WORD . 


DIC をメイン辞書と設定しておいてくださ 
い。また，辞書学習はさせないように気を 
つけましよう。 


最後に 


このように，ほかのシステムの辞書を変 
換しマージなどを行うことで， X 68000 の辞 
書強化を図ることができます。特にこの H 
uman 68 k は MS - DOS のフアイルが直接読め 
るので，フロントプロセッサ ATOK などで 
使用されている辞書で，強化を図ることが 
できるものと思われます。 

(長井清/相馬英智） 


リスト1 transXl bas 


リスト2: transX 68 K . bas 


100 » 拿本本本！ : 拿《本本拿拿拿 t«« 本本拿拿拿本本拿拿 *« 拿拿本«本本本拿本拿尊 

110 » 

120 ' WORD POWER を X68000 に転送 

130 ' 

140 ， 87/09/07 Ver.1.00 

150 * 

160 1 拿拿 ** 拿 * 拿本 * 拿拿本 * 拿 * 本本*蓽本拿傘本本零本本拿本本本本家家拿本本本本 

170 recatart = 0 
180 recend = 1279 

190 OPEN ，， C " ,#1 ,"COM:6N81XNLLNZ" 

200 FOR i = recstart TO recend : PRINT "Rec. No.=” ；i 
210 DEVI$ "1:", i, dtl$, dt2$ 

220 FOR j=0 TO 7 * 

230 dt$ = ,,M 

240 FOR k=0 TO15 

250 dt$ = dt$ + RIGHTS ( "00 ,, +HEX$(ASC(MID$(dtl$ l j*16 + k + l,1))),2) 

260 NEXT k 

270 PRINT #1,dt$ 

280 NEXT j 
290 FOR j=G TO 7 
300 dt$ = 

310 FOR k=0 TO15 

320 dt$ = dt$ + RIGHT$("00. ， +HEX$<ASC(MID$<dt2$ ， j*16 + k+l ， l>",2> 

330 NEXT k 

340 PRINT #1,dt$ 

350 NEXT j 
360 NEXT i 

370 PRINT #1,CHR$(&H1A) 

380 CLOSE #1 
390 END 


10 / 本 ** 拿拿本本本本本本本本本 ** 本本袁本本本 《 拿 : M ； 本本塞本拿拿拿:！*拿拿拿 

20 /* Xlturbo から WORD POWER を入力する 
30 /本 *87/11/19 Ver.2.00 

40 / 拿拿拿拿 * 拿 ** 寒本本本本 * 本本本家家 * 拿拿本拿本本本本《本本拿拿本本 * 拿 * 

50 atr d[255] 

60 str fin,fout{2) 

70 int i, fpin, fpout 

80 /本 

90 fin = ,, aux H 
100 fout(1)="A:WORD.A" 

110 fout(2) = "A:WORD.B" 

120 fpin = fopen(fin, "r") 

130 for i=l to 2 

140 print "receiving ";fout(i) 

150 fpout = fopen(fout(i),"c") 

160 while ⑴ 

170 if freads(d,fpin> =-1 then break 

180 fwrites(d,fpout) 

190 endwhile 

200 fputc(4HlA,fpout) 

210 fclose(fpout) 

220 next 

230 fcloaealK ) 

240 end 


U スト 3 WORD POWER 変換 


100 / 拿拿本本***本本***本家**本本拿**拿拿♦♦拿本♦拿拿本*本拿拿*拿拿本拿*拿拿窣* » 拿本本**本*本本本拿拿拿* «»* 

110/* WORD POWER の見出し»を変化し各見出し捃を 1 行にする。 

120 /* 87/11/23 Ver 3.00 

130 / 拿拿拿拿拿本拿本*拿本拿*拿拿《本拿拿拿本本！;拿拿本拿拿*拿拿拿拿拿*拿**本*拿本韋拿拿拿拿本本拿*拿拿拿韋拿本拿拿寒拿拿本 

140 int fpin , fpout,i , j , k 


150 char c 

160 atr filein ⑴, fileout 
170 dim char bufin(511),endl(2) 
180 dim char cond ⑴ = い A , ， ， 7 , 】 
190 dim char conv(63) 


=(&H2F,&HD I &HA) 


200 

210 

220 

230 

240 

250 

260 

270 

280 /本 

290 k = 0 
300 filein(0) 
310 filein ⑴ 
320 fileout 


&H0, 0 f 0, 
&HA3, &HA5, 4HA7, 
&H9D, &HA2, 4HA4, 
4HAF, &HB1,&HB3, 
&HBF, 4HC1, 

4HCD, &HCE, 

&HDF, &HE0, 

&HEA, &HEB, 


&HC4, 
&HCF, 
&HE1, 
&HEC, 


="A ： WORD.A" 

="A:WORD.B” 

="B:WORD0.C" 


0 , 0 , 
&HA9, tHE3, 
&HA6, &HA8, 
&HB5, &HB7, 
AHC6, fcHC8, 
&HD2, &HD5, 
&HE2, &HE4, 
&HED, fcHEF, 


0 , 

&HE5, 

&HAA, 

&HB9, 

&HCA, 

&HD8, 

&HE6, 

4HF3, 


&HF2, AHA1 t 
4HE7, 4HC3, 
atHAB, 4HAD, 
&HBB, 4HBD, 
&HCB, &HCC, 
&HDB, &HDE, 
&HE8, &HE9, 
0 , 0 


330 fpout = fopen(fileout, "o") 

340 for i = 0 to1 

350 fpin = fopen( filein ⑴， "r") 

360 print filein(i) 

370 while ⑴ 

380 fread(bufin,512,fpin) 

390 if bufin(0) = 4H1A then break 
400 j = 0 

410 while ⑴ 

420 if bufin(j) = &H2E then break 

430 while isprint(bufin(j)) or (&HA0<bufin(j) and bufin(j)<iHE0) 

440 while isprint(bufin(j)) 
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450 fputc(bufin(j),fpout) 

460 j = j+1 

470 endwhile 

480 while(&HA0<bufin(j) and bufin(j)<4HE0) 

490 c = conv(bufin(j)-&HA0) 

500 j = j+1 

510 if bufin(j) = 4HDE then { 

520 c = c+1 

530 j = j+1} 

540 if bufin(j) = 4HDF then { 

550 c = c+2 

560 j = j+1} 

570 fputc(c,fpout) 

580 endwhile 

590 endwhile 

600 fputc(&H20 , fpout) 

610 while bufin(j) <> 4H2F 

620 if (&H7F<buf in( j ) and bufiri( j ) <AHA0) or &HDF <buf in( j ) then { 

630 fputc(bufin(j),f pout) 

640 fputc(bufin(j +1)» fpout) 

650 j = j+2 

660 } else { 

670 fputc(bufin(j),fpout) 

680 j = j+1) 

690 endwhile 

700 fwrite(endl,3,fpout) 

710 j = j+1 

720 if bufin(j) >= cond(k) then { 

730 fclose(fpout) 

740 fileout = "B:WORD" +chr$(cond(k))+".C" 

750 fpout = fopen(fileout,"c") 

760 if k = 0 then k = k+1 else cond(k) = cond(k)+l 

770 } 

780 endwhile 

790 endwhile 
800 next 
810 fcloaeall() 

820 end 


リスト 4 WORD ， DIC 作成 


100 / 本本本本本本京本本本本本！:本本本本拿本本本本*本本*本本本本本本本本本本本本本木拿 《 本 

110 /* X68K 用日本譖百科を作る 
120 /* 87/11/29 Ver.2.30 

130 /拿《本本本拿拿本本本本本*本*本本本本本本本本本本*本本本本本本本本本本*本本本本本《 

140 int i , j , fpi,fp2,nrec, prec,ntrns,lenall , lenind,retval,hh 
150 str flnamel,flname2 ， indxl40] ， dmy[ 100 】 

160 dim int lentr(200) 

170 dim char header(8910> 

180 dim str trnsWenW’nflJndbm..} 

190 flname2 = "B:USER.DIC" 

200 fp2 = fopen(flname2, "c") 

210 for i=0 to 8191 
220 header(i) = 0 
230 next 
240 nrec = 0 

250 fwrite(header, 8192, fp2) 

260 for i=0 to 45 

270 if i<2 then {nfl=fn(i)} else (nfl=chr$(i-2+ , 7 , )) 

280 flnamel="A ： WORD"+nfl+".D" : print flnamel 

290 fpl=fopen(flnamel,"r") 

300 prec =1024 
310 repeat 

320 retval=makedic() 

330 if retval<0 then writezero<):break 

340 if prec+retval> =1024 then { 

350 writezero() 

360 prec = 0 

370 hh = nrec 本 8 

380 for j=0 to lenind-1 

390 header(hh+j) = indx[j] 

400 next 

410 nrec = nrec + 1} 

420 writedic() 

430 until(0) 

440 fclose(fpl) 

450 next 

460 fseek(fp2, 0, 0) 

470 fwrite(header, 8192, fp2) 

480 fcloseall() 

490 end 

500 func int makedic() 

510 int 1,i 

520 ntrns = 0 

530 1=rdindx() 

540 if 1<0 then return(-1) 

550 lenind =1 

560 1=rdtrns() 

570 while (dmy<> ••/") 

580 trna(ntrns) = dmy 

590 lentr(ntrns)=1 

600 ntrns = ntrna + 1 

610 1=rdtrns() 

620 endwhile 

630 lenall= 2 + 1 + lenind + ntrns 


640 for i=0 to ntrna-1 

650 lenall=lenall + lentr ⑴ 

660 next 

670 if lenall〉1024 then print "Too long ! indx 
680 return(lenall) 

690 endfunc 

700 func int writedic() 

710 int i 
720 char c 

730 c =(lenall mod 256 ) 

740 fputc(c, fp2) 

750 c =(lenall ¥ 256 ) 

760 fputc(c, fp2) 

770 c =lenind 
780 fputc(c, fp2) 

790 fwrites(indx, fp2) 

800 for i=0 to ntrns-1 
810 fputc(&HU, fp2) 

820 fwriteB (tms ( i ) , fp2 ) 

830 next 

840 prec = prec + lenall 

850 endfunc 

860 func int rdindx() 

870 int c 

880 indx ="" 

890 c = fgetc(fpl) 

900 if c<0 then return(-1) 

910 while c<>' * 

920 indx = indx + chr$(c) 

930 c = fgetc(fpl) 

940 endwhile 

950 return(strlen(indx)) 

960 endfunc 

970 func int rdtrns() 

980 int c 

990 dmy = 

1000 c = fgetc(fpl) 

1010 while ( <c<>* 1 ) and (c<> V 1 ) and (c<>4HD)) 

1020 dmy = dmy + chr$(c) 

1030 c = fgetc(fpl) 

1040 endwhile 

1050 if c= * * or c= */ 1 then return(strlen(dmy)) 
1060 if c=&HD then { 

1070 dmy = 

1080 fgetc(fpl) 

1090 return(1)} 

1100 endfunc 

1110 func int writezero() 

1120 int i 

1130 for i=prec to 1023 

1140 fputc(0, fp2) 

1150 next 

1160 print ’’ Page = " ; nrec 

1170 endfunc 
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U スト 5 


事*拿*本本聿聿本本本本本本本本本本*本本拿本享本本*本本本本零**本*本本本本象本恭本聿本本 t ♦♦♦春 

/* メイン辞害と日本路百科を比較して垂«部分を削除する。 

/* 87/12/02 Ver.1.20 

/* 拿拿專本本*本本本拿象零本末拿事窣拿拿本本本靠拿拿拿拿拿零本本本本客拿本拿象窶靠♦本*#拿 t * 本拿章拿本韋本隼尊寨專本 

str flnamel : ,, A ： USER.DIC , ' 
int fpl,flg1 

int lenall1,lenindxl,ntrnsl 

str indxl 140] 

dim str trns1(200)180] 

dim char dl(1024) 

str flname2 = "B ： X68K_M.DIC" 

int fp2iflg2 

int lenal12 , lenindx2, ntrns2 

str indx2l40] 

dim str trns2(200)[80J 

dim char d2(1024) 

int i, j, m, dpi=1024, dp2=1024 

dim char header(8191) 

int nrec, prec=1024 

str flname3 = "A:WORDS.DIC" 

int fp3 

fpl=fopen(flnamel,"r") 
faeek(fpl, &H2000, 0) 
fp2 = fopen(flname2, "r") 
fseek(fp2, &H2000, 0) 
fp3 = fopen(flname3 , "c") 
for i=0 to 8191 
header(i) = 0 
next 

nrec = 0 

fwrite(header, 8192, fp3) 
flgl=rdUSER() 
flg2 = rdX68K(l) 
while ( (flgl>0) and (flg2>0)) 
if indxl>indx2 then { 
repeat 

flg2 = rdX68K(l) 
if flg2<0 then break 
until(indxl<=indx2) 

} 

if indxl=indx2 then { 

flg2 = rdX68K(2) 
for i=0 to ntrnsl-l 

for j=0 to ntrna2-l 

if trnsl(i)=trn82(j) then trnsl(i)="" : 

next 

next 

flg2 = rdX68K(l) 

} 

if indxl<indx2 then { 
repeat 

wrUSER(1) 
flgl=rdUSER() 
if flgl<0 then break 
until(indxl>=indx2) 


730 

func int 

rdUSER() 


740 

int dd, i , j, c, k 


750 

char cl 

,c2 


760 

str dmy[80J 


770 

if dpi >=1024 then { 


780 


dd = fread(dl,1024,fpl) : dpl=0 

790 


if dd<1024 then returnj-1) 

800 

} 



810 

cl=dl(dpi) : dpi=dpi + 

1 

820 

c2 = dl(dpi) : dpi? dpi + 

1 

830 

lenall1 

=c2 拿 256 + cl 


840 

if lenalll=0 then ( 


850 


dd = Fread(dl, 1024 

,fpl) : dpi=0 

860 


if dd<1024 then return(-1) 

870 


cl=dl(dpi) : dpi 

=dpi + 1 

880 


c2 = dl(dpl) : dpi 

=dpi + 1 

890 


lenalll=c2 * 256 

+ cl 

900 

1 



910 

lenindxl=dl(dpi) : dpi= 

dpi + 1 

920 

for i = 

0 to lenindxl-1 


930 


c = dl(dpi) : dpi= 

dpi + 1 

940 


indxl[i] = c 


950 

next 



960 

indxlllenindxl]=0 


970 

ntrnsl 

=0 : k = 0 


980 

c = d 1( 

dpi) : dpi=dpi + 1 


990 

for j : 

5+lenindxl to lenall1 

1000 


c = dl(dpi) : dpi= 

dpi + 1 

1010 


if c>=&H20 then { 


1020 


dmy[k 】 =c 

: k = k + 1 

L030 


1 else { 


mo 


dmyIk 】 =0 

: k = 0 

1050 


trnsl(ntrnsl)=dmy : ntrna1=ntrnsl 

1060 


) 


1070 

next 



1080 

dmylk] 

= 0 : trns1(ntrns1) 

=dmy : ntrns1=ntrns 1 + 1 

1090 

return( 

lenalll) 


1100 

endfunc 




1110 い、 X68K_M.DIC 

1120 func int rdX68K(opt;int) /» 

1130 int dd ； i, j, c, k 

1140 char cl,c2 

1150 str dmyl80J 

1160 if opt=l then ( 

1170 if dp2>=1024 then 


opt=1 : read .index, opt = 2 : make table 
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►うちの大学ではスペース ハリ アーのグラフィ ック データを解析して改造してしまった奴 
がいる。「ドラえもんスケイラ」とか「オバ q アイダ」「錯乱坊ゴダー ニ」 r セーラー服ド 
ム j r うるうる涙マンモス j などがあり，プレイ中に思わず「うわ一オレの目の前から消え 
てなくなれ一 j と叫んでしまうほどアブナイ。 長江伸和 （ 20 ) 愛知県 


HBtf 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 


dd=t read{d2,102*1,fp2) : dp2 = 0 
if dd<1024 then return (- 1) 

cl=d2(dp2) : dp2 = dpZ + 1 

c2 = d2(dp2) : dp2 = dp2 + 1 

lenali2 = c2 * 256 + cl 
if lenall2 =0 then { 

dd = fread(d2, 1024, fp2) : dp2 = 0 
if dd<1024 then return(-1) 
cl=d2(dp2) : dp2 = dp2 + 1 

c2 = d2(dp2) : dp2 = dp2 + 1 

lenall2 = c2 本 256 + cl 

) 

lenindx2 = d2(dp2) : dp2 = dp2 + 1 
for i = 0 to lenindx2-1 

c = d2(dp2> : dp2 = dp2 + 1 
indx2[iJ = c 

next 

indx2[lenindx2] = 0 

dp2 = dp2 + (lenall2-3-lenindx2 ) 

return(lenall2) 

) 

if opt=2 then { 

dp2 = dp2 - (lenall2-3-lenindx2 ) 
ntrn82 = 0 : k = 0 
c = d2(dp2) : dp2 = dp2 + 1 
for j = 5+lenindx2 to lenall2 

c = d2(dp2) : dp2 = dp2 + 1 
if c>=&H20 then { 

dmy[k] = c ： k = k + 1 
J else { 

dmy[k 】 =0:k=0 

trns2(ntrns2) = dmy : ntrns2 = ntrns2 + 

} 

next 

dmy[k] = 0 : trna2(ntrns2) = dmy : ntrns2 = ntrns2 + 1 
return(lenal!2) 


1560 endfunc 


1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
17.70 
1780 
L790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
19 卯 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


/* write new die. 
func int wrUSER(ff;int) 
int l,hh,retval 
char c 

if ff=0 then writezero() : return() 
retval=makedic() 
if retval<>0 then { 

if prec+retval> =1024 then { 
writezero() 
prec = 0 
hh = nrec < 8 
for i=0 to lenindxl-1 

header(hh+i} = indxl[i] 

next 


c = < retval mod 256 ) 
fputc(c, fp3) 
c = ( retval Y 256 ) 
fputc(c, fp3) 
c =lenindxl 
fputc(c, fp3) 
fwriteajindxl,fp3) 
for i=0 to ntrnsl-1 

if 8trlen(trnsl(i))>0 then { 
fputcUHll, fp3) 
fwrites(trna1(i), fp3) 

} 

next 

prec = prec + retval 

} 

return() 
endfunc 

func int makedic() 
int XI,12, i,11 
11= 3 + lenindxl 
12 =11 

for i=0 to ntrnsl-1 

11=atrlen(trnsl(i)) 
if 11>0 then 12 =12 + 11 + 1 

next 

if 11=12 then return(0) 
return(12} 
endfunc 

func int writezero() 
int i 

for i=prec to 1023 

f putc(0, fp3) 

next 

print " Page = “； nrec 
return() 
endfunc 


sort <a:word0.C >b：word0.D 
sort <a：wordA.C >b：wordA.D 
sort <a:word7.C >b:word7.D 
sort <a:word4.C >b:wor<H.D 
sort <a：word*) .C >t»:word^.D 
sort く a:wordx.C >b:wordx.D 
sort <a:wordt.C >b：wordt.D 
sort <a ： wordA.C >b:words.D 
sort <a：wordt.C >b：word^.D 
sort <a:word々.C >b:word々.D 
sort <a:wordY.C >b:wordY.D 
sort <a:words.C >b:word3.D 
sort <a : word't .C >b: wordt .D 
aort 《asword シ .C >b:word シ .D 
Bort <a:worcLX，C >b:wordU.D 
sort <a:wordt.C >b:wordt.D 


U スト 6 ソート用パク#ファイル 


sort <a:wordV.C >b:wordv.D 
sort <a: word^ . # C >b： word^ .D 
sort <a：wordt.C >b:word，.D 
sort く a:word ッ .C >b:word ッ .D 
sort <a:word? .C >1>:^〇で(1テ.0 
aort <a:wordhC >b:wordF .D 
sort く a:word ナ >b:wordt.D 
sort く a:word 二 .C >b：word^.D 
sort <a：word?.C >b：word?.D 
sort <a:word^.C >b:word# *D 
sort <a：word^.C >b:wordy.D 
sort <a：wordA.C >b:wordA.D 
sort <a:wordt*C >b: wordl: .D 
sort <a:word7*C >b:word7.D 
sort <a:wordK.C >b:wordA.D 


sort <a:word 拿* C 
sort <a:wordv»C 
sort <a:word ミ .C 
sort <a:wordU.C 
aort <a:word>.C 
sort <a：wordt.C 
sort <a:wordt.C 
sort <a:worda.C 
sort <a:word3.C 
sort <a:word5.C 
sort <a:wordV.C 
sort <a:word^.C 
aort <a:v/ord レ .C 
aort <a：wordD # C 
sort <a:word7,C 


>b：word^.D 
>b:word7.D 
>b:word ミ .D 
>b:wor<U.D 
>b:vrord メ • I) 
>b：word^E.D 
>b:wordt.D 
>b:worda.D 
>b:word ョ .D 
>b:word ラ .D 
>b:word リ .D 
>b:word ル .D 
>b:word レ .D 
>b：wordD.D 
>b:word ヮ •D 


► XlturboZ のロゴをペイントマーカーで金色に塗ったのは私だけではないハズだ……と思 

う。 七浦啓有（ 16 > 兵地:財 
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結んで開いて， 


また開いて... 


[_ 坂村先生と鈴木先生の話 / 

ここに挙げたおふたりは，両氏ともいろ 
いろな面でたいへんュニークといえる，計 
算機の世界の人物です。 

坂村健先生は，ご存じ TRON プロジェク 
卜の中心人物です。このプロジェクトに 
ついては，一般新聞の1面を何度か飾るほ 
どの大きな話題になっており，単に技術的 
な問題でなく，社会的，経済的な問題もいろ 
いろからんでいます。だからこそ ， TRON 
現象でなく TRON 自体の持つ純粋な思想に 
ついて近々考えてみたいと思っています。 
とくに思うことは， BTRON ばかりにと 
らわれると TRON 構想がつかみにく くなる 
ということです。 

一方の鈴木則久先生に関しては， bit 誌 
(共立出版）の1987年1月号から始まった， 

ご自身の連載を読んでもらうのが一番よく 
わかると思います。カーネギーメロン大学， 
ゼロックス，東京大学などで仕事をした後 
に，現在は日本 IBM の東京基礎研究所の所 
長をされているという経歴だけでため息が 
出るのではないでしようか？ 

ふたりとも，少し接するだけで，従来の 
日本の計算機研究者とは違うスケールの大 
きさを備えていることがひしひしと伝わっ 
てきます。アメリカ的なおおらかさとアビ 
ールの強さを持っているとでもいえばよい 
でしょう力、。授業でも学会の講演会でも歯 
に衣を着せない発言をするので，聴講する 
側は非常に壮快な気分になります。 

さて，このふたりが参加するという願っ 
てもない討論の場が北海道で行われた学会 
で実現しました。タイトルは，「新しい小型 
コンピュータ用 OS について」。つまりこれ 
からのパソコンのオペレーテイングシステ 



ムはどうなっていくべきかというものでし 
た。 

両者は予想どおり ， TRON (坂村）およ 
び OS /2 ( 鈴木）について強〈アピールしま 
した。中でもきわだった論点のひとつは， 
OS のユーザーインタフェイスに関して， 
BTRON のように枠組みをあらかじめ計 
算機システム側から，かなり積極的に与え 
ること力 ? 果たしていいことなのかどうかと 
いうことでした。 

TRON プロジェクトのパソコンモテ、、ルと 
呼べる BTRON では，基本的な「作法」か 
ら始まり，キーボードの形までのモデルが 
設定されています。 IBM とマイクロソフト 
が， MS - DOS 後のスタンダードとして発表 
した OS /2 は， MS - DOS 上に実現した MS - 
WINDOWS からは多少の発展が見られる 
ものの，インタフェイス全体としては ， B 
丁 RON のようにアピールするものはありま 
せん。 

問題点は，極端にいえば無愛想，不親切， 
ぶっきらぼうをとるか，逆におせっ力》い， 
また''るっこしい，がんこをとるかというこ 
とになるような気もします。この部分の対 
立は，もう少し掘り下げるとかなり普遍的 
な問題といっていいように思えます。つま 
り，「マシンは才•ープンである（開いてい 
る）べきか，あるいはクローズドである(閉 
じている）べきなのか？」 

数学的には，ひとつの領域を考えたとき 
にその領域の端の点がその領域に含まれて 
いるならば，クローズドであり，含まれて 
いないのならオープンであるといいます。 
簡単な例を挙げましょう。 

X > 0 

X ^ 0 

ここで，前者は境界 （ X =0) を含んでい 
ないので開いており，後者は含んでいるの 
で閉じているといいます。 

計算機のインタフェイスに関して，これ 
をアナロジーとして使うならば次のように 
なるでしょう。計算機と使う人間の境界， 
つまりインタフヱイスの部分で，計算機側 
からの規定が大きいものが閉じたシステム 
であり，逆にユーザー側に任されているの 
が開いたシステムというわけです0 

計算機は比較的きれいな階層構造を持ち 
各層は緊密にリンクしているので，「開い 
ている」，「閉じている」という問題は，イ 


ンタフェイス部のみにとどまらず，ハード 
ウェアも含むアーキテクチャ全体の設計思 
想に関わる重要な問題であるといえます。 

それでは，元祖 MZ ， つまり MZ -80 K な 
ども思い出しながら，主要なパソコンにこ 
の視点からスポットを当ててみましよう0 
マシンが開かれているか，閉じているかと 
いう基準によって，さまざまな状況が意外 
にきれいに捉えられるのではないかと思い 
ます。 

/ 元袓 MZ か5始まる / 

日本のパソコン 第1号といえる あのタリ 
ーンパソコン MZ -80 K こそ力 5 '，オープンな 
パソコンのひとつの典型でしよう 。 TRON 
に見られるような，いろいろな「思想」を 
持たないこと力％最大の特徴でした。オー 
プンだったからこそ，信じられないほど多 
くの計算機言語がその上で走り，ハードウ 
ェア的にも，プログラマブルなキャラジェ 
ネ，カラー化などいろいろな拡張が見られ 
ました。 

ただし，創世紀のパソコンだったため， 

メーカー側がユーザーやサードパーテイの 
その後の開発に頼らざるを得なかったこと 
も事実です。 

アメリカでのオープンなパソコンはなん 
といっても Applell です。秋葉原でにせ Ap 
pie の基板を買って，部品を半田づけして， 
映像信号のところをちょっと調整すればで 
きてしまいました。それほどコンパクトで 
魅力的なアーキテクチャを持つ， CPU 6502 
のパワーを最大限に生かしたパソコンとい 
えるでしよう。 

最近のパソコンとは違い，簡単にケース 
の背中のカバーが外せて基板をいじること 
ができます。拡張基板のスロットも比較的 
多く用意され，基板を選択する信号もあり， 
堂々たるオープンなパソコンです。 

パソコンが登場した当時は，ソフトウェ 
ア，ハードウェア，またパソコンという概 
念自体の未成熟さのために，かえって MZ - 
80 K や Applell などオープンなパソコンの 
名機ができたといえるでしょう。 

その後，国外では IBM - PC が，国内では 
NEC - PC が大きなシェアを占めます力 ? ，こ 
れらは特に主張や面白味のないマシンとい 
えます。 

さて，ここで登場するのがご存じ Macin 
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tosh です。これほど閉じたマシンにはそう 
そうお目にかかれないでしよう。本体を開 
けることさえ簡単にできないのです（オー 
ブナーキットが売られている)。手で簡単に 
開けられる Apple II とはまったく対照的で 
すね。 

つまり Macintosh は，オペレーティング 
システムも含め「マックライク」のひとこ 
とで象徴される独自の世界を作り上げてい 
るのです。クローズドであるからこそ，ま 
るで新興宗教の信者のような熱烈な支持グ 
ループを作り出しています （98 にまであの 
「サイケな」りんごマークを貼っている僕も 
信者なのかもしれません)。 

オープンそしてクローズドのまったく両 
極端で，しかも優れた2つのマシンを作り 
出した Apple 社の独創性にはただ驚いてし 
まいます。 

Apple II とは正反対の方向性を持つ Mac 
が発表されたときは落胆の声も聞かれまし 
た。しかしこの方向性はその後しばらくの 
パソコン界の大きな流れの指針となり 
続けたのでした。 

Mac の傑出したインタフェイスには定評 
がありますが，逆にそれは欠点にもなりま 
す。たとえば，エディタを作ろうとしてッ 
ールボックス（システムルーチン）を調べ 
たときのことです。 Mac 上で標準となって 
いるような画面ェディタなら驚くほど簡単 
に作れるのですが，最近僕が手を出してい 
る構造エディタをうまく載せようと思って 
も限界があり， Mac 的な作法からはずれた 
プログラム手法を取らざるを得ませんでし 
た。その結果，相当の努力が必要だとわか 
り，現在中断状態です。 

このようなことは Mac でプログラムを作 
るときは当たり前なのかもしれません 。 M 
ac でのプログラム開発については，図1の 
ようなことがいえるかと思います。これは， 
ある雑誌で見たグラフだったと記憶してい 
ます。つまり，初めあるいは初心者はほか 
のマシンよりも効率的に作業をすることが 
できますが，時間がたってもあまり上達が 
見られない，あるいはベテランでも腕の見 
せどころがないということです。 

Mac はプログラム開発マシンではないと 
いわれるかもしれませんが，基本的なファ 
イル操作などについても，これは無関係な 
話ではないと思います。たとえば，バッチ 


図 1 Macintosh におけるプログラムの生産性 

(あくまでもひとつの意見） 



ファイルという概念がありませんので，操 
作に慣れて作業が定型化してくると，マウ 
スでの意味付けを伴う作業を面倒に思う人 
がいても不思議ではありません。 

閉じたシステムに入ると思われる BTR 
ON に関しても，あのキーボードを無理や 
りあらゆる人たちに押し付けるのはとうて 
い困難な話だとある友人がいっていました 
力 5 ',それも一理ある気がします。アメリカ 
を始めとして日本でも完全に普及している 
キーボードの配列はもうかなり昔に作られ 
たものですが，それは今なぉ不動の地位を 
保ち続けています。実は，その間にいろい 
ろなデータに基づいてもっと効率的なキー 
ボード配列がいくつも提案されたのですが， 
結局は消えていきました。それほどインタ 
フェイスとは相手が人間であるだけに微妙 
なものなのです。 

今をときめく X 68000 について初めて情 
報を得たときは，僕は完全に Mac のような 
クローズドなマシンであると思い込んだの 
ですが，詳しく知れば知るほど，これは実 
はオープンなマシンではないかと思うよう 
になりました。 

ただし，元祖 MZ や NEC-PC や IBM-PC 
のような典型的オープンタイプのパソコン 
とは違い，比較的容易にクローズドとなり 
得るような，新しいタイプのオープンなマ 
シンといえると思います。 

L j けつびろげでいいか°? / 

OS のインタフェイスのところに話題を 
絞ったときに対照的なのは， UNIX とやは 
り Mac の 0 S でしよう。 UNIX では，シス 
テム側は最小限のユーザーインタフェイス 
しか提供しません力 5 ',その気になればかな 
り深いところまで入り込むことができます。 


しかし，うっかりすると痛い目にあいます。 

たとえば， UNIX ではキーを5回ほど打 
つだけでそこにあるすべてのファイルが一 
瞬にして消えてしまいます。 Mac ではファ 
イルをごみ箱に捨てても，その中を晛くと 
きちんと残っており ， “Empty Trash ” を 
実行しなければ，また復活することが簡単 
にできます。 

「知能機械」というものが人々の生活に直 
接関わってくる将来を考えたとき，「オーブ 
ン」の意味するものが単に「なんでもし放 
題」ならば，大きな問題が生ずると思いま 
す。少なくとも初期の頃のように，本体が 
すぐに開いたり，ソフトウェアでなんでも 
できてしまうような意味での「オープン」 
ではまずいということです。 

/「オーブナブルク□ーズド」なマシン y 7 

初めの頃のマシンは，仕方なくオープン 
であったけれども， Macintosh の出現から 
急にクローズドなシステム，つまり計算機 
側が最大限に，ある閉じたインタフェイス 
を提供する方向へと向かっていきました。 

しかし理想的なパソコンはやはり開いて 
いるほうだと思います。人間と計算機の境 
界の部分は完全に人間側に属するべきです。 
そうすれば， ユーザーは 計算機だからと い 
って特別の行動をとらなくてすむのです。 

さらにハードウェアを含めたトータルア 
ーキテクチヤも，初期のパソコンとは別の 
意味でのオープン性が，インタフェイスか 
らの要求で必要になってくると思います。 

このような方向に向かうことは，クロー 
ズドシステムのよくできた典型例である M 
acintosh を使い込むにつれて，多くの人が 
次第に感じるであろう限界を鑑みれば，ご 
く自然な結論ではないかと思います。 

では， BTRON のような Mac 的な方向 
性を持つマシンの今後の位置付けですが， 
これらは専用マシンとして，ハ。ソコンとは 
別の道を歩むだろうと思います。ワープロ 
マシンがパソコンとは一線を画すように， 
高級文房具としての確実なしかもパーソナ 
ルな地位を占めるのです。 

開くことの可能な閉じたマシン，つまり 
「オーブナブルクローズド」ということが， 
ちょっと先を見たときの目標といえます。 
そういうマシンの第一歩として X 68000 が振 
り返られる日がもうすぐ来ることでしょう。 
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_ 〈特別編〉_ 

MZ-700 で 
GP - 旧を 



Katsumoto Shin 

勝本信 


ひと昔前，鮪食いの「通 J は卵焼きを注文 
するといわれた。卵焼きは鮪職人が自分で 
焼くため，腕の善し悪しが一番顕著に現れ 
るから だ。コンピュータの 「通」が最後に の 
めりこむのが GP - IB である。 ワープロに 飽 
き， グラフィックに 飽き， C に 鮑き た ユー 
ザーは次々と GP - IB の関門をくぐり，コン 
ピュー タメ ーカ ーの 愚かさに泣き，またメ 
一力一のプログラマを恨みつつ，コントロ 
ールプログラムを 自分で組むこと になる 0 

GP-IB (General Purpose -丄攸!! ace 
Bus)， なんという心地よい響きであろうか 0 
もともと，米国ヒューレット•パッカード 
社の測定機器と計算機を接続するためのィ 
ンタフェイス規格であった HP-IB は， 1978 
年に世界的な標準規格 IEEE-488 と L て採 
用され， GP-IB となった。 GP-IB を使うこ 
とによって，多くの研究者がメーターの読 
みをノートに書き写すという単調な作業か 
ら永遠に解放されたことはすでに何回か述 
ベた。今回は，同じくコンピュータの「通 j 
が好む MZ-700 を取り上げ，メーカーによ 
るサポートなしに MZ-80B 用 GP-IB ボード 
を使用する方法を探索してみることにする。 

なお，これから述べるノウハウは MZ-80 
B, 2000/2200/2500, 700/1500 の各シリー 
ズにおいて共通に利用できるものである。 

GP - IB とは何か 

GP-IB インタフェイスの特徴をひとこと 
で述べれば，複数の機器を同時に接続でき 
るという点に尽きる。その秘密は，データ 
の転送を始める前にコンピュータがデータ 
の送り手（卜一力），受け手（リスナ）を指定 
することにある。 GP-IB インタフェイスに 
接続される機器はそれぞれアドレスと呼ば 
れる自分の番号を持っており，コンピュー 
夕は何番の機器はトーカに，何番はリスナ 
に，という具合いに t 旨定を行う。もちろん 
コンピュータ自身がトーカになったりリス 
ナになったりすることもある。 

複数の機器を制御するためのもうひとつ 
の秘密は 3 線 ハンドシヱ イクである。他の 
多くのインタフェイスにおいては， ハンド 
シェイクは2本の制御線を用いて行われる。 
すなわち，受け手が送り手に対し「データ 
を送ってもいいですよ」と呼び力 1 けると， 
送り手はデータを送るとともに，「データ 
を送りましたよ」と反応する。受け手の「デ 
ータを受け取りました」という反応は，最 


初の「データを送ってもいいですよ」を兼ね 
ることになる。 

これに対し GP - IB では，リスナ（受け手） 
が2本，トーカ（送り手）が1本の制御線 
を用いる。「データを送ってもいいですよ」 
とリスナが呼びかけると，トーカはデータ 
を送り，「データを送りましたよ」と応答 
する。ここまでは2線式と同じであるが， 

リスナは「確かにデータを受け取りました 
よ」という反応を3本目の制御線を用いて 
行うのである。これにより，リスナが複数 
である場合でも，データ転送のもっとも遅 
いリスナに歩調を合わせてハンドシェイク 
を行うことができる。リスナの反応が2種 
類あるため，1本の制御線の on / off だけで 
は，「リスナ全員がデータを受信できる状態 
にある か」， ぉよび「リスナ全員がデータを 
受け取ったか」，の両方を判断することは不 
可能なのである。 

卜一力 （ talker ) とリスナ （ listener ) の 
指定を行うためにはなんらかのコマンドを 
送らなければならない。このコマンドとい 
う概念も GP - IB の特徴のひとつである 。 G 
P - IB ではデータバス上に乗っているのがコ 
マン ドなのかデータなのかを，1本の制御 
線 ATN を用いて区別している。 ATN が 
Low の場合はコマンドモードであり ，デー 
タバス上の情報はトーカやリスナを指定し 
たり，周辺機器を制御するためのコマンド 
として取り扱われる。 

MZ シ 1 J —ズにおける GP -1 B の歷£ 

MZ シリーズ用に GP - IB インタフェイス 
がサポートされたのは MZ -80 B からで，ボ 
ード名 MZ -8 BI 04 であった。ボード上には 
大型のカスタムハイブリッド 1 C の脇に Z 80- 
-PIO (わざわざカスタムを起こした上に PI 
0を併用するとはどういうことだろう力り 
が並び，さらに TTL が12個使用されている。 
このボードこそ，我々がこれから MZ -700 
で使ぉうとしている宝物であり， MZ -80 B 
を始めとして2000/2200/2500，700/1500の 
いずれの拡張ュニットにも装着可能である。 

発売当時の価格は4万5千円であり，日 
電ゃ富士通など他の機種と比べても若干安 
かったようだ。特に MZ 用の RS -232 C ボー 
ド （ MZ -8 BI 03) が5万円もしたため，感 
覚的にはかなり安いという印象を受ける。 
なお， MZ 用周辺機器の中には， TTL が数 
個乗っただけの GP - IO ボードというまぎら 
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図 1 MZ - 已巳104ブロック図 
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図 E I / O ポート機能表 


アドレス 

接続 

機能 

COh 入力 

PIO - A / データ 

DAV , NRFD . NDAC , EOI . ATN , SRQ , IFC r REN の状態読み取り 

CIh 入出力 

PIO - B / データ 

MZ 自身がトーカかリスナかの状態読み取り（2 5 ,2 6 ) 

EOI , ATN , SQR , IFC , REN を制御(2°~2\2 7 ) 

C 2 h 出力 

PIO - A / 制御 

Z 80- PIO の制御語用 

C 3 h 出力 

PIO - B / 制御 

Z 80- PIO の制御語用 

C 4 h 入出力 

データ バス 

データバス Do 〜 D 7 への入出力 

C 5 h 出力 

HIC 制御 

MZ 自身を卜一力/リスナに設定，シリアルポール応答 
データ/コマンドの送信時のハンドシェイク 


わしいものもあるが， GP - IB とはなんの関 
係もないので注意が必要である。 

今回は， HuBASIC など通常の BASIC 
インタプリタ上で INP ， OUT 命令のみを用 
いて GP - IB ボードをコントロールする方法 
を述べるため ， SHARP BASIC の GP-IB 
用命令については一切知る必要はない。 

実際に使ってみよぅ 

I / O ポート 

GP - IB ボ、ード MZ -8 BI 0 4 のブ、ロ ッ クタ、、イ 
アグラムを図1に示す。このボードは ， Z 
80 CPU の I / O 空間に接続される。使用す 
る I / O アドレスは COh から C 5 h までの6つ 
である。そのうち2つがハイブリッド IC(H 
1 C ) を直接制御するためのものであり，残 
りの4つは Z 80- PIO のデータポートと制御 
語用ポートに使用される。この COh から 
C 5 h までのアドレスは MZ -80 B 以降の MZ - 
2500まで，すべての MZ シリーズ （8 ビッ 


卜）において GP - IB ボードのための予約済 
みとなっている。 

図2に各ポートの機能表を示す。ポート 
への入出力は BASIC では INP 関数と OUT 
命令で行えばよい。アドレス CIh のポートは 
ビットによって入力と出力とが混在してい 
るが，これは Z 80- PIO のモード3 (ビット 
モード）のお陰である。8本の線を自由に 
入力と出力に割り振って使うことができる 
のだ。なお，入力の線（ビット）へ書き込み 
を行ってもなにも起こらないし，出力の線 
から入力を行うと以前に書き込んだデータ 
が返される。最初に Z 80- PIO をモード3で 
割り込み禁止に設定しておけば，あとはデ 
ータポートに入出力を行うだけでよい。 

MZ -700 で GP - IB ボードを使う際は拡張 
ユニット 1 U 03 を経由して接続することに 
なるが， 1 U 03 は Z 80 CPU のモード2割り 
込みが使えないので十分な注意が必要だ。 
原因は，周辺 LSI が割り込みベクトルを送 


出する際にバッファゲートが開かないとい 
う，設計上の単純なミスである。通常的な 
GP - IB の使用においては，わざわざ割り込 
み駆觔するほどのこともないため，問題に 
はならない0シリアルポールも，割り込み 
ではなくポーリングで処理できるからだ。 
しかし， RS -232 C などの「いつデータが来 
るかわからない」ようなインタフェイスの 
場合は割り込みが不可欠である。困ってい 
る（あきらめた？）人も多いことた^ろう。. 
GP - IB でもシリアルポールやパラ レ ルポー 
ルを使う場合には割り込み駆動にできない 
こともないが，たいていはポーリング (COh 
ポートの2 2 ビットを監視）で十分である。 
接続ケーブル 

コネクタの形状を図3に示すが ， IEEE 
規格と IEC 規格の2種類ある。 IEEE は26ピ 
ンアン フエノー ルタイプ， IEC は25ピンの 
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図 3 コネクタの形状 


リスト1サンプルプログラム 




D - SUB ( RS -232 C と同じ）である。実際に 
使用されているのは，コンピュータ側も測 
定器側も IEEE 規格のコネクタがほとんど 
なのだが， MZ 用 GP-IB ボードは例によっ 
て実際にはほとんどみかけることのない IE 
C 規格を採用している。いまさら驚〈こと 
もない：^ろう。 

変換ケーブルは簡単に自作することがで 
きる。わざわざ高価な GP-IB 専用コネクタ 
でなく，一番安い 25 ピン D-SUB (メス）と 
26 ピンアンフエノール（オス）を買ってきて 
対応するピンを配線すればよい。なお，正 
式な規格にはアース線が各制御線ごとに設 
けられているが，ケーブルをよほど長くし 
ない限り1本にまとめてしまっても十分作 
動する。 

コントロールプログラムを作る 

ここが今月のポイントである。マニュア 

ルではマシン語によるコントロールについ 

てなにも触れていないため図 3 を頼りに手 
探りで解析していった。 COh から C 5 h までの 
入カポートの値を2進数で表示させるプロ 
グラムを作り，ポートへの出力に対してど 
のように変化するかを1ビット1ビット追 
跡した。 

サンプルプログラムをリスト 1に 示す が 
その手順について簡単に説明しよう。まず 
最初にやらなければならないことは Z 80 -P 
10 の初期化である。モード 3 (ビットモー 
ド）に設定し，図2に従って入出力を決め 


る。割り込みは禁止しておく。ハイブリッ 
ド 1 C のほうは初期化は特に必要ないが，と 
きどき暴走することがある。その場合は拡 
張ユニットの電源を入れなおせばよい。な 
お， MZ _ 7 00 本体のリセットでは復旧しな 

い0 

Z 80 -PIO の設定が終われば，あとは一般 
的な GP-IB 操作と同じである。 IFC をイネ 
ーブルにするには， C 1 h ポートの2 1 ビット 
をいったん1にして.から0にすればよい。 
次に，リスナとトーカの指定をご破算にし 
てやり直すためにアンリスン （3 Fh ) とアン 
トーク （5 Fh ) を送る。 C 1 H ポートの2〇ビッ 
卜 （ REN )， 2 3 ビット （ ATN )， 2 4 ビット 
(not E 0 I ) のそれぞれを 1 にして（リモー 
トイネーブルであり，コマンドモードであ 
り，データエンドではないように設定）か 
ら C 4 h にアンリスン (3 Fh ) とアントーク 
(5 Fh ) を書き込む。 

データやコマンドの転送は3線ハンドシ 
ェイクを使って行う必要がある。 GP-IB 用 
BASIC 上ではこれらのハンドシェイクを 
BASIC インタプリタが行うため，ユーザ 
一は気にしなくともよいのだが，我々は自 
分でハンドシェイクを行わなければならな 
い。一見大変そうに見えるかもしれないが， 
ポートの特定のビットを監視したり，書き 
込んだりするだけの簡単なものである。そ 
の上， SHARP の GP-IB 用 BASIC にはデ、一 
夕を1文字送受信するという基本的なコマ 


1000 MZ-8BI04 CONTROL PROGRAM 
1010 P-&HC2 ： 0UT P,&HCF ： 0UT P, 255: OUT P, 7 
1020 P-&HC3 ： 0UT P ， &HCF:0UT P , 96 ： 0UT P,7 
1030 * 


1040 OUT &HC1,2 *IFC enable 

1050 OUT &HC1,16+8+1 *E0I disenable 


1060 

1070 

1080 OUT &HC4,&H3F 
1090 OUT &HC4,&H5F 
1100 OUT &HC5,18 
1110 OUT &HC 5,128 


: ATN enable 
/REN enable 
"UNListen 
舊 alk 

"MZ isn't listener 
MZ is talker 


1120 OUT &HC4,&H20+14*listener is #14 


1130 OUT &HC1,1B+1 飞 01 disenable 

1140 'ATN disenable 

1150 *REH enable 

1160 D$-* ， F0R0S0T1K0G0YX** : G0SUB**SEND" 


1170 WHILE 1 

1180 OUT &HC1,16+8+1 EOI disenable 
1190 ^ATM enable 

1200 *REH entble 

1210 OUT &hC4, 紐 3F ^UKListen 

1220 OUT &HC4,fcH5F ^UNTtlk 

1230 OUT &HC5,32 IkZ is listener 


1240 OUT &HC4»&H40+U^tftlker is ttli 


1250 OUT &HC4,0 
1260 OUT &HC1,1B+1 
1270 
1280 


important!! 
’EOI disenable 
"ATN disenable 
4 HEN enable 


1290 # 
1300 E-0 


1310 WHILE E-0 
1820 G0SUB "GET- 
1330 PRINT G $； 


1340 WEND 
1350 PRINT 
1360 WEND 

1370 •文字列データ送信サブルーチン 
1380 LABEL"SEND" 

1390 FOR 1-1 TO LEN (D$) 

1400 OUT &HC4,ASC(MID$(D$ ， I ， 1}) 

1410 NEXT 1 
1420 RETURN 

1430 *1 パイトデータ受信サプルーチン 
1440 LABEL*" GET- 


1450 OUT &HC5,1 

1460 WHILE (INP (&HC0)AND 128)-0:WEND 
1470 G$-C 冊 $(im>(AHC4)) 

1480 E-IHP(AHCO) AND 16 
1490 OUT &HC5,0 
1500 RETURN 


アドレス 14 番のデジタルマルチメータ （KE 
ITHLEY 社モデル 195)に， “ FOROSOTIKOGOYZ " 
というデータを送って測定 レンジ の設定など 
を行い，あとは送られてくるデータを受け取 
って（デリミタは EOI 制御線）画面に表示する。 
データ送信：変数 D $ に文字列データを入れて 
サブルーチン “ SEND ” をコールする。 

データ受信：サブルーチン “ GET ” をコールす 
ると変数 G $ に丨バイト受信してリターン。そ 
の際，変数 E が 0 ならば EOI はイネーブルで 
はない。 
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ンドが欠如しているため，結局自分でプロ 
グラムを組むことになる。 

なお， BASIC インタプリタ程度の速さ 
では，データやコマンドの送信に際し，ハ 
ンドシヱイクは実質的に不要である。単に 
C 4 h ポートにデータを書き込むだけでよい。 
受信の際のハンドシヱイク手順は図4に示 
しておく。ある程度はハードウェアでやっ 
てくれるため， C 5 h ポートの2〇ビットを操 
作する/ごけでよい。 

ハイブリッド 1 C の問題点 
GP - IB 用 BASIC がデータ転送に際して 
デリミ タコー ドを必ず付けてしまうため， 
バイナリデータを取り扱うことができない 
ということは以前に述べた。多くの先人が 
この問題を解決するべく，マシン語による G 
P - IB ボードの コント ロールに挑戦し，敗れ 
去った。なぜ，うまくいかなかったのか。 
コマンド モード （ ATN が low の状態）で書 
き込んだ最後のデータがバスにいつまでも 
残り，測定器からのデータと重なって （0 
R ) しまうのである。 

とんでもないバグであるが，解決方法は 
いたって簡単で，コマンドモードの最後に 
0を書き込めばよい。コマンドとしての0 
は GP - IB 規格では未定義であるからなんら 
悪さはしない。あるいは0はハイブリッド 
1 C の中で処理され，バスへは出力されない 
のかもしれない。いずれにしても， MZ -8 B 
104の設計者がいかにいいかげんであった 
かを如実に物語っている。 

そのほかにもいく つか 注意すべき点があ 
るため，以下に列挙しておく。まず，コン 
ピュータ 自身を トーカに する か リス ナ にす 
るかという設定を，他の周辺機器に先駆け 
て行う必要がある。具体的にいえば，アン 
リスンとアントークを送った直後に C 5 h ポ 
ートに適宜書き込んで設定すればよい。 

コンピュータ自身力す現在トーカであるか 
リスナであるかの状態（ステータス）は ClH 


ポートの2 5 ，2 6 ビットでわかるが，このビ 
ットが有効なのはデータモードだけであり， 
コマンド モードでは固定されている。トー 
力とリスナの指定は コマンド モードで行う 
必要があるが， コマンド モードではどちら 
のビットもまったく変わらない。 ATN を hi 
gh にしてデータモードに入り初めて変化す 
る。 

実廉に接縞してみよ5 

では，実際に測定機器をコンピュータと 
接続してどのようなことができるのか，ち 
ょっと凝った使い方の例をまとめておく。 

デジタル電圧計 

GP - IB インタフェイスを内蔵した測定器 
は一般に高価であり，そう簡単に購入する 
ことはできない（個人にはもちろん，研究 
所などにとっても高い)。1台だけ購入する 
としたら，まずデジタル電圧計である 。 G 
P - IB 付きのデジタル電圧計があれば，単体 
で測定に使えるだけではなく， GP - IB イン 
タフェイスを持たない他の機器からの出力 
を読み取って GP - IB に変換してくれる。 

定電流電源 

ちょっと耳慣れないと思われるが，定電 
圧ではなく，定電流電源である。試料に流 
れる電流をいろいろ変えながら，両端の電 
圧を測定すれば，電流一電圧特性 （ I - V 曲 
線）が簡単に得られる。 

信号発生器 

いろいろな周波数の交流を発生してくれ 
る信号発生器で， GP - IB 付きのものがある。 
これを使えば，アンプなどの周波数特性を 
自動測定することができる。周波数をコン 
ピュータで変えながら出力電圧を測定すれ 
ばょい。 

終わ D に 

多くのメーカーでは GP - IB に対するソフ 
トウェアのサボートが BASIC のみである 
ため， BASIC インタ 
プリタのスピードを 
GP - IB 自身のスピー 
ドと斟 Jit いし， GP - 
IB は遅い，という迷 
信を信じている人が 
多い。確かに BASIC 
インタプリタ上で使 
用する場合はかなり 
遅いのであるが，一 



般的にいってコンパイラやマシン語でプログ 
ラムを組むことにより，10倍以上高速にな 
るようだ。 

特定の測定機器とコンピュータを結ぶ専 
用インタフェイスを作ると，そのコンピュ 
—夕が1台まるごと測定にかかりきりにな 
ってしまい，他の用途に使えなくなる 。 G 
P - IB なら，インタフェイスを持ったコンビ 
ュータであればどんな機種でも接続でき， 
自由に取り換えて使える。 

もちろん， GP - IB にも問題点がないわけ 
ではない。現在，ューザーをてこずらせて 
いる一番の問題は，データの不統一■である。 
測定機器に対して“ A ” という文字を送った 
場合，どのような反応が返るかは，測定器 
によってまちまちなのである。同じデジタ 
ル電圧計でも，メーカーや機種によってまっ 
た〈異なるのだ。だから， GP - IB を使う際 
には， コンピュータのマニュアルと GP-IB 
の本と測定機器の マニュアル 3冊を抱えて 
右往左往することになってしまう。また， 

インタフェイスの規格自身にも曖昧な点が 
ある。•たとえばローカルロックアウト （LL 
0，11 h ) された状態から， GTL コマンド （0 
1 h ) ローカルモードに移行する機器とそう 
でない （ REN をデイスイ ネーブルに してや 
る必要がある）機器とが存在し，混乱を招 
いている。 

規格が敝しすぎれば i 凡用性がなくなり， 
採用するメーカーが減り，普及しにくい。 
一方，規格がゆるいと細かい点で食い遠い 
が現れるため，それを使うューザーが苦労 
することになる。その苦労もまた楽し。 

く参考文献〉 

1 ) 岡村迪夫：標準デジタルバス （ IEEE -488) と 
その応用， CQ 出版 

2) SHARP : MZ -80 用 GP - IB インタフェイスマニユ 
アル 

3) Z 80周辺 LSI 規格表， CQ 出版 


図4データ/コマンド受信手順 


手順 

実際の操作 

1. NRFD=I 

C 5 h ポートに丨を軎き込む 

2. DAC を監視 

COh ポートの2 7 ビットが丨になるまで待つ 

3. データ取込 

C 4 h ポートから丨バイト入力 

4. E 0 I チェック 

COh ポートの2 4 ビットが丨ならば最後のデータ 

5. NDAC = I 

C 5 h ポートに0を書き込む 

6. リターン 

RETURN 
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初めにどのような文字列がキーボードから入力されるのかとい 
うことについてお話しておきましよう。まず，カツコ，空白，ピ 
リオド，シングルクオートなどを含まない文字列があります。こ 
れは 

CAR , CDR , LIST , PRINT , …… 

というような文字列で， Lisp ではこれらのことをアトムと呼んで 
います。 

次に先月やった 1 ノストがあります。これはアトムの並びをカツ 
コでくくったもので， 

(A ( B ) C ) 

というようなものです。この例からもおわかりのように，リスト 
の要素となれるのはアトムだけではなく，リストもリストの要素 
にすることができます。 

特に 


A B 

というセルで表されるリストを 

( A . B ) 

と書き，これをドッテイッドペアと呼びます。 

ドッテイッドペアについて先月の復習をすると， 

( A . ( B . (C . NIL ))) 

というのは 

(ABC) 

と同じことなんでしたね。思い出してもらえましたか。 

Lisp ではアトムとリストを併せて S 式と呼びます 0 S 式は Lisp 
が扱うことのできる唯一のデータです。 

以上ざっと先月の復習をしてみました。特にセルとリストとの 
関係は重要ですから，忘れてしまった方はもう一度先月号を取り 
出して，復習していただくことをお勧めします。 

ini 川川⑴川川川川川 im 川 I CONS ルーチン 1111111111111 iiiiiimimimiiiiiii 

CONS というのは construct (組み立てる）を略したもので，新 
しいセルを作り出すルーチンです。セルには2つの部屋があり， 
それぞれの部屋にポインタを書き込むことができます。 

この2つの部屋の，前の部屋を CAR 部，後ろの部屋を CDR 部 
と呼びます。 CONS ルーチンの役割は， CAR 部， CDR 部に書き込 
むボインタを2つ受け取って，これから新しいセルを作り出して 
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前回はリストとい a データ構造の紹介とともにメモリ上に作った 
リストを画面に表示させるプログラム 「 PRNT 」 を作ってみまし 
た。今月は Lisp 製作に向けてその第2弾としてキーボードから 
カツコ付きで入力した文字列を，メモリ上にリストとして展開し 
てくれるルーチン REA □を作ってみることにします。 

やることです。そして作り出した新しいセルへのポインタを値と 
して返します。たとえば CONS ルーチンを P 1， P 2 という2つのポ 
インタを与えて呼び出したとすると，まず CONS は 


という新しいセルを用意します0そしてこのセルへ 
1 PI I P 2 1 

というぐあいにポインタを書き込み，最後にこのセルへのポイン 
夕を返すのです。 

P 1 が A というアトムへのポインタ， P 2 が B というアトムへのポ 
インタだとすると， CONS した結果 (A . B ) へのポインタが返り 
ます。 

新しいセルを用意するとありますが， CONS ルーチンはいった 
いどこから新しいセルを持ってくるのでしよう。 

図1を見てください。これは今回作ろうとしている Lisp のメモ 
リマップです。まだ全体を作ったわけではありませんのでだいた 
いの概略に過ぎませんが，このままで恐らく問題はないと思いま 
す。このなかにセル領域と書いてあるところがありますね。ここ 
がセルを入れる場所です。 

実はこのセル領域は最初， 

rr^rT^rT^rT^rr^ …… 

…… ~~ r^rx^i 

というぐあいに初期化されます。先月お話したようにひとつのセ 
ルは4バイト使って表現されますから，セル領域には全部で5 K 
個のセルがあるわけですが，この 5 K 個のセルがすべてつながっ 
てリストを作っているのです。この長いリストのことを自由リス 
卜と呼びます。そして自由リストの先頭を NEWCELL というポ 
インタが指しています。 

今月登場する命令たち （17 語） 

LD 値を入れる。 「LD (9876h),Aj で 9876h 番地に A が入る 
CALL サブルーチンを呼ぶ。 r CALL Z, 林 NLj は ゼロなら# NL を コール 
RET サブルーチンから帰る。 「RET Cj はキャりなら帰る 

PUSH スタックにレジスタの値を保存する （ex.「PUSH HLj) 

POP スタックからレジスタに値を取り出す （ex.「POP DEj) 

AND A = A AND m。m はレジスタまたは数値 

XOR A = A XOR m 

OR A = A OR m 

CP A と m を比較する。結果はフラグに残る 

ADD A = A + m, HL=HL + rp 0 rp はレジスタペア (HL, DE, BC) 

SUB A = A-m 

SBC A = A —m-cy, HL = HL —rp-cy 

INC レジスタの値を I 增やす 

DEC レジスタの値を I 減じる 

JP BASIC の GOTO に相当。 「JP 8000 hj は 800 Oh 番地へのジャンプを行う 

JR 相対ジャンプを行う 

EX r EX DE, HLj は DE と HL の内容を交換する 
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^5 EWCELL 

…… * r~r^rT^r~r^kr~r^i~ 171 

と，このような状態になっているわけですね。 
cons ルーチンがセルをひとつ消費すると，この自由リストは 

NEWCELL 

( _ 

_ 1 __ r ___ , ■ 

r~r~i rT^r~r^rr^r i + …… 

…… ^ rT ^ rr ^ rT ^> i ~ r ^! ~~ c^i 

というぐあいになります。自由リストの最初の1個がリストカ*ら 
外されるわけです。そして NEWCELL は自由リストの新しい先頭 
を指すようになります。 CONS は自由リストから外したこのセル 
に2つのポインタ PI ， P 2 を書き込みますから，セル領域は 


ipnp2i 广 i:> 「 i +1 r+i 厂 + …… 

…… * r~r^rT^r~r^rT^>r~i7i 

というぐあいになります。 

そして最後にこの | P 1 丨 P 2| という セルへの ポインタが返されて 
CONS は終了します。 

以上の動作をマシン語で実現しようとするとどうすればいいで 
しよう0まずセル領域をフォーマットしてくれるルーチンが必要 


INC HL 
LD ( HL ), C 
INC HL 

LD ( HL ), B ; CDR 部を書き込む 

DEC HL 
DEC HL 

DEC HL ; セルへの ポインタを返す 

というぐあいに処理してやればいいということになりますね。 

IIMI||llll|lll|llll|illiil RE AD Jb _ 川川 111111 川 NHIHI 

ではいよいよ READ ルーチンを作りましよう。リストは再帰的 
なデータ構造ですから，それを読み取る READ ルーチンも再帰的 
に定義してやるのがもっとも簡単です。入力は2つの場合に分か 
れます。アトムであるか，それともリストであるかです。そこで 
READ ルーチンを次のように作ります。リストに変換する文字列 
が入っているアドレスを DE がす旨しているとすると， 

READ (卜 
空白をカットする 
if ( DE ) が‘(’ then 
RDCDR () を呼び出し 
その結果を返す 

else 


です。このルーチンは 


ORG 

600 OH 

#1: DEFW 

〇,#2 

#2: DEFW 

〇,#3 

#3: DEFW 

〇,#4 

# END : DEFW 

0,0 


とやるのと同じように，メモリをフォーマツトしてくれるルーチ 
ンです。 

次にセルをひとつ切り出してくるルーチンが必要です。このル 
ーチン GETCELL は， 

LD HL , ( NEWCELL ) ; 新しいセルへのポインタを HL へ 
PUSH HL ;それを保存 

INC HL 

INC HL ; HL が; CDRSB をす旨すようにし 


MKATOM () を呼び出し 
その結果を返す 
endif 

というぐあいになります。 

ここで MKATOM というのは，アトムを作り出すルーチンです。 
もし文字列が「(_!で始まっていなければそれはアトムだというこ 
とですから， MKATOM ルーチンに制御を移してアトムを作り出 
させます。この MKATOM ルーチンはちよっと複雑なのであと回 
しにしますが，アトムを作り終えた段階で， DE がアトムの次を指 
して帰ってきます。具体的にいうと， 

(KOKOWA DOKO ) 

という文字列の KOKOWA の頭を DE が指していたとすると ， MK 
ATOM を呼び出した結果， KOKOWA というアトムが作られ DE 
は KOKOWA の後ろのスペースを指すようになって帰ってきます。 
次に RDCDR です。このルーチンは 


LD E , ( HL ) 
INC HL 


LD D , ( HL ) 

LD ( NEWCELL ), DE 
POP HL 


DE に CDR 部の情報を取り出す 
それを新たに登録 
保存しておいたボインタを取り出す 
というぐあいにやればいいですね。 HL に新しい セルへの ポイン 
夕を取り出すことができ，ついでに NEWCELL が指すアドレス 
も変更してやることができます。 

ここまでできれば CONS ルーチンを作るのは簡単なことです。 

2つのボインタを受け取りそれをセルに書き込んでやればいいの 
ですから， CAR 部に書き込むポインタを DEC , CDR 部に書き込 
むボインタを BC に持っているのだとすると， 


CALL GETCEL •，新しいセルを得る 
LD ( HL ), E 


RDCDR (卜 
空白をカットする 
if ( DE ) が‘）’ then 
NIL を返す 

else if ( DE ) が‘.’ then 
READ () を呼び出す 
‘V が現れるまで DE を進める 
先の READ () の結果を返す 
else 

CONS ( READ ( ), RDCDR ()) を実行し 
その結果を返す 
endif 

と，定義します。 

もし （ DE ) が「)」だったなら NIL を返します。 NIL というのは 


INC HL 


(A . NIL ) = ( A ) 


LD ( HL ), D ; CAR 部を書き込む 


というときの NIL です。通常リストの終端を表す記号として用い 
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図 1 Lisp システムのメモリマップ るのは先月説明したとおりです。 

もし （ DE ) が「•」だったら RE 
AD () を呼び出して，続く文字 
列を READ ルーチンに処理させ 
ます。そのあと， （ DE ) が「)」に 
なるまで DE を進めます。これ 
は， 

(A • B C ) 

というような間違った入力がな 
されたときに対応するためです。 
この場合 C というアトムは無視 
されることになります。 

( DE ) が「)」でも「•」でもなか 
ったときには， READ ルーチン 
を呼び出した結果と ， RDCDR 
() ルーチンを呼び出した結果を 
CONS します。 

以上の READ ( )， RDCDR () の2つのルーチンにより，すべて 
の S 式に対応してリストを生成してやることができるのです。ち 
ょっと試してみましょう。入力がアトムだった場合は追いかける 
までもないでしょう。そこで入力が 

() ' 

だった場合を考えます。これはリストのかたちをしていますが実 
は NIL というアトムと同じことです。 

READ () を呼び出すと，最初の文字は「(」ですから RDCDR () が 
呼び出されます。次に DE は 「) j をネ旨します。そこで RDCDR () の 
最初の条件に引っ掛かり NIL が返ります。これが READ () が返す 
結果になりますから，最終的に NIL が返って READ () は終了します。 
もう少し複雑な場合を考えてみましょう。入力が 
(A B ) 

だった場合を考えてみます。判りやすくするために，現在 DE が指 
している文字を□で囲っておきます。まず最初に READ ( )が呼び 
出され， 

□A B ) 

となっていますから， RDCDR ( )が呼び出されます。いま， 

(囚 B ) 

です力 1 ら RDCDR () 内の条件を追っていくと，最後の ELSE のと 
ころにやってきますね。 CONS するためにはまず引数を求めなけ 
ればなりません。そこで READ () が呼び出されます。 DE が指して 
いるのはアトムですから READ () 内で MKATOM () が呼び出され， 
アトムへのポインタが返ります。次は CONS の2番目の引数であ 
る RDCDR () の呼び出しです。 

いま， 

( ADB ) 

ですからまず空白がカットされ， 

(A _ 

となります。これは「)」でなければ「.」でもありませんから， 
再び CONS の呼び出しです。まず READ () が呼ばれてアトム 
B へのポインタが返り， DE は 
(A BD 

を指します。今度は RDCDR ( )が呼び出され， NIL が返ります。 
これで CONS の2つの引数は求まりましたから，これらを C 
ONS してやります。この結果 
(B . NIL ) 


へのボインタが返ります。 

これで CONS の2つの引数が求まりました。ひとつは A へのポイ 
ンタでもうひとつは （B . NIL ) へのボインタです。そこでこれらを 
CONS します。この結果 
(A . (B . NIL )) 

へのポインタカす返ります。これは 
(A B ) 

というのと同じことです。 

上の字下げしてある部分は再帰していることを表しています。 
このほかにもいろいろな S 式を考えて，それがうまく READ でき 
るかどうか試してみてください。 

実際に READ ルーチンを作る際には， # GETL ルーチンを使っ 
て文字列を入力してもらう部分も付けなければなりませんので， 
ここで説明した READ () ルーチンは RDCAR という名前にしてあ 
ります。そして文字列を入力する部分を READ と名づけ，文字列 
の入力が終わったら自動的に RDCAR () を呼び出して文字列をリ 
ストに変換してくれるようになっています。 

iiinitiiiii! 11111111111 mm MKATOM ルーチン IHII! 111111111111111 lllliilll 

MKATOM ルーチンはアトムを作り出すルーチンです。図1の 
アトムエリアと書いてあるところにアトムを作るのですが ， Lisp 
のある性質のために，ちよっと面倒なことをしなければなりませ 
ん。それは，同じ文字列で表されるアトムはただひとつしか存在 
しないということです。文字列は先月と同じように 00 H で区切り 
ますが， 

00h 41h 00h 

という 「 A 」 を表す部分はこの領域のなかにただ1力所だけしか 
ありません。最初の 00 h はこの前にあるアトムの終了マークです。 

このような機構を実現するためには，アトムのサーチルーチン 
を組み込まなければなりません。このサーチルーチンというやつ 
がマシン語で作ろうとするとちよっと面倒なルーチンなのです。 

BASIC ならば2つの文字列が等しいかどうかは，「=」を使って 
簡単に調べてやることができます。しかしマシン語ではことはそ 
う単純ではありません。 （ DE 〜）に入っている文字列が （ HL 〜）に 
あるかどうかを確かめ，あった場合にはその位置を返してくれる 
ルーチンを作る方法を考えてみましよう。 

最初はすでに使われているアトム領域のバイト数を BC に入れ 
ます。次に HL と DE を保存しておきます。これは文字列の比較に 
失敗したときの用心です。そして （ HL ) と （ DE ) を上匕べます。もし 
違うなら保存しておいた HL と DE を取り出して， HL をひ！:つ大 
きくし， BC をひとつ小さくして上匕較を再開します 。 BC = 0 となっ 
てもまだ見つからなければ探している文字列はまだ登録されてい 
ないということになります。 （ HL ) と （ DE ) が同じだったら HL と 
DE をひとつ大きくし，次の文字を比較します。最後まで，つまり 
( HL ) = ( DE ) =00 h となるまで比較が成功したら保存しておいた D 
E を HL に取り出し，保存しておいた HL を HL に取り出し終了しま 
す。これは保存しておいた DE を捨てるための処理です。これによ 
って比較が成功したときには DE はアトムを表す文字列の次のアド 
レスを指すことになり， HL のほうはすでに登録されていたアトム 
のアドレスを指すことになります。 

DE の値を捨ててしまう理由は，先ほどの READ ( )， RDCDR () 
ルーチンの説明を思い出してもらえればいいでしよう 。 MKATO 
M () から帰ってきたとき DE はアトムの次をす旨しているのでしたね。 


300 Oh 


400 Oh 


500 Oh 


600 Oh 


B000h 


C000h 


システム 


アトム領域 


バッファ 


セル領域 


スタックエリア 
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この比較ルーチンをマシン語で書いてみると次のようになります。 
SEARCH : 

LD BC , ( SIZE ) ; BC に検索サイズを入れる 
LOOP : PUSH HL 

PUSH DE 

LOOP 1 : LD A , ( DE ) 

CALL CONV 
CP ( HL ) 

JR NZ , SRCH 1 
OR A 

JR Z , SRCH 2 


INC HL 


INC DE ; 

: HL と DE をひとつ進めて 

JR LOOP 1 ; 

; 次の文字を比較 

SRCH 1 : POP DE 


POP HL 

保存した HL と DE を取り出し 

INC HL 

HL をひとつ進めて 

JR LOOP 

検索を続ける 

SRCH 2 : POP HL 

DE を捨て 

POP HL 

HL を取り出して 

RET 

終了 


ここで CONV というルーチンがあります 力す， これは次のような 
ことをしてくれるルーチンです。 （ DE ~) に入れてある文字列の 
なかからアトムを拾い出して，これがすでに登録されているかど 
うかを調べるのがこのルーチンの役割なのですが，アトムは 00h 
で終わっているとは限りません。空白， カッコ， ピリオドはいず 
れもアトムの終了を意味します。ところが （ HL 〜）のほうはアト 
ムの最後は 00 h となっていますから，普通に比較すると失敗してし 
まうのです。そこで A がアトムの終了記号となり得るキャラクタ 
だった場合には，すなわち A が空白， カッコ， ピリオドのいずれ 
かだった場合には， A に 00 h を入れて返してやるのがこの CONV 
ルーチンです。なお，ここではサイズの処理は省いてあります。 

検索した結果，見つからなかった場合には （ DE 〜）に入ってい 
るアトムをアトム領域に加え， （ SIZE ) を更新します0この部分は 
上のルーチンには書き込んでありません。 

ここで紹介したルーチンは完全なルーチンではありません。た 
だ検索のやり方を簡単に把握してもらう目的で紹介しただけです。 
完全なルーチンのほうはリストの説明をするときに紹介します。 
このルーチンは検索速度を上げるため， CPIR を使ってプログラ 
ムしてあります。 

しかし， CPIR を使った今回のルーチンでもまだ遅い部類に入る 
のです。速度を要求されるサーチルーチンは，ほとんどが ハッシ 
ュ関数などの処置を施して検索速度向上に努めます。大量のデー 
夕を扱い，しかも処理の大半がデータ検索に費やされるようなプ 
ログ ラム，たとえばアセンブラ， コンハ。 イラの コードジェネレー 
夕，データベースなどでは検索速度は命ともいえるのです。今回 
の Lisp では検索するアトム領域はたかだか 4 K バイトですからそ 
こまで凝らなくてもいいでしよう。 

先月はアトムを表すボインタは AOOOh . 〜 AFFFh でした力 5 '， Lisp 
内では000 Oh 〜 OFFFh をアトムへのポインタとします。アトム領域 
は400 0 H 〜 4 FFFh ですから， MKATOM ルーチンがアトム領域の 
なかからアトムを探し当てたときは，そのアドレスから400 Oh を 
引いてアトムへのポインタとします。 

なぜこのようにしたのかといいますと，先月手でリストを作っ 


た際に，リストの終了マークとして最後のセルの CDR 部に000 Oh 
を書き込んだことを思い出してください。リストの最後のセルの 
CDR 部には NIL が入るのですが，これを000 Oh としたのです。と 
ころが今月の仕様では NIL はどんなに小さいアドレスに取っても 
400 Oh より小さくすることはできません。そこでこのような変換を 
施し，リストの終了マークと NIL が同じボインタになるように調 
整したのです。 

もちろんリストの終了マークを400 Oh にするのもひとつの手で 
す。しかし， HL 力 ? 000 Oh かどうかを調べるほうが400 Oh かどうか 
を調べるより簡単です。ここでは NIL は000 Oh ということに決め 
ます。 

11111111111111111111111 それぞれのブログラム説明" 11 " 

では プログラムを 見ながら説明をしていきましよう。ここで作 
るプログラムの 多くは関数です。関数には引数を与えて呼び出す 
と結果が返ってくるという性質があります。たとえば RIGHT $ と 
いう関数に 「 ABCj と1という引数を与えて呼び出すと 「 C 」 という 
値が返ってきますね。この性質を実現するために， HL レジスタを 
値を返すレジスタと決めます。関数に与える引数のほうは場合に 
応じてレジスタで渡すことにすればいいでしよう。引数がひとつ 
の場合は HL を使うということにしておきます。 

長いリストですのでいくつかに分けて説明していきます。入力 
するときはリストの番号にこだわらず，行番号に従って入力して 
いってください。 

リスト1 

まずリスト1です。これはキーボードから入力された S 式を内 
部表現に変換するルーチン READ () です。図1のメモリマップで 
バッファと書いてあるところにまず入力された文字列を納め，入 
力が終了したら RDCAR ( )， RDCDR () を使って変換します。114 
行からは最初の入力部分が始まります。 S - OS の# GETL を使っ 
て S 式を入力しますから，まず115行で DE に読み込むアドレスを 
セットします。 

次に116〜118行で RPAR ， LPAR の2つのワークをクリアしま 
す。このワークは入力された文字列のなかに右カッコ，左カッコ 
がいくつあるかを入れておくワークです。なぜこのようなワーク 
を持っているのかといいますと，長い S 式を入力するときのこと 
を考えているのです。1行では入力できないほど長い S 式や，1 
行に書いてしまうと見づらくなってしまう場合などは，行を分け 
て書くことができるようにしたかったのです。たとえば 
(COND ((NULL X ) Y ) 

(T (CONS (CAR X ) 

(APPEND (CDR X ) Y )))) 

という S 式などです。これはある関数の一部なのですが，これを 
1行に書いたのでは S 式の構造を見極めるのは非常に困難です。 
ところが行を分けて書くことができるようにすると，いったいい 
つ入力が終了したと判断したらいいのかわかりませんね。そこで 
左カッコの数より右カッコの数のほうが多くなったら入力を終了 
できるようにしたのです。 

120行で# GETL を呼び出して1行入力をしたら121〜138行で左 
カッコの数と右カッコの数を数えます。そして行の終端を表す 00 h 
を見つけたら140行へときます。140〜144行で左右のカッコの数 
を比較し，右カッコの数が左カッコの数以上だったら144行で RD 
CAR へと飛ばして変換に入ります。そうでなかったら146〜149行 


1文字取り出して 
これを変換 
A は （ HL ) と等しいか 
違うなら SRCH 1 へ 
比較した文字は 00 h だったか 
そうだったなら SRCH 2 へ 
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S-Expreasion 


(HPAR),A 
< LPAR),A 


#GETL 

A,(DE) 


NZ.READ3 
A,(LPAR) 


LD 

JR 

LD 


NZ,READ2 
A,(RPAR) 


A,(LPAR) 
B，A 

A,(RPAR) 


DE.BUF 

A,(DE) 

D£ 

Z,RDCAR1 


NZ f RDCDH3 

RDCAR1 

A,(DK) 


RET 

DEC 

CALL 

PUSH 

CALL 


POP 

CALL 

RET 


RDCDR 

C,L 

B V H 


で，ます行末の 00 h を空白に変え， DE をその次のアドレスを指す 
ようにしてから READ 1 へと戻り # GETL による1行入力を続けます。 

154行からは RDCAR です。これは本文中で READ () として紹介 
した部分です。155行で DE をバッファの先頭に戻し，156〜159行 
で余分な空白をカットします。そして161行で「(」かどうかを調べ， 
もしそうなら RDCDR へ t ，違うなら MKATOM へと制御を移し 
ます。163行で DE をデクリメントしているのは，156〜159行で空 
白をカットした際に DE が進んでおり，現在はアトムの2文字目 
をす旨しているからです。 

166行からは RDCDR です。166〜170行で空白をカットし，172 
行でまず「)」と比べます。もしそうなら174，175行で HL に000 Oh 
をセットして終了します。これは NIL へのポインタです。 

177〜184行はドッティッド ペアの 処理です。177行で「.」と比べ， 
もしそうなら179行で RDCAR を呼び出します。そのあと180〜184 
行で「)」までの文字をカットし，終了します。 

186〜194行はそれ以外のときの処理です。空白をカットすると 
きに読みすぎたキャラクタを186行でもとに戻し，187行で RDCA 
R を呼び出します。この結果は HL に帰りますからこれを188行で 
保存し，次に189行で RDCDR を呼び出します。呼び出しが終了し 

read ル-チン 


たら RDCDR の結果を BC に， RDCAR の結果を HL に入れて193行 
で CONS を呼び出し終了します。 HL と BC は CONS の引数です。 
DE はいま文字列バッファを指していますから， DE を壊すわけに 
いかないので BC を使用しました。 

以上で READ ルーチンは終了。次に MKATOM ルーチンの処理 
に入ります。 

199行が MKATOM ルーチンなのですが，ここでは SEARCH と 
いうルーチンへジャンプしているだけです。ここで数 ffl ： を扱うた 
めの特別の処理をしてやるつもりだったのですが，数値アトムを 
扱えるようにするとただでさえ複雑なプログラムがいっそう複雑 
になってしまいそうだったのでやめにしました。 Lisp % 理系の基 
本が理解できたら皆さんで挑戦してみてください。 

さて，サーチルーチンの基本は理解してもらえていると思いま 
す力す，ここではもう少し実践的なサーチルーチンをご覧にいれま 
しよう。これまでにも何度か使ってきた CPIR 命令は 

1) ( HL ) と A を比較する 

2) HL をひとつ大きくする 

3) BC をひとつ小さくする 

という®バ乍を （ HL 〉= A ， または BC = 0 となるまで続ける命令です。 


50D2 

50D2 

50D2 

5002 

50D2 

5005 

50D5 

50D5 

501)5 

5005 

50D5 

501)8 

50DB 

50DC 

50DE 

50DF 

S0E0 

50E3 

50E3 

50E4 

50E6 

50E8 

50E9 

50RA 

50EB 

50EC 

50EB 

50EF 

50F0 

50F2 

50F2 

50F3 

50F4 

50F5 

50F6 

50F9 

50FA 

50FC 

50FD 

50FF 


Make ATOM 


23 

18 FI 


05 0100 58 


212A E5 51 

24 E3 

25 22 E5 51 


29 01 00 58 


: FE 20 
28 07 
.FE 2H 
t 28 03 
‘ FE 29 


196 

197 
19fi 

199 MKATOM : 

200 JP SEARCH 

201 
202 ； 

203 ; Search Atom begins at DE 

204 ; 

205 SEARCH ： 

206 LD HL,(MXATOM) 

207 LD BC.ATMAREA 

208 OR A 

209 SBC HL,BC 


LD 

CPIR 


219 LD 

220 OR 

221 JR 

222 INC 

223 INC 

224 JR 

225 ; 

226 SRCH2 : INC 

227 PUSH 

228 PUSH 

229 SRCH3 ： LD 


CAM. 

CP 


230 

231 

232 

233 

234 JH 

235 INC 

236 INC 

237 JR 

238 SRCH4 : POP 

239 POP 

240 LD 

241 OR 

242 SBC 

243 RET 

244 ； 

245 SRCH5: POP 

246 POP 

247 INC 

248 JR 

250 MAKE ： LD 

251 MAKE1 : 


CALL 

LD 

JR 

INC 

INC 

JR 


252 

253 

254 

255 

256 

258 MAKE2 ： 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 ； 

269 ENDCK ： 

270 

271 

272 

273 JR 

274 CP 

275 JR 

276 CP 

277 RBT 

278 ENDCK1 : XOR 

279 RET 

280 


B t H 

HL r ATMAREA 

A, (DE) 

N2, HAKE 

HL 

HL 

A,(HL) 

A 

Z.SRCH2 

HL 

HL 

SRCH1 


DE 

A,(DE) 

ENDCK 

(HL) 

NZ t SRCH5 

A 

Z.SRCH4 


BC.ATMAREA 


SRCH1 

HL,(MXATOM) 
A,(DE) 

ENDCK 

(HL),A 

Z.MAKE2 

HL 

DE 


HL,(MXATOM) 
(SP) V HL 
(MXATOM),HL 


OR 

RET 


start ADRS 


ATOM head ? 


Z,ENDCK1 
NZ 


d 

ReD: 


11 


: Rl: 

R R A A 
A A c c 
p p D D 
;R L ; R R 
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128 Oh ! X 1988.2. 









CPIR 命令が終了したときにもしノンゼロだったなら BC =0 となっ 
て終了，ゼロだったら （ HL ) = A となって終了したのだと判断して 
やることができます。この CPIR 命令を使って作ったサーチルー 
チンが205行からの SEARCH です。 

まず最初に検索するバイト数を算出します。206〜212行で使用 
しているアトムエリアの最終アドレスを HL に取り出し， BC にア 
トムエリアの先頭アドレスをセットします。 HL から BC を引くと 
検索をするバイト数が求まりますから，これを BC にセットし ， H 
L にはアトムエリアの先頭アドレスを入れます。これで CPIR の 
用意は整いました。 

214行で ( DE ) を，つまり検索する文字列の最初の文字を A にセ 
ットし，215行で CPIR 。 この結果ノンゼロになれば検索した文字 
は見つからなかったということですから216行で MAKE へ飛ばし 
て新しいアトムを生成させます。 

そうでなかったら217, 218行で HL を2つ小さくします。これは 
CPIR が1)，2)， 3) のすベての処理を実行してからでないと終わら 
ないためです。このせいで HL は文字を見つけたアドレス+1を指* 
しているのです。2つ小さ〈することによって， HL は見つけた文 
字のひとつ前の位置を指すことになります。ここにはアトムを区 
切っている 00 h が書き込んであるはずです。そこで219〜221行で 
ここが 00 h かどうかを調べます。そうなら SRCH 2 へ飛ばして2文 
字目以降の比較に入ります。違うなら， CPIR が探し当てた文字は 
アトムの最初の文字ではなかったということになります。222〜 
224行て' HL をもとに戻して検索を続けます。 

226行の SRCH 2 へは CPIR が探し当てた文字がアトムの最初の文 
字だったときにやってきます。まず226行で HL を1増やし，アト 
ムの先頭を指すようにします。そして （ HL 〜）と （ DE 〜）を比較す 
るために227, 228行で HL と DE を保存します。ここから248行ま 
では先に説明したとおりです。追いかけてみてください。 

ただアトムへのボインタは 000 Oh 〜 OFFFh !: したので，それぞれ 
の最後でアトム領域の先頭アドレスを見つけたアドレスから引く 



メモリフオーマツトルーチン 


51AE 

51AE 

51AE 

51AE 

51AE 21 04 00 
51B1 11 00 80 
51B4 19 
51B5 EB 
5186 AF 
51B7 
51B7 77 
51B8 23 
51B9 77 
51BA 23 
51BB 73 
51BC 23 
51BD 72 
51BE 23 
51BF 

51BF 21 00 B0 
51C2 B7 
51C3 ED 52 
51C5 28 07 
51C7 

51C7 2104 00 

51CA 19 

51CB EB 

51CC 18 E9 

51CB 

51CE EB 

51CF 2B 

51D0 77 

51D12B 

511)2 77 

51D3 C9 

51D4 

5104 

5104 

51D4 

5104 

5104 D5 

5105 2A E7 51 
5108 E5 

51D9 23 
51DA 23 
51DB 5E 
51DC 23 
51DD 56 

51DH HO 53 E7 51 

51E2 E1 

51E3 D1 

51E4 C9 

51E5 



HL.4 

HL,DE 

DE»HL 

FRMTl 

DE.HL 


402 

403 

404 

405 

406 GETCELL ： 

407 

408 

409 

410 

411 

412 

413 


PUSH 

INC 

INC 


POP 

POP 

RET 


HL,(NEWCELL) 


D,(HL) 

(NEWCELL),DE 


； DE=HL+4 : HLrCELL 


；End Check 


； DE=HL+4 


；Get New Cell 


save Next Ceil 


ことによって変換しているところが，先のルーチンの説明とは異 
なっているところです。また247行で HL をインクリメントしてい 
るのは， CPIR から抜けたときの HL の値に戻しているためです。 

アトム領域に登録されていないときは， （ DE 〜）に入っている 
アトムをアトム領域に登録してやり，その登録したアトムへのポ 
インタを返さなければなりません。これ力 5 '250行からの MKATO 
M ルーチンの役割です 8 まず250行で登録されているアトムの最 
終アドレスを HL に取り出し，251〜257行で （ DE 〜）のアトムを 
( HL 〜）にコピーします。アトム文字列の最後を例によって END 
CK ルーチンで判定します。253行で ( HL ) に A を入れてから254行 
で文字列終了かどうかの判定を行っていますから，アトム終了を 
示す 00 h もここで ( HL ) に入れられます。 

登録が終了すると，258行で HL をインクリメントします。これ 
によって HL は登録したアトムの次のアドレスを指すようになり 
ました。259行でこの HL をスタックに押し上げ260行で登録され 
ているアトムの最終アドレスを取り出します。これは，いま登録 
したアトムへのボインタを計算するのに使います。そこで261行 
でスタックトップと HL を交換。これによってスタックにはさっき 
まで (MX ATOM ) が入っていた数値が， HL にはアトムエリアの新 
しい最終アドレスが入ります。そこで262行でこの HL を （MXAT 
OM ) に登録し，263〜267行で新しいアトムへのボインタを計算し 
て， MKATOM ルーチンは終了です。 

最後に残ったのは ENDCK ルーチンで すね。これは空白，ピリ 
オド， 右 カッコ を エン ド マークで ある 00 h に変換する ルーチンで 
す。難しくはないでしょう。説明は省略します。自分で追いかけ 
てみてください。 

リスト2 

次にリスト2のメモリフォーマットルーチンを説明しましよう。 
メモリは 

#1: DEFW 0，#2 

#2 : DEFW 0,#3 

#END : DEFW 0,0 

というぐあいに フォーマット すればいいのですから， A に0, DE 
に HL + 4 を入れてあるとすると， 

LD ( HL ), A 
INC HL 

LD ( HL ), A ; CAR 部は 000 Oh 
INC HL 
LD ( HL ), E 
INC HL 

LD ( HL ), D ; CDR 部は次のセルへのボインタ 
としてやれば，ア ドレス HL にあるセルをフォーマツトしてやる こ 
とができます。 

これを ループに したのが370〜394行の FORMAT ル ーチンです0 
難しくはないので追いかけてみてください。セル領域は AFFFh 
までですので386〜389行でチェックをし，セル領域をフォーマッ 
卜し終わったら396〜401行で最後のセルの CDR 部のボインタを0 
に書き換えています。 

406行からは新しいセルを供給する GETCELL ルーチンです。自 
由リストの先頭は （ NEWCELL ) というワークに入っていますから， 
これを HL に取り出します。そして HL に入づているアドレスにあ 
るセルの CDR 部を取り出し，これを新しい （ NEWCELL ) として 
登録。先の HL の値を持って終了します。このルーチンは CONS 
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49 〜 58 行は CDR 関数てす。 HL が指しているセルの CDR 部に入 
っているボインタを取り出すようになっているだけで，基本的に 
は CAR 関数と同じです。 

64〜81行は CONS 関数です。 HL に CAR 部に書き込むポインタ 
を， BC に CDR 部に書き込むボインタを与えて呼び出します。まず 
65, 67行で書き込むポインタを保存しておいて，68行で GETCE 
LL を呼び出し，新しいセルを供給してもらいます。この新しいセ 
ルへのボインタは HL に返ってきますから，69行でまず CAR 部に 
書き込むボインタをスタックから取り出し，70〜73行でこれを H 
L が指しているセルの CAR 部に書き込みます。74〜77行で CDR 部 
にも同様にしてボインタを書き込み，78〜81行で HL がこのセル 
を指すように調整して終了します。 

86〜95行の ATOM 関数は簡単でしよう。アトムへのポインタは 
000 Oh 〜 OFFFh ですから， HL がこの範囲にあるかどうかを調べれ 
ばいいのです。93行で HL に0をセットしていますがこれは NIL 
へのボインタです。 .95 行では HL に & T というのをセットしていま 
すが，これは T というアトムへのポインタです。リスト4で定義 
してあります。 

103〜108行は EQ 関数です。2つの引数は HL と DE に入れて渡さ 
れます。これらが同じボインタかどうかを判断するのは簡単です。 

Lisp の基本関数 


ルーチンから呼び出され， CONS ルーチンは READ ルーチンから 
呼び出されます。ということは DE が交換中の文字列を指している 
わけですから，このルーチンのなかでも DE を保存しています。 

リスト3 

リスト3には Lisp の最も基本的な5つの関数を集めました。5 
つの関数というのは CAR ， CDR , CONS , ATOM，EQ です。 C 
AR は引数として与えられたボインタが指すセルの CAR 部に入っ 
ているポインタを， CDR は CDR 部に入っているボインタを値とし 
て返します。次のようなリストを考えてみましよう。 

( ABC ) 

これはセルを使って表現すると 

[ yr ^ fyn ^ rp ^ 7 ] 

ABC 

となります。このリストへのボインタを CAR 関数に渡します。ポ 
インタは 

rrr^k 


A 

というセルを指していますから，このセルの CAR 部に入っている 
A へのポインタが値として返ります。 

またこのセルの CDR 部に入っているボインタは 

rrr ^ m 7 i 


B C 

というリストをす旨しています0そこで （A B C ) というリストへ 
のポインタを CDR 関数に渡すと ， （B C ) へのポインタが値とし 
て返ってきます。 

Lisp では関数を呼び出して返ってきた値を見るために先月作っ 
たような PRNT ルーチンを呼び出します。そこで 
(A B C ) 

の CAR をれば 
A 

が， CDR を取れば 
(B C ) 

が画面に表示されることになります。このあたりの仕組みはまた 
来月ゅっくりとお話しすることにしましよう。 

CONS 関数はすでに説明したとおりです。2つのボインタをも 
らってそれから新しい セルを 作り出し，その セルへの ボインタを 
返します。 

ATOM 関数は，引数として与えられたボインタが セルへの ボイ 
ンタなのかアトム への ボインタなのかを判定する関数です。アト 
ム への ボインタだった場合は T というアトム への ボインタを， セ 
ルへの ポインタだった場合は NIL への ポインタを返します 。 Lisp 
で T というのは「真」， NIL は「偽」を表すアトムとして使用されま 
す。 

最後の EQ 関数は，与えられた2つの引数が同じボインタかどう 
かを判定する関数です。同じボインタだった場合には T へのボイ 
ンタが，違うなら NIL へのポインタが返ります。 

では順にプログラムを見ていきましよう。37〜43行は CAR 関 
数です。リストへのポインタを HL に入れて呼び出します。 DE を 
保存しておいて， DE へ HL が t 旨している セ ルの CAR 部に入ってい 
るポインタを取り出し，それを HL に入れて終了します。値は HL 
に入れて返します。 


8 LLL Ae ILLL 
e HHH m hhh 
r — I I e ( (I 
d E —L *E H ヤ )EiLL»»L,EE 
d DEHDDDDe dhhehddd 

f f 

8 sc p T 8 sec c p T 
t UDNDXOE t unndndxoe 
n p L 1 L E p R n piililepr 


L c B c B 
BCHLGETBC( HL HL( HL HLBC(HLHL(HLHLHLHL 


.HL.ATM.DE0.&T 
EEL L E L L 
DDHAHDHCH 


A ^ H N H 


CAR A nte arg 
u SSLP c CP c CCCT t s CP T T i r CTT 
L uuaodndnodndehhe n uxdrbodede o l r b d e d e 
H ppcpliliplildddr i PBLOSPLRLK p H o s L R L R 
0 




;EQ 


2345678901234567890123456789012345678901234567890123456789012345678901234567890 
3333333344444444445555555555666666666677777777778888888888999999999900 Go 0000001 


1 F 0 0 0 0 
5 0 o o 0 o 

4 F 2 0 4 20 4 
D F 5 0 0 5 0 o 

5 E 3 6 B 19 533B36B19 55D11 303113 OBBB9 5B17D11819 7 D 1o19 
D 5 2 5 E D c D 22525 EDC CECC7272C 727222 c DE2BGD2D2C B E 2 c 2 c 

AAAAAAABCOHPOllllll 23456789 AAAAAAAABCF 0123456789 ABCCCCCCDE— 24589 CDDDDDDDDE 03478 
11111111111122222222222222222222222222333333333333333333334 i 444444-4444444455555 
0000000000000000000000000000000000000000000000000000000000000000000000000000000 
5 555555555 5 5 55555555555 555 5 555555 555555555 5555555555555555555555555555555555555 
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PUSH 

CALL 

POP 

RET 


This routine 
PRCAR : 


prints CAR of the list 


HL.DH 


C.PRT1 

DE.ATMAREA 

HL.DE 

DH.HL 

#MSX 


HL is ATOM ? 


CALL 

POP 

INC 

INC 

LD 

INC 

LD 

LD 


iPRINT 

HL 

A,(HL) 

HL 

H,(HL) 

L,A 

PRCAR 


A,(I 
HL 


H,(HL) 
L,A 


save pointer 


HL=CAR 

get pointer 


This routine prints CDR of the list 


PRCDR: LD 


A,L 

NZ.PRCDR1 

A, 1 ) 1 


2: LD 


CALL 

POP 

INC 

INC * 

LD 

INC 


DE t HL 

HL.ATM 

A 

HL.DE 

DE.HL 

C,PRCDR2 

DE.DOT 

•MSX 

DE.ATMAREA 

HL,DE 

DE t HL 

#MSX 

A,T 

参 PRINT 


A,(HL) 
HL 

H,(HL) 

L,A 

PRCAR 


HL 

HL 

A # (HL) 

HL 

H,(HL) 

L,A 

PRCDR 


HL is ATOM ? 


save pointer 


439 !ATOM: DEFM "ATOM” DBFB 0 

440 !EQ: DBFM M EQ M DEFB 6 

441!QUOTE ： DBFM "QUOTE" DEFB 0 


は Lisp 内部でスタックボインタを監視することにします。今回は 
この処理はしてありません。エラー処理と合わせて来月やっつけ 
る予定です。 

次に21行でセル領域をフォーマットします。セルをフォーマツ 
卜しないことには CONS できませんからね。 

そして23行からがプログラムです。これは EQ 関数の動作を試 
すためのサンプルです〇まず23行で READ ルーチンを呼び出し， 

S 式をひとつ入力してもらいます。24行で READ が作成したリス 
卜へのボインタを保存しておいて，25行でもう一度 S 式を入力し 
てもらいます。26行で保存しておいたポインタを DE に取り出せば， 
HL と DE に2つの S 式へのポインタを得ることができます。そこ 
で27行で EQ を呼び出し，この2つの S 式へのボインタが同じもの 
かどうか判定させるのです。結果は HL にポインタとして返ります 
から28行で PRNT に表示させ，処理は終わりです。29行は改行をす 
るサブルーチン，30行は S~OS をホツトスタートさせる エントリ 
です。わざわざラベルにするのが面倒だったので直接アドレスで 
記入しました。 

PRINT ルーチン 


51H5 
51E5 
51E5 
51E5 4E 
51E7 00 
51E9 
51E9 
51E9 
S1B9 
51E9 
57FF 
57FF 
57FF 00 
5800 
5800 4E 
5804 54 
5806 43 
580A 43 
580E 43 
5812 〇〇 


4152 00 
44 52 00 
4F 4E 53 


3 4154 4F 4D 
00 


41 00 
4C 41 4D 

44 41 00 

45 46 00 
4F 4144 


58 
58 

582143 

5825 00 

5826 4C 41 4D 42 
582A 44 
5820 4E 
583142 
5835 44 

5839 4C < 

5830 00 

583E 53 4156 45 

5842 00 

5843 50 52 49 4E 
5847 54 00 

5849 52 45 4144 

5840 00 
584E 
584E 
S84B 
584E 
S84E 
584E 
584E 
584B 
584E 
584B 
584E 
584E 
584E 
584E 
584E 
584E 
S84E 
584E 
584K 


引き算して 0 になったら同じものですね。 ATOM 関数と同じよう 
に T と NIL へのポインタを判断の結果に応じて返します。 

リスト4 

リスト4はワークエリアとアトムエリアです 0 433〜468行をご 
覧になれば，なぜ&丁が T というアトムへのポインタとして使える 
のか理解いただけるでしよう。 

リスト5 

リスト5は先月作った PRNT ルーチンです。アトムへのポイン 
夕を先月のものから変更したため，それに合わせて作り変えてあ 
ります。また， Lisp の仕様では PRNT / レーチンは表示したものと 
同じものを値として返すようになっていますから，285, 287行で 
ボインタ HL を保存して，表示したのと同じボインタを値として返 
すように作ってあります。 

リスト6 

最後にリスト6ですが，これはプログラムのテストルーチンで 
す。 OFST というラベルが定義してあって，なにやら複雑なこと 
をしていますが，これはデバッグを容易にするためにこうしまし 
た。作成する Lisp システムのメモリマップは図1に示したとおり 
ですが，デバッグを簡単にするため，システムを500 Oh に，アトム 
エリアを580 Oh 〜 67 FFh に，バッファを700 Oh 〜 7 FFFh に，そして 
セル領域を800 Oh 〜 AFFFh にしてあります。来月はこの OFST を 
0にすればいいだけなのでこのまま入力してもらって構いません。 

プログラムはまず20行のスタックポインタの初期化から始まり 
ます。これは Lisp 言語が再帰を多用するためスタックをかなり消 
費するためです。いくつかの機種では S - OS が用意しているスタ 
ック領域を使い尽くしてシステムを壊してしまう恐れがあります。 
そこで図1に示したようにスタック領域を自分で設定し，動作中 

■ワークエリァとアトムエリア 


1234567890123456789012345678901 
88888 88889999999999000000000911 
2222222222222222222333333333331 


#8901234567890123456789012345 6 789012345678901234 5 6 
11122222222223333333333444444444455555555556666666 


1 F8FF 1 FF1F8FFF 1 0 
5 0511 5 1 〇 515 11 1 5 2 

5 F 2 9 0 5 8 4 5 6 9 4 F 2 4 A 5 0 5 9 4 0 4 5 2 E 
4 F 5 〇 〇 E 2 P 4 〇 2 F F 5 1ABO E2F 2F 4 C 2 

5 D 1 9 B17DB 819 BD9 ED5E36FD133E36F D 4- 0 E D 9 B17 DB81D19BDED9 ED5B36FD133E36F8 0 0 
ECEC E 2 BEE 311 BCC 3CE7266CH 227266 7 B 2 3 c c E 2 BEE 31 C 11 EC 3 CC 3CB7266CE 2272661 2 〇 
FFFFFO 3455555569 ACDF 234788 ADEFOl 256789 ABCCCCDE 025667 ABDEO369ABE0 34469 ABCDH1 2345678 AADE 
333334444444444444445555555555666666666666666677777777 7 7888888899999999999 AAAAAAAAAAAA 


F F F 
E 6 B 
D D D 


D B 
DBM 
N M A 
〇 A L 
c L N 

»»tH 

FMFMFM 
E E E 
ODD 
: A: 
: A D 
D D B 
ONMBLM 
c L N 


F F F F p 
c E E E E 
D D D D D 


: D E N D 
FAV I A 
E o ARE 

D L s'pps 

FMFMFMFMFM 
EE E R G 
D D D D D 


E o A R 
D L s p 


A A K A 
A A E A H R A A E A 
A A E E RHRAAEKRE 

kerraaramerrar 

ARRAAEMAMTRAAMA 

eaammrtmtaammtm 
rhmttaata - MTTAT 

ATTAAM lA-ATAA - A 
M A A - - T E -ADA - - T - 
T - -SMATDDB -DEND 
ARRNO - ONBMPAVIA 

tcccaeqclndlspr 


uuuuuuuuuuuuuuufu 
QQQQQQQQQQQQQQQQ 

s M TDDAlflDD B N ^ 
ILARDRONTOQuoONMB LME BF £ A v PRI g 
iNs&c&c&cltAss&c&LssILLQssis 

2 3-4 5 6 7 8 9 0123456789012345678 
4 4 4 44 4 4 4 555555555566666666 6 
4 4 4 4 4 4 4 4 4444444444444444444 


XL 
A E 
Me 

a w w 
e F F 
r EE 
AD D 
k : L 
r ML 
WOTOCE 
Aw 
X E 


0HFH 
0 F 
0 7 
3 3 


B B B B B 
F F F F F 
E E E E E 
D D D D D 


s Jlfs 
L R R N 
I M ADO 
•N T *cc*c 


a s B MMMMM 
e F G p FFFFF 
r F R K E H H E H 

a oo!d ddddd 


..ARDRON 

T c c c 
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8C 69 9D 8A 19 83 A12B 9D83 

1318 F2 El El01 00 58 : 38 
B7 ED 42 C9 D1 El2318 : 9C 
D2 2A E5 51 1A CD 30 51 : 9A 
77 28 04 231318 F5 23 : 09 
E5 2A E5 51 E3 22 E5 51 : 80 
El 01 00 58 B7 ED 42 C9 : E9 
B7 C8 FE 20 28 07 FE 2E : F8 
28 03 FE 29 C0 AF C9 E5 : 6F 
CD 45 51 El C9 EB 21 FF : 18 
0F B7 ED 52 EB 38 0911 : 42 
00 5819 EB CD E5IF C9 : F6 
3E 28 CD F4IF E5 7E 23 : CC 
66 6F CD 45 51 El23 23 : 5F 
7E 23 66 6F 7D B4 20 06 : CD 
3E 29 CD F4IF C9 EB 21 : 1C 
FF 0F B7 ED 52 FB 3814 : 3B 


SUM ： F3 93 D9 B7 40 C2 63 6B 61E0 

5180 11 AA 51 CD E5IF 11 00 : EE 
5188 5819 EB CD E5IF 3E 29 : 94 
5190 CD F4IF C9 3E 20 CD F4 : C8 


50D8 01 
50E0 21 
50E8 2B 
50FO18 
50F8 51 


00 58 B7 
00 581A 
2B 7E B7 
FI23 E5 
BE 20 10 


ED 42 4D 
ED B120 
28 04 23 
D51A CD 
B7 28 04 


44 

D0 

29 

7A 

23 

FD 

30 

FD 

23 

45 


LD B , H 

mm 全ダンプリスト 


5000 31 00 CO CD AE 51 CD 58 : E2 
5008 50 E5 CD 58 50 Dt CD 41) : 95 
5010 50 CD 3F 51 CO ER IF C3 : 4A 
5018 FA IF D5 5E 23 56 EB U1 : 81 
5020 C9 D5 23 23 5E 23 56 EB : A6 
5028 D1 C9 C5 E5 CD 1)4 51 Cl : F7 
5030 7123 70 23 Cl7123 70 : EC 
5038 2B 2B 2B C9 D5 EB 21 FF : 2A 
5040 0F B7 ED 52 D121 00 00 : F7 
5048 D8 21 04 00 C9 B7 ED 52 : BC 
5050 21 00 00 C0 21 04 00 C9 : CF 
5058 11 00 70 AF 32 94 50 32 : 78 
5060 95 50 CD D3IF 1A B7 28 : 9D 
5068 IB 13 FE 28 20 09 3A 95 : 4C 
5070 50 3C 32 95 50 18 EE FE : A7 
5078 29 20 EA 3A 94 50 3C 32 : BF 


SUM ： 43 54 6C 53 BF B4 E7 8E 4F94 

5080 94 50 18 El3A 95 50 47 : 43 
5088 3A 94 50 90 30 08 3E 20 : 44 
5090 121318 CE 00 00 11 00 : 1C 
5098 70 1A 13 FE 20 28 FA FE : DB 
50A0 28 28 04IB C3 D2 50 1A : 6E 
50A813 FE 20 28 FA FE 29 20 : 9A 
50BO 04 2100 00 C9 FE 2E 20 : 3A 
50BB 0A CD 99 50 1A 13 FE 29 : 14 
50C0 20 FA C9IB CD 99 50 E5 : 99 
50C8 CD A7 50 4D 44 El CD 2A : 2D 
50D0 50 C9 C3 D5 50 2A E5 51 : 61 


5198 IF E5 7E 23 66 6F CD 45 : 8C 
51A0 51 El23 23 7E 23 66 6F : EE 
51A818 C2 20 2E 20 00 21 04 : 6D 
51B0 00 11 00 80 19 EB AF 77 : BB 
51B8 23 77 23 73 23 72 23 21 : 09 
51C0 00 B0 B7 ED 52 28 07 21 : F6 
51C8 04 00 19 EB 18 E9 EB 2B : IF 
51D0 77 2B 77 C9 D5 2A E7 51 : 19 
51D8 E5 23 23 5E 23 56 ED 53 : 42 
51E0 E7 51 El D1 C9 4E 58 00 : 59 
51E8 80 : 80 


SUM ： A816 8A 9A 73 2C 60 5D C67F 


5800 4E 49 4C 00 54 00 43 41 : BB 
5808 52 00 43 44 52 00 43 4F : BD 
5810 4E 53 00 4154 4F 4D 00 : D2 
5818 45 51 00 5155 4F 54 45 : 24 
5820 00 43 4F 4E 44 00 4C 41 : B1 
5828 4D 42 44 41 00 4E 4C 41 : EF 
5830 4D 42 44 41 00 44 45 46 : E3 
5838 00 4C 4F 4144 00 53 41 : B4 
5840 56 45 00 50 52 49 4E 54 : 28 
5848 00 52 45 4144 00 : 1C 


SUM ： 23 97 FA 78 6D 79 A5 32 E6D1 


プログラムをアセンブルしたら ZEDA のアセンブラモードから 
S 5000 5 FFF 5000 8000 :ファイル名 
と入力して一度セーブし，改めて S - OS のモニタからプログラム 
を読み込んで実行してください。最初にカーソルが点滅します。 
なんでもいいですから適当な S 式を入力してください。たとえば 
( ABC ) 

というぐあいです。 S 式を入力すると再び力ーソルが点滅します。 
もうひとつ好きな S 式を入力してください。ここでも 
(ABC) 

と入力してやります。入力された2つの S 式へのボインタが等し 
ければ T 力す，等しくなければ NIL が画面に表示されて終了するは 
ずです。 

2度とも同じリストを入力したのに NIL と表示されてしまうで 
しょう。そこで思い出してほしいのは EQ とは同じポインタかど 
うかを比べる関数だということです。メモリをダンプしてみれば 
わかりますが，2つのリストは別のセルを使って作られています。 
当然2つのリストへのポインタも違ってきますから画面には NIL 
と表示されたのです。 S 式を入力するときに2回とも同じァトム 
を入力すれば T が返ります。ここのテストルーチンを書き換えれ 
ばいろいろなことを試してみることができます。簡単なところでは 
CALL READ 
CALL PRNT 
CALL $1 FEE 
JP $1 FFA 

などです。これは入力された S 式を画面に表示するだけです。し 
かし表示するときには普通の表記法で表示しますから， 

(A . (B . (C . NIL ))) 

と入力すると 
( ABC ) 

と画面には表示されることになります。ドッティッドペァの変換 
の勉強にはちょうどいいでしょう。 

CALL READ 
PUSH HL 
CALL READ 
LD C , L 


POP HL 

CALL CONS 
CALL PRNT 
CALL $1 FEE 
JP $1 FFA 

は入力された 2 つの S 式を CONS したリストを表示してくれます。 
ほ力、にもいろいろと遊べます。プログラムを作って試してみてく 
ださい。 

さて米月はいよいよ Lisp の制作です。今月のソースリストは一 
部変更するだけで来月使えますから，ぜひ入力しておいてくださ 
い。 Lisp は初めてだという方のために参考文献を上げておきます。 
『 Lisp 入門ーシステムとプログラミングー』 

中西正和著近代科学社刊 

第1章から第4章までは M 言語という言語でかかれているため 

そのまま入力しても実行はできませんが，第5章で M 言語を S 式 

に直す方法が示されますので，そこまで読み終えたなら第1章に戻 

って M 言語を S 式に直して入力してみるといいでしよう。 Lisp を 

システムから理解するにはいい本です。 

来月制作する Lisp システムはこの本の第7章にある pure Lisp 

のシステムを機能拡張したものです。小さな処理系ですが，基本 

は押さえてあります。ご期待ください。 

23 ^テストル-チン 

0000 
0000 
0000 
0000 
0000 
0000 
5000 
5000 
5000 
5000 
5000 
5000 
5000 
5000 
5000 
5000 
5000 
5000 
5000 

5000 31 eo ce 
5003 CD AE 51 
5006 

5006 CD 58 50 
5009 E5 
500A CD 58 50 
50OD D1 
500E CD 4D 50 
5011 CD 3F 51 
5014 CD BE IF 
5017 C3 FA IF 
501A 


9 #PRINT 

10 #LETNL 

11 #MSX 
12 攀 GETL 

14 #KBFAD EQU 


OFFSET 30O0H 
ORG 3O00H+OFST 

EQU 1FF4H 
EQU 1FEEH 
EQU 1FE5H 
EQU 1FD3H 


15 ； 

16 ATM 


EQU 

EQU 

EQU 


1F76H 

0FFFH 

5O00H+OFST 

6O00H-fOFST 


CALL 

CALL 

PUSH 

CALL 

POP 

CALL 

CALL 

CALL 

JP 


PRKT 

$1FEE 

$1FFA 


u 111111 111 i 111111 
s 5555555555555555 
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♦大作ゲーム登場 

ひと頃は8ドバイトで十分巨大なプログ 
ラムという意識がありましたが，先月の F 
uzzyBASIC コンパイラは28ドバイトもの超 
大作，さらには 32 K を超えるかという大き 
さのモノの噂もちらほら。リスト入力に悲 
鳴をあげている人もいるのではないでしよ 
うか。 

さて，今月は一息ついてアクションゲー 
厶をお届けします。これもかなり大作の部 
類に入るべきものですが，先月に比べると 
かなりおとなしく感じられますね。 

この ゲームの 特徴は画面を見てもらえれ 
ば一目瞭然です。キャラクタを組み合わせ 
て作られた画面もなかなか3 D っぽくまと 
まっており，そしてなんといっても速い。 
MZ -2500, Xlturbo の16ラスタ文字でかつ 
最低速度のままだと多少もたつきを感じま 
すが， XI や MZ - 2000などでは，最低速に抑 
えてなお追いつかないんじゃないかという 
くらいのスピード感です。 

当然のことながら，遅いと評判の共通ル 


全機種共通システム掲載記事 


■85 年6月号 
序論 共通化の試み 

第 I 部 S -0 S " MACE ” 

第2部 Lfsp -85 インタプリタ 
第3部チェックサムプログラム 
■85 年7月号 

第4部マシン語プ□グラム開発入門 
第5部エディタアセンブラ ZEDA 
第6部デバッグツール ZAID 
■85 年8月号 

第7部ゲーム開発パッケージ BEMS 
第8部ソースジェネレータ ZING 

■ 85 年9月号 

インタラプト S -0 S 番外地 
第9部マシン語入カツール MACINT 0 -S 
第10部 Lisp - 85入門⑴ 

■85 年10月号 

第丨丨部仮想マシン CAP - X 85 
連載 Lisp - 85入門⑵ 

■85 年 M 月号 
連載 Lisp - 85入門⑶ 

■85 年12月号 
第12部 Prolog -85 発表 
■86 年丨月号 

第13部リロケータブルのお話 
第14部 FM 音源サウンドェディタ 

■ 86 年2月号 

第 15部 S :0 S " SWORD " 

第 16部 Prolog -85 入門( I ) 

■ 86 年3月号 

第け部 magiFORTH 発表 
逢載 Prolog - 85入門⑵ 

■ 86 年4月号 

第18部思考ゲーム JEWEL 
第19部 LIFE GAME 
連載 基礎からの magiFORTH 

連載 Prolog -85 入門 (31 

■86 年5月号 

第20部スクリーンエディタ E-MATE 
4載 実戦演習 magiFORTH 

■86 年6月号 


第59部シューテイングゲーム ELFES 


ーチンだけを使ってこれだけのスピードを 
出しているのですから，開発時の作者の苦 
労が偲ばれますね。 

• X 68000版 “ SWORD ” ？ 

先月号の U 氏の編集後記にもありました 
とおり， X 68000 上で XI のソフトウェア 
を実行しようという XI エミュレータが開 
発されているようです。先月号では Z 80 ポ 
ードを使うとの情報をお伝えしましたが， 
実際にはポードは使わずすべてソフトゥェ 
アで処理されるもようです。 

BASIC が動く，となればほぼ自動的に 
“ SWORD ” も動く，という図式が成立するわ 
けです。依然としてメディアの問題は残り 
ますが，従来の XI 用“ SWORD ” を打ち込ん 
でやれば，そのまま走ってしまうと思われ 
ます。 

メディアの違いから直接 XI 用のディス 
クを読み込むといったことは不可能ですの 


第 21 部 Z80TRACER 
第 22 部 magiFORTH TRACER 
第 23 部ディスクダンプ & エディタ 
第 24 部 “SWORD" 2000 QD 
連載 対話で学ぶ magiFORTH 
特別付録 PC- 8801 版 S-OS "SWORD" 

■ 86 年 7 月号 

第 25 部 FM 音源ミュージックシステム 
付録 FM 音源ボードの製作 

連載 計算カアップの magiFORTH 

特別付録 SMC-777 版 S-OS“SWORD" 

■ 86 年8月号 

第 26 部対局五目並べ 
第 27 部 MZ- 2500 版 S-0S“SW0RD" 

■ 86 年 9 月号 

第 28 部 FuzzyBASIC 発表 
連載 明日に向かって magiFORTH 
■86 年10月号 

第 29 部ちょっと便利な拡張プログラム 
第 30 部ディスクモニタ DREAM 
第 31 部 Fuzzy BASIC 料理法 <1> 

■86 年丨丨月号 

第 32 部パズルゲーム HOTTAN 
第 33 部 MAZE in MAZE 
連載 FuzzyBASIC 料理法 <2> 

■ 86 年12月号 

第 34 部 CASL & COMET 
連載 FuzzyBASIC 料理法 <3> 

■ 87 年 I 月号 

第 35 部 マシン 語入カツール MACINTO-C 
連載 FuzzyBASIC 料理法 <4> 

■ 87 年 2 月号 

第 36 部アドベンチャーゲーム MARMALADE 
第 37 部テキアベ作成ツール C0NTEX 
_87 年 3 月号 

第 38 部魔法使いはアニメがお好き 
第 39 部アニメーションツール MAGE 
付録 “SWORD" 再揭載と MAGIC の標準化 

■ 87 年 4 月号 

第 40 部 INVADER GAME 
第 41 部 TANGERINE 


で，ソフトウェアぱシリアル転送で X 68000. 
に送るとのこと。となると，もしかして隣 
に1台 XI が必要なのでは……と新たな疑 
問も湧いてきますが，とりあえず今後の情 
報に注目したいと思います。 

•来月はコンパイラ 

さて， ついに あのマシン語体操が， S -0 S 
上の言語処理系の作成にまで手を染めてき 
ました。こちらも読者パワー全開で S -0 S 上 
のオリジナル構造化言語をお届けする予定 
です。 

詳しい仕様は来月のお楽しみとしますが， 
懐かしの TL /1 やドといったコンパイラに C 
が混ざったものと考えておけば間違いはな 
いでしよう。 S -0 S では初めての専用コンパ 
イラ処理系となります。 

サイズは I 6 K バイト。大きいと判断する 
か，小さいと判断するかはあなたにおまか 
せします。ではご期待ください。 


■ 87 年5月号 

第42部 S - OS “ SWORD ” 変身セット 
第43部 MZ -700 用 “ SWORD ••を 0 D 対応に 
■87 年6月号 

インタラプトコンパイラ物語 
第44部 FuzzyBASIC コンパイラ 
第45部エディタアセンブラ ZEDA -3 
■87 年7月号 
第46部 STORY MASTER 

■ 87 年8月号 

第47部パズルゲーム碁石拾い 
第48部漢字出カパッケージ JACKWRITE 
特別付録 FM -7 77版 S - OS “ SWORD " 

■ 87 年9月号 

第49部リロケータブル逆アセンブラ Inside-R 
特別付録 PC - 8001 / 8801 版 S -0 S “ SWORD ” 
■87 年10月号 

第50部 tiny CORE WARS 
第51部 FuzzyBASIC コンパイラの拡張 
第52部 Xlturbc ^ S - OS “ SWORD " 

■87 年 M 月号 

序論 神話のなかのマイクロコンピュータ 

付録 S -0 S の仲間たち 

第53部もうひとつの FuzzyBASIC 入門 
第54部ファイルアロケータ& ローダ 
インタラプト S - OS こちら集中治療室 
第55部 BACK GAMMON 
■87 年12月号 

第56部タートルグラフィックパッケージ TURTLE 
第57部 Xlturbo 版“ SWORD " アフターケア 
ラインブリントルーチン 
特別付録 PAS 0 PIA 7 版 S -0 S " SW 0 RD ” 

■88 年丨月号 

第58部 Fuzzy BASIC コンパイラ.奥村版 
付録 石上版コンパイラ拡張部の修正 


* 以上のアプリケーションは，基本システムであ 
る S - OS _ MACE ” または S - OS ^ SWORD -'/ jWj ： いと 
動作しませんのでご注意ください„ 
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全機種共通 S-OS“SWORD ” 要 


シューテ インク ゲーム 

E し FES 


青木高博 Aoki Takahiro 


SIDE STORY 


これは，とある星でのお話です。高い文 
明を持ついくつかの星間国家が勢力範囲の 
衝突から戦争を始めました。その惑星間戦 
争の際に帝国惑星が試作した亜空問航行能 
力を持つ自動支援戦艦，それが ELFES で 
す。強力な破壊力を持つ新兵器として期恃 
されていましたが開発中のアクシデントに 
よる人工脳の暴走により長い間，亜空間に 
廃棄されていました。新型要塞 ELFES2 
配備の際に障害となることが予想されるた 
め，あなたに ELFES 破壊指令が下された 
のです。 

氺氺* 

というわけで， S - OS 用の 3 D 風シュー 
ティングゲームです。画面中央上部から流 
れる星，画面の奥に向かって消えてい〈ビ 
ーム，キャラクターを組み合わせて作られ 
ているリアル （？） なキャラクターと，これ 
までの S - OS 用ゲームとは一線を画す構成 
となっています。キャラクターや画面構成 
が PC -8801 用のシル〇イードに似ていると 
かいう話もあります力 ? ，たぶん気のせいで 
しよう0 


HOW TO PLAY 


リスト1の 8000 vi から AOIBh までの部分を 
各機種用のモニタまたは， MACINTO - C な 



どのマシン語入カツールを使って打ち込ん 
でいってください。入力後は必ずチェック 
サムを確認してから，セーブしておいてく 
ださい。 

実行は S - OS のモニタから， 

J 8000 

です。実行を中断するときはブレイクキー 
を押してください。ゲームを起動するとデ 
モが始まります。このデモが終わった時点 
でトリガーにあたるキーを押すことでゲー 
ムが始まります。 

また，このデモの途中で上方向のキーを 
押すことでスピード コント ロールが可能で 
す。各自と各自のマシンにあった速度でお 
楽しみ〈ださい（デフオルトは XI 用に設 
定されています)。 

キー 操作は5を中心とした キー （テン キ 
一の ある機種)，または カーソルキー （ MZ - 
700/1500, SMC -777 など），または S を中心 
とした キー （ MZ -80 K / C ) で移動， スペース， 
リターンキーはビーム砲の ON / OFF です0 
ビームは ロ ック されると連射状態に固定さ 
れますので，滑らかな移動が可能です。 

ゲームはダメージ制をとって おり，シー 
ルド/ウエボンともになくなるとゲームオー 
バーとなります。各ステージごとにボスキ 
ャ ラクターが登場します。これをクリアす 
ると友軍の補給艦がやってきてシールドと 
ウェボンが増強されます。あとはただ撃ち 
まくるた^け。 

では，健闘を祈ります。 


J 韶溫 N D I R0UND 2 


qAp 


星は流れ，ビームは飛び交5スペース シユ 
ーティングゲームです。超高速で敵が迫つ 
てきますが，専用ルーチンは一切使用して 
おりません。また， 3 □的な画面処理にも 
注目してください。それではキヤラクタグ 
ラフィックの野趣あふれるゲーム構成を堪 
能いたしましよう。 


最後に 


このところ，全機種共通シリーズもシス 
テム続きでアクションゲームといえば INV 
ADER GAME と TANGERINE 力 ? 出て以米， 
1本も発衷されませんでした。 S - OS では 
リアルタイムゲームは少し重いというのは 
あります力 ? ，やってできないわけではあり 
ません。このプログラムには私のゲームプ 
ログラムテクニックを詰め込んであります 
(といっても，たいしたことはしていません 
が )。 

私は XI 専用のジョイステイッ クルーチ 
ンを組み込んで使っているので，キー入力 
部分は特殊なテーブルを使用しています。 
各自で解析して各機種用のジョイスティッ 
ク対応キー入カルーチンと差し替えるのも 
よいでしよう。暇な人は解析してみて〈だ 
さい。 

また，キャラクターに小文字の“ P ”，“ q ” 
などが使用されています。これらが大文字 
に変換されてしまうと見苦しいので大文字 
の使えない MZ -80 K / C ユーザーの方は， 
“ p ”，“ q ” のキャラクターをそれぞれ“]”， 
“[” や“>”，“<”などのキャラクターに置き 
換えて実行するようにしてください。 

デフオルトの速度のままでは MZ - 2500や 
XI turbo など16ラスタ文字のモードで動作 
させるのはきついかもしれません。でも， 
これが S - OS の限界とは思わないでくださ 
い。速度は32段階で調整できます力す，はっ 
きりいってデフオルトは最低速になってい 
ます。では反射神経の限界に挑戦して〈だ 

さい。 

Profile 

◊青木さんは埼玉県にお住まいの16歳，高校 I 
年生です。マイコン歴は約5年。 FPHI 00 を 
経て現在は X I G のユーザーです。パックマン 
タイプのゲームを制作中とのこと。 
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3A 

6E 

94 

05 

8190 

3C 

BC 

20 

0F 

26 

00 

CD 

C4 

DE 

8198 

IF 

CD 

AD 

8F 

3A 

6E 

94 

3C 

A0 

81A0 

32 

6E 

94 

7D 

32 

70 

94 

7C 

63 

81A8 

32 

71 

94 

3E 

00 

32 

6F 

94 

AA 

81B0 

FD 

21 

52 

89 

3A 

6E 

94 

0E 

43 

81B8 

00 

CD 

72 

8E 

79 

C9 

3A 

B4 

FD 

81C0 

91 

B7 

28 

14 

3D 

32 

B4 

91 

38 

81C8 

B7 

20 

0D 

3A 

B9 

91 

B7 

C2 

El 

81D0 

D8 

81 

3E 

01 

32 

B5 

91 

C9 

D9 

81D8 

2A 

AF 

91 

CD 

B1 

9A 

47 

CB 

94 

81E0 

50 

20 

06 

7D 

FE 

01 

28 

01 

IB 

81E8 

2D 

CB 

58 

20 

06 

7D 

FE 

IB 

0C 

81F0 

30 

01 

2C 

CB 

40 

20 

06 

7C 

0A 

81F8 

FE 

0A 

38 

01 

25 

CB 

48 

20 

99 

SUM ： 

7F 

7B 

3B 

83 

E4 

6C 

EB 

74 6F8A 

8200 

06 

7C 

FE 

13 

30 

01 

24 

CB 

B3 

8208 

68 

20 

09 

3A 

B4 

91 

B7 

20 

E7 

8210 

03 

CD 

93 

82 

22 

AF 

91 

2A 

71 

8218 

B1 

91 

CD 

94 

90 

FD 

21 

6C 

BD 

8220 

91 

CD 

40 

90 

2A 

AF 

91 

22 

BA 

8228 

B1 

91 

FD 

21 

66 

91 

3A 

B4 

45 

8230 

91 

B7 

28 

04 

FD 

21 

7E 

91 

A1 

8238 

CD 

94 

90 

CD 

40 

90 

C9 

C5 

1C 

8240 

D5 

E5 

nn 

21 

BD 

91 

06 

10 

1C 

8248 

DD 

7K 

00 

FE 

FF 

28 

3A 

DD 

97 

8250 

6E 

00 

DD 

66 

01 

CD 

94 

90 

A3 

8258 

CD 

IE 

20 

3E 

20 

CD 

F4 

IF 

49 

8260 

DD 

35 

01 

3E 

FF 

DD 

BE 

01 

EC 

8268 

20 

06 

DD 

36 

00 

FF 

18 

19 

69 

8270 

DD 

6E 

00 

DD 

66 

01 

CD 

94 

F0 

8278 

90 

CD 

IE 

20 

0E 

6F 

7C 

FE 

92 

SUM: 

19 

9A 

32 

19 

B3 

CE 

86 

F5 024F 

8280 

0A 

30 

02 

0E 

A1 

79 

CD 

F4 

25 

8288 

IF 

DD 

23 

DD 

23 

10 

B9 

El 

C9 

8290 

D1 

Cl 

C9 

C5 

D5 

E5 

DD 

G5 

9C 

8298 

DD 

21 

BD 

91 

3A 

B9 

91 

47 

17 

82A0 

11 

04 

00 

25 

DD 

7E 

00 

FE 

93 


82A8 FF 20 07 DD 7E 02 FE FF 


8560 00 DD 1910 F218 0D 3A 


8568 

B6 

91 

FD 

21 

18 

89 

DD 

77 

5A 

8570 

00 

CD 

72 

8E 

3A 

B6 

91 

CB 

19 

8578 

7F 

C4 

80 

85 

El 

D1 

Cl 

C9 

84 

SUM ： 

IB 

30 

9F 

6A 

9F 

06 

FE 

BC F08A 

8580 

3A 

B3 

91 

B7 

28 

4C 

FE 

40 

E7 

8588 

C0 

DD 

21 

05 

93 

3A 

B6 

91 

D7 

8590 

47 

E6 

03 

DD 

77 

00 

78 

E6 

E2 

8598 

70 

OF 

0F 

0F 

0F 

DD 

77 

01 

01 

85A0 

DD 

36 

02 

0E 

DD 

36 

03 

02 

3B 

85A8 

DD 

7E 

00 

FD 

21 

34 

89 

CD 

03 

85B0 

72 

8E 

2A 

BB 

91 

7E 

23 

22 

39 

85B8 

BB 

91 

DD 

77 

0F 

DD 

36 

0E 

DO 

85C0 

00 

DD 

36 

0D 

00 

DD 

36 

0C 

3F 

85C8 

00 

DD 

36 

0A 

00 

DD 

36 

OB 

3B 

85D0 

08 

C9 

3E 

00 

32 

AB 

91 

C9 

46 

85D8 

C5 

D5 

E5 

DD 

E5 

DD 

21 

DD 

1C 

85E0 

91 

06 

08 

DD 

7E 

00 

FE 

FF 

F7 

85E8 

28 

IE 

DD 

6E 

01 

DD 

66 

02 

D7 

85F0 

CD 

48 

86 

B7 

20 

12 

DD 

7E 

DF 

85F8 

00 

FE 

0D 

28 

0B 

CD 

Cl 

8F 

5B 

SUM ： 

EB 

1A 

D4 

03 

A0 

26 

A8 

82 : 

3F84 

8600 

DD 

36 

00 

0D 

DD 

36 

03 

03 

39 

8608 

11 

05 

00 

DD 

19 

10 

D4 

DD 

CD 

8610 

21 

05 

93 

DD 

6E 

02 

DD 

66 

49 

8618 

03 

3E 

FF 

DD 

BE 

00 

28 

22 

25 

8620 

DD 

7E 

0G 

B7 

20 

1C 

CD 

48 

71 

8628 

86 

B7 

20 

16 

CD 

Cl 

8F 

DD 

6D 

8630 

36 

0E 

03 

DD 

7E 

0F 

FE 

01 

B0 

8638 

20 

08 

DD 

36 

0E 

14 

DD 

36 

70 

8640 

0C 

01 

DD 

El 

El 

D1 

Cl 

C9 

07 

8648 

C5 

D5 

E5 

DD 

E5 

DD 

21 

BD 

FC 

8650 

91 

01 

01 

10 

DD 

7E 

00 

FE 

FC 

8658 

FF 

28 

28 

DD 

7E 

01 

BC 

20 

87 

8660 

22 

DD 

7E 

00 

55 

CD 

90 

86 

B5 

8668 

30 

19 

0E 

00 

E5 

DD 

6E 

00 

87 

8670 

DD 

66 

01 

CD 

94 

90 

CD 

IE 

20 

8678 

20 

3E 

20 

CD 

F4 

IF 

DD 

36 

71 

SUM ： 

7B 

62 

38 

C9 

7E 

CE 

59 

42 D05C 

8680 

00 

FF 

El 

DD 

23 

DD 

23 

10 

F0 

8688 

CB 

79 

DD 

El 

El 

D1 

Cl 

C9 

3E 

8690 

92 

3C 

D6 

0 3 

09 

C5 

D5 

E5 

EF 

8698 

DD 

21 

05 

92 

06 

20 

3E 

FF 

F8 

86A0 

DD 

BE 

01 

CA 

28 

87 

DD 

6E 

60 

86A8 

01 

DD 

66 

03 

CD 

94 

90 

CD 

05 

86B0 

IE 

20 

3E 

20 

CD 

F4 

IF 

DD 

59 

86B8 

66 

01 

DD 

6E 

00 

DD 

56 

05 

EA 

86C0 

DD 

5E 

04 

19 

DD 

74 

01 

DD 

87 

86C8 

75 

00 

DD 

66 

03 

DD 

6E 

02 

08 

86D0 

DD 

56 

07 

DD 

5E 

06 

19 

DD 

71 

8608 

74 

03 

DD 

75 

02 

DD 

7E 

01 

27 

86E0 

CB 

7F 

28 

06 

DD 

36 

01 

FF 

8B 

86E8 

18 

3E 

FE 

ID 

30 

F6 

DD 

7E 

F2 

86F0 

03 

CB 

7F 

20 

EF 

FE 

15 

30 

9F 

86F8 

EB 

3A 

6E 

94 

FE 

FF 

28 

05 

51 

SUM ： 

10 

0A 

F3 

56 

CF 

DC 

FA 

49 6322 

8700 

7C 

FE 

02 

28 

DF 

DD 

6E 

01 

CF 

8708 

DD 

66 

03 

3A 

AF 

91 

55 

CD 

E2 

8710 

90 

86 

30 

09 

3A 

B0 

91 

BC 

86 

8718 

20 

03 

CD 

3E 

88 

CD 

94 

90 

A7 

8720 

CD 

IE 

20 

3E 

2A 

CD 

F4 

IF 

53 

8728 

11 

()8 

00 

DD 

19 

05 

C2 

9E 

74 

8730 

86 

El 

D1 

Cl 

C9 

E5 

DD 

E5 

69 

8738 

C5 

D5 

F5 

4F 

DD 

21 

05 

92 

73 

8740 

06 

20 

11 

08 

00 

3E 

FF 

DD 

59 

8748 

BE 

01 

28 

07 

1)1) 

19 

10 

F7 

EB 

8750 

C3 

D2 

87 

DD 

75 

01 

DD 

74 

C0 

8758 

03 

AF 

DD 

77 

00 

DD 

77 

02 

5C 

8760 

79 

CB 

47 

28 

5E 

3A 

AF 

91 

8B 

8768 

95 

6F 

3A 

B0 

91 

94 

67 

DD 

57 

8770 

36 

04 

00 

I) I) 

36 

05 

01 

CB 

IE 

8778 

7D 

28 

09 

DD 

36 

05 

FF 

7D 

42 

SUM ： 

7D 

D1 

0F 

C9 

E6 

D0 

F9 

4E DA95 

8780 

EE 

FF 

3C 

6F 

DD 

36 

06 

00 

B1 

8788 

DD 

36 

07 

01 

CB 

7C 

28 

09 

93 

8790 

7C 

EE 

FF 

3C 

67 

DD 

36 

07 

26 

8798 

FF 

7D 

BC 

38 

13 

5D 

3A 

B0 

CA 

87A0 

91 

DD 

96 

03 

67 

CD 

FD 

87 

BF 

87A8 

DD 

75 

06 

DD 

74 

07 

18 

22 

EA 

87B0 

5C 

3A 

AF 

91 

DD 

96 

01 

67 

B1 

87B8 

OD 

FD 

87 

DD 

75 

04 

DD 

74 

F8 

87C0 

05 

18 

0F 

AF 

DD 

77 

04 

DD 

10 

87C8 

77 

05 

DD 

36 

06 

00 

DD 

36 

A8 

87D0 

07 

01 

FI 

D1 

Cl 

CB 

4F 

20 

C5 

87D8 

20 

DD 

6E 

04 

DD 

66 

05 

CB 

82 

87E0 

2C 

CB 

ID 

1)1) 

75 

04 

I) I) 

74 

BB 

87E8 

05 

DD 

6E 

06 

DD 

66 

07 

CB 

6B 

87F0 

2 (； 

CB 

ID 

DD 

75 

06 

DD 

74 

BD 

87F8 

07 

DD 

El 

El 

C9 

F5 

C5 

16 

3F 


SUM ： E4 74 A4 8D 60 67 4C 0B F272 


C4473F7880A10BF2 

E06A304C9E46B46F 


cl 3212 E 2120 E103D 
991393329 F1F904C 

0EEF5E10BD83B030 

0B0AB290BC22B050 

D1112EC02C1E21FE 
C12933A 029072211 

0F 0114218 FE58F21 
2FBB 993295 F0F1E2 

06D24E019D1704D0 
33E2B 6292 C941FC0 
D1 2122 E 61 05 
c 909333 B29A9FC24 

8D2iFl 下 1212 AB0CE2 
2B8A9F939F3*B2015 

E1123EBC7DAA0EDF 
3202B3A0BC 9223 C4 


04D4DEA001BE2DFD 
24C4C 43229 C83C2C 

EE0C0FF7FB5FC825 
1424248 BFB 1 808 coo 


THE SENTINEL 


ELFES 135 







































8F80 

8F88 

8F90 

8F98 

8FA0 

8FA8 

8FB0 

8FB8 

8FC0 

8FC8 

8FD0 

8FD8 

8FE0 

8FE8 

8FF0 

8FF8 


SUM：17 34 48 D3 EA 19 FC 62 


E9 

0F 

BD 

BA 

B8 

BC 

04 

FI 

AD 

90 

02 

5A 

7A 

45 

B1 

42 


SUM: B7 5A C5 8A CA B9 2A 84 

8D80 C0 2D 2D 3E 02 CD 35 87 
8D88 2C 3E 00 CD 35 87 2C 3E 
8D90 02 CD 35 87 2C 3E 00 CD 
8D98 35 87 2C 3E 02 C3 35 87 
8DA0 3A B3 91 E6IF 47 3E 01 
8DA8 CA 35 87 3E 0F B8 C0 0E 
8DB0 7B CD CE 8D 3A AF 9195 
8DB8 C6 02 FE 05 30 07 3A B0 
8DC0 91 BC D4 3E 88 CD C4IF 
8DC8 0E 20 CD CE 8D C9 E5 E5 
8DD0 5D 44 2D 2D CD 94 90 55 
8DD8 CD IE 20 3E 02 83 60 6F 
8DE0 CD 94 90 7D 92 47 04 79 
8DE8 CD F4IF 10 FA El24 3E 
8DF0 15 BC 20 DB El C9 3A B3 
8DF8 91 E6 03 20 IE 3A B3 91 


SUM ： DB 45 46 56 BC 15 4C 4A 0E38 

9000 CD IE 20 3E 7B CD F4IF : A4 
9008151C 10 EA 3A B9 9147 : F6 
9010 B7 28IB 1118 0F 26 02 : 5A 
9018 6A CD IE 20 3E 7B CD F4 : EF 


SUM ： 71 DE 32 85 6C E2 0D 30 2EBB 

8E00 E6 07 20 05 3E 03 CD 35 : 55 
8E08 87 DD 7E 0A 3C E6 0F DD : FA 
8E10 77 0A DD 7E 0B 3C E6 0F : 18 
8E18 DD 77 0B FD 2184 91 CD : 5F 
8E20 39 8E DD 7E 0A FE 04 C0 : EE 
8E28 2D 2D 3E 02 CD 35 87 3E : 61 
8E30 05 85 6F 3E 02 CD 35 87 : C2 
8E38 C9 E5 DD 7E 0A CD 4A 8E : B8 
8E40 El E5 DD 7E 0B CD 4A 8E : D1 
8E48 El C9 8711 09 98 83 5F : C5 
8E50 3E 00 8A 571A 85 6F 13 : 40 
8E581A 84 67 CD 94 90 CD 40 : 03 
8E60 90 C9 3E 2A 32 AB 913A : 69 
8E68 B3 91 E6 0F C0 3E 01 C3 : FB 
8E70 35 87 87 FD E5 D9 El85 : 64 
8E78 6F 7C CE 00 67 5E 23 56 : F7 


SUM ： F619 BB AF 8910 FC 19 FABB 

8E80 D5 D9 C9 C5 47 04 ED 5F : D3 
8E88 E6IF B8 30 F9 Cl C9 06 : 76 
8E90 0F 2A AF 9124 3E 14 BC : AB 
8E98 20 0125 CD 8C 8F CD 3F : 3A 
8EA0 82 CD E8 8210 EB 0614 : CE 
8EA8 2A AF 913E 0E BD 28 06 : A1 
8EB0 38 03 2C 18 012D CD 8C : 06 
8EB8 8F CD E8 8210 EA 21 F5 : D6 
8EC0 93 361C 11 F6 93 0178 : F8 
8EC8 00 ED B0 36 00 06 00 G5 : 9E 
8ED0 78 216B 94116C 94 01 : AA 
8ED8 77 00 ED B8 47 FE 0F 38 : A8 
8EE0 02 06 0F 3E 0F 90 2102 : 17 
8EE8 99 DD 21 F5 93 85 6F 3E : 51 
8EF0 00 8C 67 06 03 7E DD 77 : CE 
8EF8 00 11 0F 00 191128 00 : 72 


SUM ： 7A 33 AC 79 2B F8 EC 28 6E60 

8F00 DD 1910 FI21 00 10 CD : F5 
8F08 IE 20 11 F5 93 CD E5IF : A8 
8F10 CD E8 82 2A AF 91 CD 8C : FA 
8F18 8F Cl 04 3E IB B8 CC 29 : 5A 
8F20 8F 3E 37 B8 20 A9 C3 BB : 03 
8F28 80 C5 0113 03 2E 13 61 : FE 
8F30 CD IE 20 3E 21 CD F4IF : 4A 
8F38 C5 54 5D 01 00 20 ED B0 : 34 
8F40 Cl 0C 10 E9 3A B9 913C : 86 
8F48 32 B9 913A BA 9147 3A : 82 
8F50 AE 9180 FE 0C 38 02 3E : 41 
8F58 0C 32 BA 913A AE 913C : 3E 
8F60 32 AE 91 CD E7 8F CD C4 : 45 
8F68 IF 54 5D 01 00 00 ED B0 : 6E 
8F70 0115 03 2E 13 61 CD IE : A6 
8F78 20 3E 20 CD F4IF C5 54 : 77 


8D78 C3 35 87 3A B3 91 E6 0F : F2 


8AB8 20 0B 3A 76 94 EE FF 3C 


8AC0 

32 

76 

94 

18 

05 

3E 

1C 

BD 


70 

8AC8 

28 

F0 

3A 

B3 

91 

E6 

IF 

C0 


5B 

8AD0 

3E 

01 

CD 

35 

87 

21 

00 

03 


EC 

8AD8 

3E 

01 

CD 

35 

87 

21 

0 9 

03 


F5 

8AE0 

3E 

01 

CD 

35 

87 

21 

13 

03 


FF 

8AE8 

3E 

01 

CD 

35 

87 

21 

1C 

03 


08 

8AF0 

3E 

01 

C3 

35 

87 

3A 

77 

94 


03 

8AF8 

B7 

28 

15 

3A 

73 

94 

6F 

26 


CA 

SUM ： 

6C 

5A 

DB 

6E 

3F 

6D 

21 

F0 

B24F 

8B00 

14 

CD 

94 

90 

FD 

21 

78 

91 


2C 

8B08 

CD 

40 

90 

3E 

00 

32 

77 

94 


18 

8B10 

3A 

B3 

91 

E6 

3F 

C0 

3A 

72 


0F 

8B18 

94 

3D 

32 

72 

94 

FE 

FF 

28 


2E 

8B20 

07 

47 

3E 

03 

90 

C3 

75 

89 


E0 

8B28 

0E 

01 

C9 

3A 

B3 

91 

E6 

03 


3F 

8B30 

C0 

24 

DD 

7E 

03 

BC 

C0 

DD 


9B 

8B38 

7E 

00 

B7 

C0 

0E 

01 

C9 

3A 


07 

8B40 

B3 

91 

E6 

01 

C0 

DD 

7E 

03 


49 

8B48 

85 

6F 

B7 

28 

04 

FE 

1C 

20 


11 

8B50 

09 

3E 

FF 

DD 

AE 

03 

3C 

DD 


ED 

8B58 

77 

03 

DD 

7E 

04 

84 

67 

B7 


7B 

8B60 

28 

03 

FE 

14 

C0 

3E 

FF 

DD 


17 

8B68 

AE 

04 

3C 

DD 

77 

04 

C9 

3A 


49 

8B70 

B3 

91 

E6 

01 

C0 

DD 

7E 

04 


4A 

8B78 

B7 

20 

18 

24 

3A 

B0 

91 

BC 


4A 

SUM ： 

FA 

62 

33 

3B 

CB 

53 

20 

F0 

4E65 

8B80 

C0 

DD 

36 

04 

01 

DD 

36 

03 


EE 

8B88 

FF 

3A 

AF 

91 

BD 

D8 

DD 

36 


21 

8B90 

03 

01 

C9 

DD 

7E 

03 

85 

6F 


IF 

8B98 

DD 

7E 

00 

FE 

0A 

CO 

25 

C9 


11 

8BA0 

0E 

00 

DD 

7E 

03 

85 

6F 

3E 


9E 

8BA8 

00 

BD 

28 

07 

3E 

1C 

BD 

28 


2B 

8BB0 

02 

18 

09 

3E 

FF 

DD 

AE 

03 


EE 

8BB8 

3C 

DD 

77 

03 

OE 

00 

DD 

7E 


FC 

8BC0 

00 

FE 

0B 

C8 

0E 

FF 

ED 

5F 


2A 

8BC8 

E6 

IF 

C0 

0E 

00 

DD 

7E 

00 


2E 

8BD0 

FE 

03 

C8 

0E 

01 

C9 

DD 

7E 


FC 

8BD8 

03 

84 

67 

C9 

DD 

35 

03 

28 


F4 

8BE0 

0D 

E5 

CD 

94 

90 

FD 

21 

7E 


7F 

8BE8 

91 

CD 

40 

90 

El 

C9 

DD 

36 


EB 

8BF0 

00 

FF 

C9 

3E 

1C 

CD 

83 

8E 


00 

8BF8 

DD 

77 

01 

3E 

06 

CD 

83 

8E 


77 

SUM ： 

4D 

14 

04 

83 

13 

30 

C3 

2D 

62AC 

8C00 

DD 

77 

03 

DD 

36 

02 

00 

C9 


35 

8C08 

DD 

7E 

00 

FE 

01 

28 

45 

FE 


C5 

8C10 

09 

28 

11 

DD 

36 

01 

00 

DD 


33 

8C18 

36 

02 

00 

DD 

36 

03 

01 

DD 


2C 

8C20 

36 

04 

01 

C9 

DD 

36 

01 

00 


18 

8C28 

DD 

36 

02 

14 

DD 

36 

03 

01 


40 

8C30 

DD 

36 

04 

FF 

3A 

B3 

91 

E6 


7A 

8C38 

01 

C0 

DD 

36 

01 

1C 

DD 

36 


04 

8C40 

03 

FF 

C9 

DD 

36 

02 

00 

DD 


BD 

8C48 

36 

04 

00 

3E 

1C 

CD 

83 

8E 


72 

8050 

DD 

77 

01 

C9 

3E 

1A 

CD 

83 


C6 

8C58 

8E 

3C 

DD 

77 

01 

DD 

36 

02 


34 

8C60 

00 

DD 

36 

04 

01 

ED 

5F 

E6 


4A 

8C68 

02 

3D 

DD 

77 

03 

C9 

DD 

36 


72 

8C70 

00 

FF 

C9 

DD 

36 

04 

01 

C9 


A9 

8C78 

DD 

36 

04 

00 

ED 

5F 

E6 

02 


4B 

SUM ： 

6D 

54 

7F 

5A 

50 

48 

61 

75 

0727 

8C80 

3D 

DD 

77 

05 

C9 

DD 

36 

05 


77 

8C88 

01 

ED 

5F 

E6 

02 

3D 

DD 

77 


C6 

8C90 

04 

C9 

DD 

7E 

04 

85 

6F 

FE 


IE 

8C98 

02 

20 

04 

DD 

36 

04 

01 

FE 


3C 

8CA0 

1A 

20 

04 

DD 

36 

04 

FF 

24 


78 

8CA8 

3E 

09 

BC 

D0 

25 

C9 

DD 

7E 


1C 

8CB0 

0D 

3C 

E6 

01 

DD 

77 

0D 

C0 


51 

8CB8 

DD 

7E 

04 

B7 

20 

26 

DD 

7E 


B7 

8CC0 

05 

85 

6F 

3A 

AF 

91 

BD 

28 


58 

8CC8 

12 

7D 

FE 

02 

28 

08 

FE 

1A 


D7 

8CD0 

C0 

DD 

36 

05 

FF 

C9 

DD 

36 


B3 

8CD8 

05 

01 

C9 

DD 

36 

04 

01 

DD 


C4 

8CE0 

36 

05 

01 

C9 

DD 

7E 

05 

84 


E9 

8CE8 

67 

FE 

12 

28 

10 

FE 

02 

C0 


6F 

8CF0 

DD 

36 

04 

00 

ED 

5F 

E6 

02 


4B 

8CF8 

3D 

DD 

77 

05 

C9 

DD 

36 

05 


77 

SUM ： 

19 

8C 

5B 

BF 

0C 

2B 

05 

F8 

8923 

8D00 

FF 

C9 

DD 

7E 

0D 

DD 

34 

0D 


: 4E 

8D08 

FE 

02 

C0 

DD 

36 

0D 

00 

DD 


: BD 

8D10 

7E 

04 

85 

6F 

FE 

02 

20 

04 


: 9A 

8D18 

DD 

36 

04 

01 

FE 

1A 

20 

04 


: 54 

8D20 

DD 

36 

04 

FF 

DD 

7E 

05 

84 


: FA 

8D28 

67 

FE 

02 

20 

05 

DD 

36 

05 


: A4 

8D30 

01 

C9 

FE 

12 

C0 

DD 

36 

05 


: B2 

8D38 

FF 

C9 

DD 

7E 

04 

84 

67 

C9 


: DB 

8D40 

3A 

B3 

91 

E6 

0F 

C0 

3E 

01 


: 72 

8D48 

C3 

35 

87 

3A 

B3 

91 

E6 

0F 


: F2 

8D50 

C0 

2D 

2D 

3E 

00 

CD 

35 

87 


: E1 

8D58 

2C 

3E 

00 

CD 

35 

87 

2C 

3E 


: 5D 

8D60 

00 

CD 

35 

87 

2C 

3E 

00 

CD 


: C0 

8D68 

35 

87 

2C 

3E 

00 

C3 

35 

87 


: A5 


8D70 3A B3 91 E6 0F C0 3E 03 


SUM ： 

8880 

8888 

8890 

8898 

88A0 

88A8 

88B0 

88B8 

88C0 

88C8 

88D0 

88D8 

88E0 

88E8 

88F0 

88F8 


SUM ： 

8900 

8908 

8910 

8918 

8920 

8928 

8930 

8938 

8940 

8948 

8950 

8958 

8960 

8968 

8970 

8978 


► MACINTO - C 発衣前のマシン語プログラムを打ち込むたび rCRC チェックはなんて他 
利なんだ j と M してしまう。ところでみんなお役所仕がをめいっぱい否定するが，お役所 
が丈敉になったときの恐ろしさを芩えたことがあるのだろうか。沓名稔 （ 18 ) 愛知県 


SUM: 0C C3 47 1A C6 50 EC 71 DEB9 

8A00 CD 35 87 3E 3F B8 C0 CD : 4B 
8A08 94 90 FD 2178 91 C3 40 : 4E 
8A10 90 3A 77 94 B7 281C 3A : 0A 
8A18 73 94 6F 3A 74 94 67 CD : EC 
8A20 94 90 FD 2178 91 CD 40 : 58 
8A28 90 3E 00 32 77 94 3E 02 : 4B 
8A30 32 76 94 3A B3 91 E6 0F : AF 
8A38 C0 21 00 03 3E 01 CD 35 : 25 
8A40 87 211C 03 3E 01 CD 35 : 08 
8A48 87 3A 76 94 26 03 6F 0E : 71 
8A50 7B CD CE 8D CD C4IF 0E : 61 
8A58 20 CD CE 8D 3A AF 9195 : 57 
8A60 C6 02 FE 05 30 07 3A B0 : EC 
8A68 91 BC D4 3E 88 7D C6 04 : 2E 
8A70 32 76 94 FE IE C0 3E 02 : 58 
8A78 32 76 94 C9 3A 77 94 B7 : 01 


SUM ： DE 97 23 78 3D EE 82 ED 85F5 

8A80 20 0D 3E 00 32 73 94 3E : E2 
8A88 0132 76 94 32 77 94 3A : B4 
8A90 73 94 6F 2614 E5 CD 94 : F6 
8A98 90 FD 2178 91 CD 40 90 : 54 
8AA0 El3A 76 94 85 32 73 94 : E3 
8AA8 6F E5 CD 94 90 FD 2184 : E7 
8AB0 91 CD 40 90 El3E 00 BD : 0A 


136 Oh ! X 1988.2. 


8800 00 2E 00 3E 00 CB 7C 28 : DB 
8808 07 7C EE FF 3C 67 3E 01 : 52 
8810 08 4B 42 5D 54 3E 10 21 : B5 
8818 00 00 CB 23 CB 12 ED 6A : 22 
8820 E5 B7 ED 42 El38 03 ED : D4 
8828 4213 3D 20 ED EB 08 B7 : 49 
8830 28 09 7C EE FF 67 7D EE : 6C 
8838 FF 6F 23 Cl FI C9 3A B4 : FA 
8840 91 B7 C0 E5 D5 C5 3E 10 : D5 
8848 32 B4 913A BA 91 B7 28 : DB 
8850 22 3D 32 BA 9147 3E 0F : 70 
8858 90 57 3E 18 80 26 016F : 53 
8860 CD IE 20 3E 20 CD F4IF : 49 
8868 6A CD IE 20 3E 20 CD F4 : 94 
8870 IF 18 23 3A B9 913D 32 : 4D 
8878 B9 9147 3E 0F 90 57 3E : 03 


DAC247E 812 DF 5 8 DB 
02629 BC102C1E2C6 

1111DAC1670E97 AF 
C929C27EC60BCB61 

0FDF15F1D76D1714 
BAFA9E 69720 CE40F 

D20A 697710 11 F 16 D 
E 2926 C 2 B 9029192 c 

094010027 E571AFB 
2C 992952 BCEBCB07 

01 D0D067AC1ADA8E 
0CC4F4C627E2C313 

191D1DD75F1 00510 
0E9C9C72E6920C12 

D 0111010277 EE5BE 
51B9B 99012 B13D11 


129E35DC2A70959B2EC97E94 19DC42D6336 


1 A 3088947 AFF 99903 
B 39FCF594FE 269068 
A 

c . 

3 0E1D0CA3DED0100B 
3 21DD0030OFDB0008 

ED15E 026003 A4FFF 
1CCE 700310030003 

DAFDD66D9E 03690 B 
C61DD36D17003C08 


2 

0 


5 2 4 
9 0 F 


D565F003DD4100 

CD01F309DD0D00 


5 C]2(C92I0 

A o 0 E 9 D F 6 
c 823CDF39 

1 8E011ED01DF61D33 
E 132E2FDB0DF39D00 


5 73311 1C7B59C1F1D 
D ABFCCCF8FB2CC147 


BBBCCCCCDD9A3C76 
888888888888 B381 


5444794- 


V 7937570338 


0 D 387184618 D8BE46 
2 B81F00E7E39FF568 

2 Dll 33167 E7263D01 
7 c 90000 EB3B3C7C40 


33333999883 EC3 


F IF 093 C5A2ADD 9448 

1 2100117333 CCC98B 

9 B51111A404CF4410 
4 EE 22223909109721 

2 93077775 E7EE4ADE 
9 ICC 88887373373 F3 

8 90F 55552 A2342F01 
1 920333330319369 E 

8 FE6DDD3F 01034440 
c 21ECCCC 320270999 

: 0808080808080808 
M 8899AABBCCDDEEFF 


































SUM ： BD 

9180 7B 
9188 29 
9190 5B 
9198 20 
91A0 7B 
91A8 7B 
91B0 00 
91B8 00 
91C0 00 
91C8 00 
9100 00 
91D8 00 
91E0 00 
91E8 00 
91F0 00 
91F8 00 


SUM：15 C0 B0 33 50 77 E3 27 3BE0 

9200 00 00 00 00 00 00 00 00 : 00 
9208 00 00 00 00 00 00 00 00 : 00 
9210 00 00 00 00 00 00 .00 00 : 00 
9218 00 00 00 00 00 00 00 00 : 00 
9220 00 00 00 00 00 00 00 00 : 00 
9228 00 00 00 00 00 00 00 00 : 00 
9230 00 00 00 00 00 00 00 00 : 00 
9238 00 00 00 00 00 00 00 00 : 00 
9240 00 00 00 00 00 00 00 00 : 00 
9248 00 00 00 00 00 00 00 00 : 00 
9250 00 00 00 00 00 00 00 00 : 00 
9258 00 00 00 00 00 00 00 00 : 00 
9260 00 00 00 00 00 00 00 00 : 00 
9268 00 00 00 00 00 00 00 00 : 00 
9270 00 00 00 00 00 00 00 00 : 00 
9278 00 00 00 00 00 00 00 00 : 00 


SUM ： 00 00 00 00 00 00 00 00 0000 

9280 00 00 00 00 00 00 00 00 : 00 
9288 00 00 00 00 00 00 00 00 : 00 
9290 00 00 00 00 00 00 00 00 : 00 
9298 00 00 00 00 00 00 00. 00 : 00 
92A0 00 00 00 00 00 00 00 00 : 00 
92A8 00 00 00 00 00 00 00 00 : 00 
92B0 00 00 00 00 00 00 00 00 : 00 
92B8 00 00 00 00 00 00 00 00 : 00 
92C0 00 00 00 00 00 00 00 00 : 00 
92C8 00 00 00 00 00 00 00 00 : 00 
92D0 00 00 00 00 〇〇 00 00 00 : 00 
92D8 00 00 00 00 00 00 00 00 : 00 


9020 IF 6B CD 1E 20 3E 7B CD : 1B 
9028 F4IF 15 1C 10 EA 2124 : 83 
9030 00 CD IE 20 3A AE 91 C6 : 4A 
9038 30 CD F4IF Cl D1 El C9 : 4C 
9040 7C FE 0C 38 0C 2D FD E5 : D9 
9048 D11313 CD IE 20 C3 E5 : AA 
9050 IF FE 07 38 09 CD IE 20 : 70 
9058 FD 7E 01 C3 F4IF CD IE : 3D 
9060 20 FD 7E 00 C3 F4IF 7C : ED 
9068 FE 0C 3810 2D 2D FD E5 : 8E 
9070 D11313131313 CD IE : IB 
9078 20 C3 E5IF FE 07 38 0B : 2F 


SUM ： BE BF 3214 5E 2B 52 6E 9B41 

9080 2D FD E5 D113 CD IE 20 : FE 
9088 C3 E5IF CD IE 20 FD 7E : 4D 
9090 00 C3 F4IF C5 D516 00 : 86 
9098 5C 7C EB 29 29 29 29 29 : 90 
90A0 0169 9516 00 0919 4E : 85 
90A8 C6 03 67 69 D1 Cl C9 3E : 32 
90B0 2E 32 AB 913E 20 32 AC : D8 
90B8 9121 D0 99 E5 06 0A C5 : D5 
90C0 CD BE 81 CD 3F 82 CD E8 : 4F 
90C8 82 CD 3F 82 Cl10 F0 21 : F2 
90D0 0118 CD IE 20 06 26 El : 31 
90D8 54 5D 23 3E 00 BE 28 0C : 04 
90E0 1A B7 28 D813 CD F4IF : C4 
90E810 F618 D0 2A AF 9125 : 7D 
90F0 3E FF BC 2817 06 05 C5 : 08 
90F8 CD 8C 8F CD 3F 82 CD E8 : 2B 


SUM ： AB 18 95 D7 C6 35 DA AB 29E0 

9100 82 CD 3F 82 2A AF 91 Cl : 3B 
910810 ED 18 E0 2112 03 CD : F8 
9110 IE 20 CD E2IF 20 20 20 : 6C 
9118 00 2110 18 CD IE 20 CD : 21 
9120 E2IF 54 68 65 20 65 6E : 15 
9128 64 00 CD E8 8218 FB 21 : CF 
9130 0F 0C CD IE 20 CD E2IF : F4 
9138 47 414D 45 20 4F 56 45 : 24 
9140 52 00 CD C4IF 01 00 00 : 03 
9148 54 5D ED B8 CD C4IF 01 : 07 
9150 00 00 54 5D ED B8 CD F2 : 15 
9158 9A CD B19A FE DF CA 08 : 61 
9160 80 FE FE C818 F3 2D 3D : B9 
9168 714170 00 20 20 20 20 : A2 
9170 20 00 2D 3D 2D 23 2D 00 : 07 
9178 20 20 20 20 20 00 7B 7B : 96 


92E0 00 00 00 00 00 00 00 00 : 00 


92E8 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

92F0 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

92F8 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

SUM ： 

00 

00 

00 

00 

00 

00 

00 

00 0000 

9300 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

9308 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

9310 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

9318 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

9320 

00 

0 0 

0¢) 

00 

00 

00 

00 

00 : 

:00 

9328 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

9330 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

9338 

00 

0 0 

00 

0 0 

00 

00 

00 

00 

: ee 

9340 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

9348 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

9350 

00 

00 

00 

00 

00 

00 

0 0 

00 : 

:00 

9358 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

9360 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

9368 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

9370 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

9378 

00 

m ) 

00 

00 

00 

00 

00 

00 

:00 

SUM ： 

00 

00 

00 

00 

00 

00 

00 

00 0000 

9380 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

9388 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

9390 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

9398 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

93A0 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

93A8 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

93B0 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

93B8 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

93C0 

00 

00 

00 

00 

00 

00 

00 

00 : 

:00 

93C8 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

93D0 

00 

00 

00 

00 

00 

00 

(H) 

00 

:00 

93D8 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

93E0 

00 

00 

0 0 

00 

00 

00 

00 

00 

:00 

93E8 

00 

00 

0 0 

00 

00 

00 

0 0 

00 

:00 

93F0 

00 

00 

0 0 

00 

00 

00 

00 

00 

: C0 

93F8 

00 

00 

00 

00 

00 

00 

00 

00 

:00 

SUM ： 

00 

00 

00 

00 

00 

00 

00 

00 0000 

9400 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9408 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9410 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9418 

00 

()0 

00 

00 

00 

00 

0 0 

00 

00 

9420 

00 

00 

00 

00 

00 

00 

0 0 

00 

00 

9428 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9430 

00 

0 0 

00 

00 

00 

00 

00 

00 

00 

9438 

00 

00 

00 

00 

0 0 

00 

00 

00 

00 

9440 

00 

00 

00 

00 

()() 

00 

00 

00 

00 

9448 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9450 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9458 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9460 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9468 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9470 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9478 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM ： 

00 

00 

00 

00 

00 

00 

00 

00 0000 

9480. 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9488 

00 

00 

00 

0 0 

00 

00 

00 

00 

00 

9490 

0() 

00 

00 

00 

00 

00 

00 

00 

00 

9498 

00 

00 

00 

00 

00 

00 

00 

00 

00 

94A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

94A8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

94B0 

00 

00 

0 0 

0 0 

00 

00 

00 

00 

00 

94B8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

94C0 

0(' 

00 

00 

00 

00 

00 

00 

00 

00 

94C8 

00 

00 

00 

0 0 

00 

00 

00 

00 

00 

94D0 

00 

00 

00 

0 0 

00 

00 

00 

00 

00 

94D8 

00 

⑻ 

00 

00 

00 

00 

00 

00 

00 

94E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

94E8 

ee 

00 

00 

00 

00 

0 0 

00 

00 

00 

94F0 

0 0 

00 

no 

00 

00 

00 

00 

00 

00 

94F8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

SUM ： 

00 

00 

00 

00 

00 

00 

00 

00 0000 

9500 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9508 

00 

00 

00 

00 

00 

0 0 

00 

00 

00 

9510 

00 

00 

0 0 

00 

00 

00 

00 

00 

00 

9518 

00 

00 

00 

00 

00 

0 0 

00 

00 

00 

9520 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9528 

00 

00 

00 

00 

00 

00 

0 0 

00 

00 

9530 

0 0 

00 

0 0 

00 

()0 

0 0 

00 

00 

00 

9538 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9540 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9548 

0 0 

00 

00 

00 

00 

00 

00 

00 

00 

9550 

0 0 

00 .00 

00 

00 

00 

0 0 

00 

00 

9558 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9560 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9568 

00 

12 

12 

12 

12 

12 

12 

13 

7F 

9570 

13 

13 

13 

13 

13 

13 

13 

13 

98 

9578 

13 

13 

13 

13 

13 

13 

13 

13 

98 

SUM: 

26 

38 

38 

38 

38 

38 

38 

39 5591 


9580 141414141414 00 00 : 78 


► Oh ! MZ はおいてあつたのに ， Oh ! X はおいてない店がある。ゆ，ゆるせん； 

林俊也 （22) 千葉 


9590 

12 

12 

12 

13 

13 

13 

13 

13 

95 

9598 

13 

13 

13 

13 

14 

14 

14 

14 

9C 

95A0 

14 

14 

14 

14 

14 

15 

00 

00 

79 

95A8 

00 

11 

11 

11 

11 

11 

11 

12 

78 

95B0 

12 

12 

12 

12 

12 

13 

13 

13 

93 

95B8 

13 

13 

14 

14 

14 

14 

14 

14 

9E 

95C0 

15 

15 

15 

15 

15 

15 

00 

00 

7E 

95C8 

00 

10 

10 

10 

10 

11 

11 

11 

73 

95D0 

11 

12 

12 

12 

12 

13 

13 

13 

92 

95D8 

13 

13 

14 

14 

14 

14 

15 

15 

A0 

95E0 

15 

15 

16 

16 

16 

16 

00 

00 

82 

95E8 

00 

0F 

0F 

10 

10 

10 

10 

11 

6F 

95F0 

11 

11 

12 

12 

12 

12 

13 

13 

90 

95F8 

13 

14 

14 

14 

14 

15 

15 

15 

A2 

SUM ： 

E4 

27 

2C 

2E 

2F 

34 

E2 

E4 8543 

9600 

16 

16 

16 

16 

17 

17 

00 

00 

86 

9608 

00 

0E 

0F 

OF 

0F 

10 

10 

10 

6B 

9610 

11 

11 

11 

12 

12 

12 

13 

13 

8F 

9618 

13 

14 

14 

14 

15 

15 

15 

16 

A4 

9620 

16 

16 

17 

17 

17 

18 

00 

00 

89 

9628 

00 

0D 

0E 

0E 

0F 

0F 

0F 

10 

66 

9630 

10 

11 

11 

11 

12 

12 

13 

13 

8D 

9638 

13 

14 

14 

15 

15 

15 

16 

16 

A6 

9640 

17 

17 

17 

18 

18 

19 

00 

00 

8E 

9648 

00 

0D 

0D 

0E 

0E 

0E 

0F 

0F 

62 

9650 

10 

10 

11 

11 

12 

12 

13 

13 

8C 

9658 

13 

14 

14 

15 

15 

16 

16 

17 

A8 

9660 

17 

18 

18 

18 

19 

19 

00 

00 

91 

9668 

00 

0C 

oc ： 

0D 

OD 

0E 

0E 

0F 

5D 

9670 

0F 

10 

10 

11 

11 

12 

12 

13 

88 

9678 

14 

14 

15 

15 

16 

16 

17 

17 

AC 

SUM ： 

E7 

21 

26 

2D 

34 

3A 

DF 

E4 C0F6 

9680 

18 

18 

19 

19 

1A 

1A 

00 

00 

96 

9688 

00 

0B 

0C 

0C 

0D 

0D 

0E 

0E 

59 

9690 

0F 

10 

10 

11 

11 

12 

12 

13 

88 

9698 

14 

14 

15 

15 

16 

16 

17 

18 

AD 

96A0 

18 

19 

19 

1A 

1A 

IB 

00 

00 

99 

96A8 

00 

0A 

0B 

0B 

0C 

0D 

0D 

0E 

54 

96B0 

0F 

0F 

10 

10 

11 

12 

12 

13 

86 

96B8 

14 

14 

15 

16 

16 

17 

17 

18 

AF 

96C0 

19 

19 

1A 

IB 

IB 

1C 

00 

00 

9E 

96C8 

00 

09 

0A 

0B 

0B 

0C 

0D 

0E 

50 

96D0 

0E 

0F 

10 

10 

11 

12 

12 

13 

85 

96D8 

14 

14 

15 

16 

16 

17 

18 

18 

B0 

96E0 

19 

1A 

IB 

IB 

1C 

ID 

00 

00 

A2 

96E8 

00 

09 

09 

0A 

0B 

0C 

0C 

0D 

4C 

96F0 

0E 

0F 

0F 

10 

11 

12 

12 

13 

84 

96F8 

14 

14 

15 

16 

17 

17 

18 

19 

B2 

SUM ： 

EC 

18 

24 

2D 

37 

43 

DA 

E4 7F12 

9700 

1A 

1A 

IB 

1C 

ID 

ID 

00 

00 

A5 

9708 

00 

08 

09 

09 

0A 

0B 

0C 

0D 

48 

9710 

0D 

0E 

0F 

10 

11 

11 

12 

13 

81 

9718 

14 

15 

15 

16 

17 

18 

19 

19 

B5 

9720 

1A 

IB 

1C 

ID 

ID 

IE 

00 

00 

A9 

9728 

00 

07 

08 

09 

0A 

0A 

0B 

0C 

43 

9730 

0D 

0E 

OF 

10 

10 

11 

12 

13 

80 

9738 

14 

15 

16 

16 

17 

18 

19 

1A 

B7 

9740 

IB 

1C 

1C 

ID 

IE 

IF 

00 

00 

AD 

9748 

00 

06 

07 

08 

09 

0A 

0B 

0C 

3F 

9750 

0D 

0E 

0E 

0 F 

10 

11 

12 

13 

7E 

9758 

14 

15 

16 

17 

18 

18 

19 

1A 

B9 

9760 

IB 

1C 

ID 

IE 

IF 

20 

00 

00 

Bl 

9768 

00 

05 

06 

07 

08 

09 

0A 

OB 
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9770 

0C 

0D 

0E 

0F 
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11 

12 

13 

7C 

9778 
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15 

16 

17 

18 

19 

1A 

IB 

BC 

SUM ： 

ED 

12 

IF 

2D 

3B 

47 

D9 

F4 B125 

9780 

1C 

ID 

IE 

IF 

20 

21 

00 

00 

B7 

9788 

00 

05 

06 

07 

08 

09 

0A 

⑽ 

38 

9790 

0C 

0D 

0E 

0F 

10 

11 

12 

13 

7C 

9798 

14 

15 

16 

17 

18 
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1A 

IB 

BC 
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1C 

ID 

IE 
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21 

00 

00 

B7 
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08 
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0A 
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0D 

0E 

0F 
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19 

IB 

1C 

BE 

97C0 

ID 

IE 

IF 
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21 

22 

00 

00 

BD 

97C8 

00 

03 

04 

05 

06 

08 

09 

0A 

2D 

97D0 

0B 

0C 

01) 

0E 

10 

11 

12 

13 

78 

97D8 

14 

15 

16 

18 

19 

1A 

IB 

1C 

Cl 

97E0 

ID 

IE 

20 

21 

22 

23 

00 

00 

Cl 

97E8 

00 

0 2 

03 

05 

06 

07 

08 

09 

28 

97F0 

0B 

0C 

0D 

0E 

0F 

11 

12 

13 

77 

97F8 
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15 

17 

18 

19 

1A 

IB 

ID 

C3 

SUM ： 

EF 

0A 

1C 

2E 

3F 

51 

D7 

E4 A4A6 

9800 

IE 

IF 

20 

21 

23 

24 

00 

00 

C5 

9808 

00 

00 

FE 

FF 

FE 

FE 

FE 

FE 

F5 

9810 

FF 

FE 

00 

FE 

01 

FE 

02 

FF 

FB 

9818 

02 

00 

02 

01 

02 

02 

02 

02 

0D 

9820 

01 

02 

00 

02 

FF 

02 

FE 

01 

05 

9828 

FE 
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00 

04 

00 

08 

05 

05 

18 

9830 

05 

0C 

90 

0F 

0D 

0D 

0D 

0D 

E4 

9838 
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0D 

0C 

20 

0C 

06 

0A 

0A 

6C 

9840 

03 

06 

09 

08 

0A 

0C 

81 

IE 

CF 


ELFES 137 


FD00BO 0000000000 
4320700000000000 

8000B0 0000000000 
2022700000000000 


F D 0 0 no 0 0 0 0 0 0 0 0 0 〇 0 
6222720000000000 

IF 00000000000000 
A 602020000000000 

0DD0BE 0000000000 
0232720000000000 

BD o 0 H 0 0 0 0 0 0 0 0 0 0 0 
7352700000000000 


THE SSTINEL 
































9080 

9C88 

9C90 

9098 

9CA0 

9CA8 

9CB0 

9CB8 

9CC0 

9CC8 

9CD0 

9CD8 

9CE0 

9CE8 

9CF0 

9CF8 


9D00 

9D08 

9D10 

9D18 

9D20 

9D28 

9D30 

9D38 

9D40 

9D48 

9D50 

91)58 

9D60 

9D68 

9D70 

9D78 


SUM: 72 EB 0B 27 E5 C8 0C D.2 


SUM ： D3 62 8B 68 2149 EB 05 


70 

55 

FB 

37 

19 

78 

FB 

0C 

BD 

B0 

E9 

35 

02 

CB 

55 

DF 


27 

20 

02 

F8 

10 

C5 

A5 

7A 

C6 

EE 

2E 

23 

24 
90 
44 
E8 


9880 0D 0D 0D 0D 0D 0D 0C 
9888 03 07 03 0C Cl28 0D 
9890 0D 0D 0D 0D 0C 20 0C 
9898 02 01 02 0C B214 0D 
98A0 0D 0D 0D 0D OC 03 07 
98A8 06 0C B0 14 0D 0D 0D 
98B0 0D 0D 0C 20 0C 03 07 
98B8 03 0C C214 0D 0D 0D 
98C0 0D 0D 0C 03 07 0B 03 
98C8 D1IE 0D 0D 0D 0D 0D 
98D0 0C 20 0C C2IE 0D 0D 
98D8 0D 0D 0D 0C B1 0F 0D 
98E0 0D 0D 0D OD 0C E2IE 
98E8 0D 0D 0D OD 0D 0C CO 
98F0 0D 0D OD OD 0D 0D 0C 
98F8 OF 0D 0D 0D 0D 0D 0D 


SUM ： E6 2B 72 0C 16 03 9D D6 F2F1 

9D80 20 CD E2IF 53 50 45 45 : IB 
91)88 44 00 21 0B 12 CD IE 20 : 8D 
9D90 3A AD 9147 CD Cl IF CD : 39 
9D98 B19A FE F9 28IE FE DF : 65 
9DA0 C8 FE FB 20 01 04 FE F7 : DB 
9DA8 20 01 05 05 3E IF A0 3C : 64 


► GAME OF THE YEAR ， 嫌な企画である。ど一せ私は最近のゲームなんか 1 本も持っ 
てないやい。いじいじと今日もフアンタジアンを起動するのであった。それにしても Mum 
Blade が見つかんねえ一なあ。 鹿又健（18> 宮城 W 


SUM ： EC 54 92 93 8D 43 B0 5E 27D9 

9B00 FF FF FF FF FF FF FF FF : F8 
9B08 FF FF FF FF 00 00 00 FF : FB 
9B10 FF FF FF FF FF FF FF FF : F8 
9B18 FF FF FF FF F7 FB FE FD : E9 
9B20 00 FF FF FF FF FF FF FF : F9 
9B28 FF FF FF FF FF FF FF FF : F8 
9B30 FF F9 FD F5 FB 00 F7 FA : D6 
9B38 FE F6 FF FF FF FF FF FF : EE 
9B40 FF FB FF F5 F7 F6 FF FF : D9 
9B48 FF FF FF FF FF FF FF FF : F8 
9B50 FF FA FF 00 FF FF FF FE : F3 
9B58 FD FF F9 FF FF FF FF FF : F0 
9B60 FF FB FF F5 F7 F6 FF FF : D9 
9B68 FF FF FF FF FF FF FF FF : F8 
9B70 FF FA FF 00 FF FF FF FE : F3 
9B78 FD FF F9 FF FF FF FF FF : F0 


SUM ： EC CF E2 D4 D5 DC E8 E7 E717 

9B80 FF FF FF FF FF FF FF FF : F8 
9B88 FF FF FF FF FF FF FF FF : F8 
9B90 FF FF FF FF FF FF FF FF : F8 
9B98 FF FF FF FF FF FF FF FF : F8 
9BA0 FF FF FF FF FF FF FF FF : F8 
9BA8 FF FF FF FF FF FF FF FF : F8 
9BB0 FF FF F6 FF FF FF FF FF : EF 
9BB8 FF FF FF FD F7 FF FF F5 : E4 
9BC0 FA FB F9 FE 00 FF FF FF : E9 
9BC8 FF FF FF FF FF FF FF FF : F8 
9BD0 FF FF FF FF FF FF FF FF : F8 
9BD8 FF FF FF FF FF FF FF FF : F8 
9BE0 FF FF FF FF FF FF FF FF : F8 
9BE8 FF FF FF FF FF FF FF FF : F8 
9BF0 FF FF FF FF FF FF FF FF : F8 
9BF8 FF FF FF FF FF FF FF FF : F8 


SUM ： EB EC El ED E9 F0 F0 E6 B501 

9C00 3E 0C CD F4IF 2178 94 : 57 
9C08 36 20 1179 94 01 F0 00 : 65 
9C10 ED B0 3E 00 32 68 95 06 : 10 
9C18 00 C5 78 2179 941178 : F4 
9C20 94 01 F0 00 ED B0 47 3E : A7 
9C28 27 B8 30 02 06 27 212C : 8B 
9C30 9F 78 85 6F 3E 00 8C 67 : 3C 
9C38 DD 219F 941128 00 0E : 78 
9C40 06 7E DD 77 00 19 DD 19 : E7 
9C48 0D 20 F6 21 00 0A CD IE : 39 
9C50 20 1178 94 CD E5IF Cl : CF 
9C58 04 3E 50 B8 20 BB C9 3E : 2C 
9C60 0C CD F4IF 3E 0132 AE : 0B 
9C68 9121 01 02 22 B9 9121 : 42 
9070 78 94 36 20 1179 94 01 : 81 
9078 EF 00 ED B0 23 36 00 0E : F3 


SUM ： 7C 79 9A B3 8C 93 62 AA 


9DB0 32 AD 91 01 00 40 54 5D : 62 
9DB8 ED B0 18 CE 21IE 12 CD : Al 
9DC0 IE 20 CD E2IF 52 4F 55 : 02 
9DC8 4E 44 00 212412 CD IE : D4 
9DD0 20 3A AE 9147 CD Cl IF : 8D 
9DD8 CD B19A FE DF 28IB FE : 36 
9DE0 FB 20 01 04 FE F7 20 01 : 36 
9DE8 05 05 3E 07 A0 3C 32 AE : 0B 
9DF0 91 01 00 40 54 5D ED B0 : 20 
9DF818 D13A AE 9132 B9 91 : DE 


SUM ： 58 B6 C9 E9 A6 98 74 EE 460B 

9E00 47 0E 0179 80 4F 10 FB : A9 
9E08 FE 0D 38 02 3E 0C 32 BA : 7B 
9E10 91 C9 25 CD IE 20 7A CD : 1)1 
9E18 F4IF 24 24 CD IE 20 7A : E0 
9E20 CD F4IF 25 2D CD IE 20 : 3D 
9E28 7A 2C CD F4IF CD F4IF : 66 
9E30 C3 F4IF 87 87 87 87 57 : 49 
9E38 87 87 82 C9 20 20 20 20 : D9 
9E40 20 7B 7B 7B 7B 7B 7B 7B : 7D 
9E48 20 20 20 20 20 20 20 20 : 00 
9E50 20 20 20 20 20 20 20 20 : 00 
9E58 20 20 20 20 20 20 20 20 : 00 
9E60 20 20 20 20 20 20 20 20 : 00 
9E68 20 7B 7B 20 20 20 20 20 : B6 
9E70 20 7B 20 20 20 20 20 7B : B6 
9E78 7B 7B 7B 7B 20 7B 7B 7B : 7D 


SUM ： B6 0A 20 8B F7 90 4B C3 CDC4 

9E80 7B 20 20 7B 7B 7B 7B 20 : C7 
9E88 20 20 20 20 20 20 20 20 : 00 
9E90 20 7B 7B 7B 7B 20 20 20 : 6C 
9E98 20 7B 20 20 20 20 20 7B : B6 
9EA0 20 20 20 20 20 7B 20 20 : 5B 
9EA8 20 20 7B 20 20 20 20 20 : 5B 
9EB0 20 20 20 20 20 20 20 20 : 00 
9EB8 20 7B 7B 20 20 20 20 20 : B6 
9EC0 20 7B 20 20 20 20 20 7B : B6 
9EC8 7B 7B 20 20 20 7B 7B 7B : C7 
9ED0 20 20 20 7B 7B 7B 20 20 :11 
9ED8 20 20 20 20 20 20 20 20 : 00 
9EE0 20 7B 7B 20 20 20 20 20 : B6 
9EE8 20 7B 20 20 20 20 20 7B : B6 
9EF0 20 20 20 20 20 7B 20 20 : 5B 
9EF8 20 20 20 20 20 20 7B 20 : 5B 


SUM ： B6 7D 6C 1111 C7 11 6C B179 

9F00 20 20 20 20 20 20 20 20 : 00 
9F08 20 7B 7B 7B 7B 7B 7B 7B : 7D 
9F10 20 7B 7B 7B 7B 7B 20 7B : 22 
9F18 20 20 20 20 20 7B 7B 7B :11 
9F20 7B 20 7B 7B 7B 7B 20 20 : C7 
9F28 20 20 20 20 7B 7B 7B 7B : 6C 
9F30 7B 20 20 7B 7B 7B 20 20 : 6C 
9F38 7B 7B 7B 7B 20 20 20 20 : 6C 
9F40 20 7B 7B 7B 7B 20 20 20 : 6C 
9F48 20 7B 7B 7B 20 20 20 7B : 6C 
9F50 7B 7B 7B 20 7B 7B 20 20 : C7 
9F58 20 20 7B 7B 20 20 7B 20 :11 
9F60 7B 7B 20 20 7B 20 20 20 : 11 
9F68 7B 20 20 20 20 20 20 20 : 5B 
9F70 7B 7B 20 20 7B 20 7B 20 : 6C 
9F78 20 20 20 20 7B 7B 20 20 : B6 


SUM ： 7D D8 D8 D8 8E D8 C7 C7 7EF1 

9F80 20 20 7B 7B 20 20 7B 20 
9F88 7B 7B 20 20 7B 20 20 20 
9F90 7B 20 20 20 20 20 20 20 
9F98 7B 7B 20 20 7B 20 7B 20 
9FA0 20 20 20 20 7B 7B 7B 7B 
9FA8 20 20 7B 7B 20 20 7B 20 
9FB0 7B 7B 7B 7B 20 20 20 20 
9FB8 20 7B 7B 7B 20 20 7B 20 
9FC0 7B 7B 20 20 7B 20 20 7B 
9FC8 7B 7B 20 20 7B 7B 20 20 
9FD0 20 20 7B 7B 20 20 7B 20 
9FD8 7B 7B 20 7B 20 20 20 20 
9FE0 20 20 20 20 7B 20 20 20 
9FE8 7B 7B 20 20 7B 20 20 20 
9FF0 20 20 7B 20 7B 7B 20 20 
9FF8 20 20 20 7B 7B 7B 20 20 


SUM ： D8 D8 22 7D 33 6C 22 B6 B7E7 

A000 7B 7B 20 20 7B 20 20 20 :11 
A008 7B 7B 7B 7B 20 20 20 20 : 6C 
A010 20 7B 7B 7B 20 20 7B 7B : C7 
A018 7B 7B 20 20 : 36 


SUM ： 91 EC 36 36 BB 60 BB BB 374A 


5B 

6C 

6C 

11 

6C 

6C 

6C 

6C 


5B 

11 

11 
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1C 

72 

FI 
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19 

4A 

3D 
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4D 

21 

2C 

69 


SUM ： 6F E0 10 99 D4 C5 7B 8A E7AB 
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FF 
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9908 
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20 

2E 

2D 

2D 

2E 

B0 

C2 

9918 

2B 

B0 

2B 

2D 

2E 

2D 

2D 

2E 

E9 

9920 

1C 

20 

3D 

3D 

3D 

28 

2E 

6F 

B8 
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2E 
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20 

20 

20 
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20 
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20 

20 

20 

49 
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49 

20 

20 
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9948 
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20 

20 

20 
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20 

20 

20 
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3C 

3C 
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5B 

5B 

5B 

5B 

5B 

5B 

21 

21 

64 
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21 

6F 

6F 
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21 

21 

21 

5D 

2E 
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5D 

5D 

5D 

5D 
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3E 

3E 
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3E 

3E 

20 

20 

20 

20 

20 

5A 

SUM ： 

B0 
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6A 
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DE 

82 

8E 46FE 

9980 

20 

20 

2 0 

20 

20 

28 

28 

28 

18 

9988 

28 

28 

28 

28 

28 

28 

28 

48 

60 

9990 

48 

48 

48 

48 

48 

48 

29 

29 

02 

9998 

29 

29 

29 

29 

29 

29 

29 

29 

48 

99A0 
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20 
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20 

00 

99A8 
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20 

00 
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00 
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00 
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00 
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48 

30 23AD 
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BD 
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2E 
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20 

66 
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C3 

DE 

CA 
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9C 
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B2 
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20 

20 

20 

20 
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20 

20 
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20 

00 

9A70 

Cl 
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B3 
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C6 
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9A78 
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20 

33 

BC 

DE 

B9 

DE 

DD 

05 

SUM ： 

25 

A4 

90 

CB 

30 

31 

4C 

51 E9FE 

9A80 

20 

C6 

20 

BD 

B6 

DE 

C0 

20 

: 37 

9A88 

A6 

20 

B1 

D7 

DC 

BC 

A4 

CF 

: 59 

9A90 

CO 

20 

BF 

C9 

20 

D3 

B3 

B2 

: C0 

9A98 

20 

A6 

20 

CC 

D9 

B3 

CO 

DE 
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B3 
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2E 

2E 

2E 

2E 

2E 

: 9-1 
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2E 

Al 
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20 
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: B9 

9AB0 

00 

C5 
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D0 

IF 

FE 
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: 7F 
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CA 

FA 

IF 

26 

9B 

6F 

7E 

47 

: D8 

9AC0 

FE 

00 

20 

17 

06 

FF 

3A 

FI 

: 65 

9AC8 

9A 

B7 

20 

14 

3A 

F0 

9A 

EE 

: 37 

9AD0 

01 

32 

F0 

9A 

3E 

01 

32 

FI 

: 1F 

9AD8 

9A 

18 

05 

3E 

00 

32 

FI 

9A 

: B2 

9AE0 

3A 

F0 

9A 

B7 

20 

04 

78 

El 

: F8 

9AE8 

Cl 

C9 

3E 

20 

A8 

El 

Cl 

C9 

: KB 

9AF0 

00 

00 

3E 

00 

32 

F0 

9A 

C9 

: ('3 

9AF8 

45 

4E 

45 

41 

50 

50 

45 

52 

: 50 


138 Oh! X 1988.2. 


9848 0D 0D 0D 0D 
9850 0C 00 06 01 
9858 08 0G A0 14 
9860 0D 0D 0C 20 
9868 02 01 02 01 
9870 0D 0D 0D 0D 
9878 0C 03 07 07 


0D 

0D 

0C 

20 

7A 

05 

03 

07 

02 

24 

0D 

0D 

0D 

0D 

FC 

0C 

0G 

07 

01 

60 

0B 

0C 

B1 

0C 

DA 

0D 

0D 

0C 

20 

7A 

03 

0C 

E1 

14 

21 


80DDDCED3DE1E01E 
70EC509D 00927213 

16094 1C7E94D3D0C 
21075 c 36016 D0020 

5F74981C0D17E9E1 
c 529 1B280D 2601 1C 

3E170D10090C0DDF 
090C0E 4051980 Del 

0331605 El 0700915 

032210 c 310205 11 E 

1DD5F71F47EE100D 
0C5C52C 69733100 c 

5941E135FD6F 4714 
C75C90D89DF 69729 

04903 B081E050D68 
091B 32172728 ADF7 


F0DD0BF410D4249E 
12c 02665 E1C76CF1 

4E300F 551 C000D8D 
C 1 F 0268 cc 0222 C 2 C 

DD01F19501E820F2 

CC10147EBE1670F1 

C8FF2E5EDED35EE5 
9110 E2E9E9C766F0 

1046 D 40202657 FA1 
80F1C 50121176692 

21D1000D0DB 07410 
C2C 2222 C0C0567BC 

9BDFE90B101F94DF 
B 0011727022167 CF 

86E4D296D6F225FE 
203CC 46151 CE771F 


7D6DCDBDCDDDD42C 
0 0 0 0 0 0 0 0 0 0 0 0 0 IDO 





































リスト E ELFES ソース リスト 


0000 

6000 

0000 

eeee 

9000 

eeee 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

eeee 

80 ee 

8000 

8eee 

8eee 

8000 3E 28 CD 30 20 
8005 CD ee 9C 
⑽ 08 
8008 

8008 21 BD 9136 FF 11 BE 
8eep 91 

8eie ei82 02 bd bo 

8015 21 0E 13 22 AF 91 

801B 22 B191 

801E AP 32 B3 9132 B4 91 

8025 32 B5 91 

8028 3B FF 32 6E 94 

802D 3B 2B 32 AB 91 

8032 3B 20 32 AC 91 

8037 3B QC 32 B6 91 

803C 21 00 00 22 B7 91 

8042 2129 98 22 BB 91 

8048 

8048 CD P2 9A 

804B CD 5F 9C 

804B CD F2 9A 

8051 

8051 3A AE 91 PE 012810 
8058 2A DB 9147 05 
805D 

805D 7B 23 FB 20 20 FA 
8063 10 P8 
8065 22 BB 91 
8068 

8068 3B 6C CD P4IP 
806D 21 00 00 CD IB 20 CD 
8074 B2IP 

8076 53 43 4F 52 45 00 
807C 21IB 00 CD IB 20 CD 
8083 B2IP 

8085 52 4P 55 4E 44 00 
808B 2111 01 CD IE 20 CD 
8092 B2IF 

8094 53 48 49 45 4C 44 00 
809B 2111 02 CD IB 20 CD 
B0A2 B2IP 

86A4 57 45 4150 4F 4K 00 
80AB 

⑽ AB CD B7 8F 
80AE CD D3 8F 
8081 

80B13A B3 91 3C 32 B3 91 

80B8 B7 20 2E 

80BB 2A BB 917E 

80BF PE FF 20 03 

80C3 C3 9B 81 

86C6 23 22 BB 91 

deCA 32 B6 91 FB 0C 3815 

80D1 CB 7F 2011 

B0D5 FE 20 CA 8F 8E 

80DA FE ec CC 9A 88 

80DF 3E OC 32 B6 91 

B0B418 03 

80E6 

80E6 CD 9A 88 
80E9 

80E9 CD BE 81 

80EC 3A B5 91 B7 C2 2F 91 

30P3 

B0F3 CD 3P 82 CD D8 85 

80P9 CD B8 82 

80PC CD 37 85 CD 3F 82 

8102 CD 8F 83 CD 95 86 

8108 C3 B180 

810B 

810B 

8108 216E 94 3E 00 06 OA 
8112 

8112 77 2310 FC 

8116 3E 00 32 AB 91 CD E8 

811D 82 

81IE 3B 00 32 AC 91 
8123 

8123 3A B3 913C 32 B3 91 
812A 

812A CD BE 81 

ai2D 3A B5 91 B7 C2 2F 91 

8134 CD 3F 82 CD 5181 

813A CD E8 82 

B13D CD 3F 82 CD 5181 

8M3 CD 95 86 CD 7E 81 

8149 FE 01 CA AF 90 

814E C3 23 81 

8151 

8151 

8151 DD 21 BD 91 0610 
8157 

8157 3R 03 DD BE 012019 
815E 26 03 DD 6E 00 CD 94 

8165 90 

8166 CO IB 20 3E 20 CD F4 
B16D IF 

81BE 3E 0132 6F 94 DD 36 

8175 00 FF 

8177 

8177 DD 23 DD 2310 DA 
8170 C9 

817B 

817E 

8178 3A 6F 94 B7 28 27 

8184 3A 70 94 6F 

8188 3A 7194 67 

8180 23 3A 6E 94 3C 

8191 BC 20 OP 

8194 26 00 CD C4IF CD AD 

819B 8P 

819C 3A 6E 94 3C 32 6E 94 
81A3 

B1A3 7D 32 70 94 


2 

3 


START 87.10.03 
E L F B S MAIN P. PROT 87.11.15 


5 PRT HQU 01FF4H 

6 MBS BQU 01FK5H 

7 OBTKY BQU 01FD0H 

8 LOC EQU 0201BH 

9 PRTHL EQU 01FBEH 

10 PRTHA BQU CiFCIH 

11 PRTHS BQIJ 01PE2H 

12 BELL EQU 01PC4H 

13 WIDTH BQU 0203 OH 

14 #HOT BQU 01FFAH 

15 

16 BOMB BQU 13 

17 

18 ORG 80 咖 

19 OFFSET 4B00H-8000H 
26 

21 COLD0 

22 LD A,40：CALL WIDTH 

23 CALL DEMO 

24 

25 COLD 

26 LD HL 9 NN：LD (HL),ePPH：LD DB,MM+1 


27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 COLD1 

46 

47 

48 

49 HOT 



LD BC,32+98+512:LDIR 
LD HL,19t256^14：LD (XY),HL 
LD (XYB) t HL 

XOR A：LD (COUNT),A：LD (TOUCH) ， A 
LD (QAMBOVERP),A 
LD A f 0PPH：LD (BOSSBP) 

LD A,".":LD (STARC),A 
LD A," ”5LD (STARB),A 
LD A,12：LD (ENKMYTYPE) f A 
LD HL,0：LD (SCORB),HL 
LD HL,TBKI：LD (TBKIADD) f HL 

CALL KEYOPF 
CALL DEMOS 
CALL KBYOFP 

LD A,(ROUND) : CP 1 : JR 2,HOT 
LD HL,(TBKIADD) : LD B,A：DEC B 

LD A,(HL)：INC HL：CP 32：JR N2 t COLDl 
DJNZ COLD1 
LD (TBKIADD)»HL 

LD A f OCH : CALL PRT 
LD HL,0：CALL LOC : CALL PRTMS 


52 DM "SCORE" DB 00 

53 LD HL.30：CALL LOC：CALL PRTM9 


54 DM w ROUND M DB 00 

55 LD HL,256+17:CALL LOC：CALL PRTMS 

56 DM "SHIELD" DB 00 

57 LD HL,512+17:CALL LOC：CALL PRTMS 

58 DM M WEAPON M DB 00 

59 

66 CALL POWERPRT 

61 CALL SCOREPRT 

62 MAIN 

63 LD A,(COUNT)：INC A:LD (COUNT),A 

64 OR A：JR NZ 9 MAIN0 

65 MAINlrLD HL, (TBKIADD> LD A v (HL) 

66 CP 0FPH：JR NZ.MAIN2 

67 JP BMAIN 

68 HAIN2：INC HL：LD (TBKIADD),HL 

69 LD (BNEMYTYPB) # A：CP 12:JR C.MAIH3 

70 BIT 7,A：JR NZ,MAIN3 

71 CP 32：JP Z,SUPPLY 

72 CP 12：CALL Z,ENEMYAWAY 

73 LD A,12：LD (ENKMYTYPE),A 

74 JR MAINe 

75 MAIN3 

76 CALL ENEMYAWAY 

77 HA1N0 

78 CALL MY 

79 LD A,(GAMEOVERF)：OR A：JP N2 f GAMEOVBR 

80 

81 CALL MMISS：CALL ENBHYCH 

82 CALL STARM 

83 CALL BNEAPPERrCALL MMIS3 

84 CALL ENEMY：CALL EMISS 

85 JP MAIN 

86 

87 BMAIN 

88 LD HL f BOSSBF：LD A,0：LD B,10 

89 BMAIN0 

90 LD (HL),A ： 1NC HL：DJNZ BMAIN0 

91 LD A,0：LD (STARC),A：CALL STARM 

92 LD A,0：LD (STARB),A 

93 BMAIN1 

94 LD A f (COUNT)：INC A：LD (COUNT) t A 

95 

96 CALL MY 

97 LD A,(QAHEOVERF)：OR A：JP NZ.GAMEOVER 

98 CALL HMISS:CALL HISSCH 

99 CALL STARM 

100 CALL MMISS：CALL MIS8CH 

101 CALL EMISS2CALL BOSSATTACK 

102 CP 1：JP Z,ENDING 

103 JP BMAINi 

104 

105 MISSCH 

106 LD IX,MM：LD B,16 

107 HISSCH1 

108 LD A,3：CP (1X41)：JR NZ.MISSCH2 

109 LD H t 3：LD L,(IX)：CALL LOCATE 

110 CALL LOC : LD A, M ": CALL PRT 

111 LD A,l：LD (BOSSBF+1),A：LD (IX),0FFH 

112 HISSCH2 

113 INC IX：INC IX：DJNZ MISSCH1 

114 RET 

115 

116 BOSSATTACK 

117 LD A,(BOSSBF+1):OR A：JR Z,BOSSATTACK1 

118 LD A,(BOS8BP^2)：LD L,A 

119 LD A,(BOSSBF+3):LD H,A 

120 INC HL：LD A,(BOSSBP) : INC A 

121 CP H:JR NZ.BOSSATTACK0 

122 LD H,0：CALL BBLL：CALL SCOREUPH 

123 LD A f (B08SBF)：INC A：LD (BOSSBF),A 

124 BOSSATTACK0 

125 LD A V L：LD (BOSSBF^2),A 


81A7 7C 32 7194 
81AB 

81AB 3B 00 32 6P 94 

81B0 PD 2152 89 3A 6E 94 

81B7 OB 00 CD 72 8E 

81BC 79 C9 

81BB 

81BE 

81BB 3A B4 91 B7 2814 

8104 3D 32 B4 91 

8108 B7 20 0D 

81CB 3A B9 91 B7 C2 D8 81 

81D2 3B 0132 B5 91 C9 

81D8 

81D8 

81D8 2A AF 91 
81DB CD B19A 47 
81DF CB 50 20 06 

8183 7D PE ei 28 ei 

8188 2D 
81B9 

81B9 CB 58 20 66 

81BD 7D PE IB 30 01 

81P2 2C 
81P3 

81F3 CB 40 20 06 

81P7 7C PB OA 38 01 

81PC 25 
81PD 

81PD CB 48 20 06 

8201 1C PB 13 30 01 

8206 24 

8207 

8207 CB 68 20 09 

820B 3A B4 91 B7 20 03 

8211 CD 93 82 

8214 

8214 

8214 22 AP 91 

8217 2A B191 CD 94 90 

8210 FD 216C 91 CD 40 90 

8224 2A AF 9122 B191 

822A PD 21 66 91 

822E 3A B4 91 B7 28 04 

8234 FD 217B 91 

8238 

8238 CD 94 90 
823B CD 40 90 
823B. 

823B C9 

823P 

823P 

823F C5 D5 65 

8242 DD 21 BD 91 0610 

8248 

8248 DD 7B 00 FE FF 28 3A 

824F DD 6B 00 DD 66 01 

8255 CD 94 90 CD IE 20 

825B 3E 20 CD F4IF 

8260 DD 35 013E FF DD BB 

8267 01 

8268 20 06 DD 36 00 FF 18 
826F 19 

8270 

8270 DD 6E 00 DD 66 01 

8276 CD 94 90 CD IB 20 

827C 6E 6F 

827K 7C FE 0A 30 02 0E A1 

8285 79 CD F4IF 

8289 

8289 

8289 DD 23 DD 2310 B9 

828F B1 D1 Cl 

8292 C9 

8293 
8293 

8293 C5 D5 E5 DD E5 
8298 DD 21 BD 913A B9 91 
829F 47 

82A0 11 04 00 25 
82A4 

82A4 DD 7E 00 FE FF 20 07 

82AB DD 7E 02 FK FF 28 06 

82B2 

82B2 DD 1910 HE 18 2A 

8208 

82B8 B5 2D 7D DD 77 00 

82BE 7C DD 77 01 

82C2 CD 94 90 CD IE 20 3E 

82C9 6F CD K4IF 

82CD HI2C 7D DD 77 02 

8203 7C DD 77 03 

8207 CD 94 90 CD IE 20 3E 

82DE 6F CD F4IF 

82E2 

82E2 DD El El D1 Cl 
82E7 C9 


126 LD A 9 H：LD (BOSSBP43) f A 

127 BOSSATTACK1 

128 LD A,e：LD (BOSSBP^l),A 

129 LD IY,BOSSTABLB:LD A,(BOSSBF) 

130 LD C f 0：CALL CTABLB 

131 LD A,C：RBT 

132 

133 MY 

134 LD A,(TOUCH)：OR A:JR Z,MY0 

135 DEC A:LD (TOUCH) f A 

136 OR A：JR NZ,MY0 

137 LD A,(POWER)：OR A：JP NZ t MY0 

138 LD A,1：LD (QAMBOVKRF),A：RBT 

139 

140 MY0 

141 LD HL f (XY) 

142 CALL KEYIN：LD B,A 

143 BIT 2,B：JR NZ.MYl 

144 LD A,L：CP 1：JB Z,MY1 

145 DEC L 

146 MY1 

147 BIT 3 9 B：JR HZ t HY 2 

148 LD A 9 L：CP 27:JR NC.MY2 

149 INC L 

150 MY2 

151 BIT e v B ： JR NZ f MY3 

152 LD A,H：CP 10：JR C,KY3 

153 DBC H 

154 MY3 

155 BIT 1 9 B：JR NZ.MY4 

156 LD A,H：CP 19:JR NC t MY4 

157 INC H 

158 MY4 

159 BIT 5 • か JR NZ V HY5 

160 LD A,(TOUCH)：OR A:JR NZ.MY5 

161 CALL MSHOT 

162 

163 HY5 

164 LD (XY),HL 

165 LD HL,(XYB) : CALL LOCATE 

166 LD IY,BHYS：CALL PCHR 

167 LD HL,(XY)：LD (XYB),HL 

168 LD IY.CMYS 

169 LD A,(TOUCH)：OR A：JR Z V MY6 

170 LD IY.CCRS 

171 MY6 

172 CALL LOCATE 

173 CALL PCHR 

174 

175 RET 

176 

177 MMISS 

178 PUSH BC.PUSH DE：PUSH HL 

179 LD IX,NH：LD B v 16 

180 MMISS1 

181 LD A,(1X40):CP 0FFH：JR Z,MMISS5 

182 LD L,(IX):LD H,(IX+1> 

183 CALL LOCATE：CALL LOC 

184 LD A," -：CALL PRT 

185 DEC (IXf 1)：LD A,0FFH:CP (IX*fl) 

186 JR NZ 9 MHISS2：LD (IX),ePFH:JR MMISS5 

187 NMISS2 

188 LD L»(IX)：LD H,(IX+1> 

189 CALL LOCATE：CALL LOC 

190 LD C, M o M 

191 LD A,H：CP 10：JR NC,MMISS3：LD C, H . M 

192 NMISS3 

193 LD A # C：CALL PRT 

194 

195 MMISS5 

196 INC IX：INC IX：DJNZ MMISSI 

197 POP HL：POP DB：POP BC 

198 RET 

199 

200 MSHOT 

201 PUSH BC：PUSH DB：PUSH HL：PUSH IX 

202 LD IX,MM：LD A,(POWER)：LD B.A 


203 LD 06,04： DEC H 

204 MSHOT1 

205 LD A,(IX)：CP 0FFH：JR NZ,MSHOT4 

206 LD A,(IX+2>:CP OFFHrJR Z.MSHOT2 

207 MSHOT4 

208 ADD IX f DE：DJNZ MSHOT1:JR MSHOT3 

209 MSHOT2 

210 PUSH HL：DEC L：LD A • し： LD (IX),A 

211 LD A,H: LD UX+1>，A 

212 CALL LOCATE:CALL LOC : LD A, M o":CALL PRT 

213 POP HL：INC L：LD A,L：LD (1X^2) f A 

214 LD A V H ： LD (1X^3) r A 

215 CALL LOCATE：CALL LOC : LD A, M o M :CALL PRT 


216 MSHOT3 


POP IX：POP HL：POP DE：POP BC 
RET 


82E8 

82E8 

82B8 C5 DS E5 

82EB DD 2115 93 3A AD 91 

82F2 47 

82F3 

82F3 DD 7B 01 FE FF 20 2D 

82PA AP DD 77 00 DD 77 02 

8301 DD 36 0113 DD 36 03 

8308 03 

8309 BD 5F 3C DD 77 06 
830F 

830F BD 5P E6 OF 4F 

8314 KD 5F 07 07 B6 FO B1 

831B DD 77 04 

891E RD 5F H6 02 OF 3D 

8324 DD 77 05 

8327 

8327 DD 6B 01 DD 66 03 

832D CD IE 20 3A AC 91 CD 

8334 F4IP 
8336 

8336 DD 66 01 DD 6E ee 

833C DD 56 05 DD 5E 04 

834219 

8343 DD 74 01 DD 75 00 
8349 

8349 DD 66 03 DD 6E 02 
834F 16 00 DD 5B 06 
835419 

8355 DD 74 03 DD 75 02 
835B 

835B DD 7B 03 FE 18 20 06 
8362 

8362 DD 36 01 FF 181A 
8368 

8368 DD 7B 01 PB FF 28 F3 


219 

220 STARM 

221 PUSH BC:PUSH DE : PUSH HL 

222 LD IX,STAR:LD A,(MANYSTAR):LI> B f A 

223 STARM1 

224 LD A,(IX^i)：CP OFFHrJR NZ,STARM3 

225 XOR A：LD (IX) V A:LD (IXf2),A 

226 LD <IX+U.19:LD (IX+3),3 

227 LD A,R：INC A：LD (1X^6) V A 

228 STARM6 

229 LD A,R：AND 0FH：LD C,A 

230 LD A,R ： RLCA ： RLCA:AND 0F0H：OR C 

231 LD (1X44) V A 

232 LD A,R：AND 02H:RRCA：DEC A 

233 LD (1X^6) 9 A 

234 STARM3 

235 LD L t (1X4^1)：LD H,(lX+3) 

236 CALL LOC：LD A v (STARB) : CALL PRT 

237 ； X 

238 LD H f (IX^1)：LD L,(IX) 

239 LD D f (1X45)：LD E ，（ IX+4> 

240 ADD HL t DB 

241 LD (IX^l) t H：LD <IX) 9 L 

242 ； Y 

243 LD H 9 (1X^3)：LD L 9 (IX>2) 

244 LD D,0：LD E f (1X46) 

245 ADD HL,DB 

246 LD (1X^3),H：LD (IX+2}，L 

247 

248 LD A,<IX+3>:CP 24：JR NZ,STARM5 

249 STARN4 

250 LD (1X^1) # 0PFH：JR STARM10 

251 STARM5 

252 LD A,(1X41) : CP CFFH：JR Z.STARM4 


►1« 号の 表紙はなんですか？ 私には 诈， 践形 f •次の オープニングに出てきた特 人の 1 
文銭に兄えるのですが。 光山繁婶 <21)兵庫県 
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253 

254 

255 


CP 40：JR Z t STARM4 
LD H,(IX^3)：LD L,<IX+1) 
.L0C:1 一 


CALL 1 


：：LD A, (STAHC) : CALL PRT 


256 

257 STARM10 

266 LD DB t e7：ADD IX.DB 

259 DBC B：JP NZ.STARMl 

260 POP HL：POP DBtPOP BC 

261 RBT 

262 

263 BNKMY 

264 PU8H BC：PUSH DB：PUSH HL 

265 LD IX f BNEXY：LD B,8 

266 BNBHY1 


LD A,0FFH：CP (IX)：JP Z.ENBMY4 


LD L, (IX4-l):LD Ht(IX42) 

CALL LOCATE：LD IY,BBN8:CALL PCHR 


LD C,0FFH 
LD A,(IX) 
LD A,(IX) 


LD L,(IX^1)：LD H 9 (IXf2) 
LD IY,MTABLB：CALL CTABLB 
CP BOMB：JP NC.BNHMY4 


267 


270 

271 


272 

273 


274 
276 

276 

277 

278 ENEMY5 

279 LD A,(IX^1):BIT 7,A：JR Z.BNEMY2 

280 BNEMY3 

281 LD (IX) t 0FFH：JR KHBMY4 

282 BNBMY6 

283 LD A,(IX) : CP BOMB:JR 2,BNBMY4 

284 CALL SCORBUP 

285 LD (IX),BOMB：LD (IXf3) f 3：JR BNBHY4 


LD (IX+1M>:LD (1X^2) f H 
LD A,C：CP 0FFH：JR Z.BNKHY5 
CALL BMISSSHOT 


286 BNBHY2 

287 

288 

289 

290 

291 

292 

293 

294 


CP 29:JR NC.BNEMY3 

LD A,(IX+2):BIT 7,A:JR NZ,BNBMY3 

CP 21:JR NC.BNEMY3 

LD L,(IX 川 ： LD H t (IX+2) 

CALL EDBATHCH：OR A：JR Z f BMKMY6 

CALL LOCATE : LD IY f CBNS：CALL PCHR 


LD L,(IX+1):LD H,(IX>2) 

LD A,(XY)：LD D f L:CALL CHECK：JR NC.BNBMY4 


LD A,(XY+1)：CP H：JR NZ,ENEMY4 
CALL TOUCHMB 


295 

296 

297 

298 

299 

300 

301 

302 

303 ENBMY4 

304 

305 

306 

307 BOSS 

308 LD IX.BOSSXY 

309 LD A,(IX)：CP OFFH：JP Z.BOSSO 

310 LD L,(IX+2):LD H f (IX+3) 

311 PUSH HL：CALL LOCATE 

312 LD IV,EBOS：CALL BCHR：POP HL 


LD DE,e5:ADD IX,DE 
DEC B：JP N2, ENEMY1 


LD A f (IX+l):CP 5：JR NZ,BOSS 10 
LD rY,EENS：CALL BATYPEFS 


313 

314 

315 

316 BOSS 10 

317 LD A,(IX+12>:OR A：JR NZ.B0SS8 

318 BOSS7 

319 LD A,(IX)：LD IY t BMTABLE:CALL CTABLB 


320 

321 BOSS8 

322 

324 BOSS2 

325 

326 BOSS1 

327 

328 

329 

330 

331 

332 

333 

334 

335 


LD (1X^2),L：LD (IX+3) t H 
LD A,1：CP L：JR NZ.BOSSl 

CALL BOSS12：JP BOSS0 

CP H:JR Z # BOSS2 
LD A,27：CP L：JB Z,BOSS2 
LD A,19:CP H：JR Z.BOSS2 

LD A,(IX4l4)：OR A:JR NZ.BOSS3 
CALL BDBATHCH：OR A：JR HZ ,00883 
CALL SCORBUP 

LD (1X^14) f 3：LD A f (IX+15)：CP 1 
JR NZ,BOSS3：LD (1X^14),20：LD (1X^12), 


336 B08S3 

337 LD A, ：OR A ： JR Z f B03S5 

338 DBC (IX+14>:JR NZ,B08S5 

339 DBC (IX>15)：JR HZ.B08S5 

340 CALL BBLL：CALL BOSS12 

341 JR B08S9 

342 BOSS5 

343 PU8H HL：CALL LOCATE : LD IY.RBOS 

344 LD A,(1X^14)：OR A：JB NZ f BOSS4 

345 LD IY.CBOS 

346 BOSS4 

347 CALL BCHR：POP HL 

348 

349 LD A,(IX^12)：OR A：JR NZ.BOSS9 

350 LD A,(IX^l)：LD IY,BATABLB：CALL CTABLB 


351 

352 BOSS9 

353 


> D t L：CALL CHECK：JR NC.BOS30 


LD A,(XY41)：CP H:JR NZ,BO3S0 
CALL TOUCHMB 


364 

355 

356 

357 BOSSO 

358 POP HL：POP DB：POP BC 

359 RBT 

360 

362 LD HL,(TBKIADD)：DBC HL 

363 LD A f (HL)：CP 12：JR Z ( BOSS13：INC HL 

364 B08816 

365 LD A t (HL):CP 12:JR Z.BOSS14 

366 INC HL：JR BOSS15 

367 BOSS14：INC HL：LD (TBKIADD),HL 

368 BOS813 

LD (COUNT),A 

LD (8TABC),A：LD (IX) f 0FPH 


A t 86H: 


8537 

8537 

8537 

853A 

853F 

8541 

8544 

8546 

854A 

854B 

854B 

8551 

8657 

8557 

855E 

8565 

8567 

8567 

856B 

8571 

8574 

8574 

8574 

8579 
857C 
867F 

8580 
8580 
8580 
8586 
8589 
858D 
8591 
8596 
859D 
85A0 
85A7 
85A8 
85AF 
85B2 
85B6 
85DA 
85C1 
85C8 
85C9 
8500 
85D1 
8502 
8502 

8507 

8508 
8508 
8508 
85DD 
85E3 
85E3 
85EA 
85F1 
85F3 
85F6 
85FD 
8600 

8607 
8808 

8608 
860F 
8616 

8619 

8620 
8626 
862C 
862F 
8636 
8638 
863F 
86 ‘ 


C5 D5 E5 
3A B6 91 CB 7P 

20 33 

21 HE 88 
85 6F 

7C CB 00 67 
46 

3A B3 91 AO 20 : 

DD 21 DD 91 06 ( 

3E FP DD BE 00 

1105 00 DD 19 
18 0D 

3A B6 9i FD 21 

DD 77 00 

CD 72 8E 


28 09 
10 F2 


3A B3 91 B7 28 4C 
FE 40 
DD 21 
3A B6 
E6 03 
78 B6 
DD 77 

DD 36 02 0E DD 


I C0 
05 93 
9147 
DD 77 00 
70 0F 0F 

ei 


02 

DD 7B 00 FD 21 
CD 72 
2A BB 
23 22 
DD 77 
DD 36 


8H 
917E 
BB 91 

OF DD 36 < 
0D 00 DD : 


03 

11 05 l 
DD 21 i 
DD 66 ( 
3B FF 
DD 7B 
CD 48 
CD Cl 
DD 36 
FB 01 
20 08 
36 0C 


DD BE 00 
0B B7 20 
86 B7 20 


DD El HI D1 Cl 
C9 


CALL 8CORBUPH 
RBT 


8648 

8640 

86! 

8654 

865B 

8661 

8668 

866A 

866C 

8673 

867A 

B67B 

8682 

8683 

8683 

8689 
868A 
868P 

8690 
8690 
8690 
8690 

8694 

8695 
8695 
8695 
8698 
869E 
869E 
86A5 
86A6 
86AC 
86B3 
86D7 
86BD 

8603 

8604 
86CA 
8600 
86D6 
86D7 
86DD 
B6DD 
86E4 
86B4 
86BA 
86BA 
86EE 
86P5 
B6F9 
8700 

8705 

8706 
870B 
8712 
8714 
B71A 


DD 7B 00 FE PP 
OD 7E 01 BC 20 
DD 7B 00 55 CD 
30 19 

0 E ee 

B5 DD 6B ee DD 
CD 94 90 CD IB 
20 CD F4IP 
DD 36 00 PP 
El 


DD 23 DD 2310 CB 


DD El B1 D1 Cl 
C9 


92 3C D6 03 


C5 D5 B5 
DD 21 05 92 06 


20 


87 


DD 6B 
CD 94 
20 CD 
DD 66 
DD 56 
19 

DD 74 
DD 66 
DD 56 


: 00 
: 04 


01 DD 76 l 
03 DD 6K i 
07 DD 5B < 


FE ID 30 F6 

DD 7B 03 CB 7F 

PB 15 30 BB 

3A 6E 94 FE PP 

7C Pfi 02 28 DP 

DD 6E 01 DD 66 < 

3A AP 9155 CD ! 

30 09 

3A B0 91 BC 20 i 
CD 3E 88 


PUSH BC：PUSH DB：PUSH HL 
LD A,(BNBMYTYPB) : BIT 7,A 
JR NZ.KNBAPPBR4 
LD HL,TTABLB 
ADD A f L：LD L.A 
LD A f H：ADC A,0：LD H f A 
LD B,(HL) 

LD A,(COUNT) : AND B：JR NZ f KNBAPPBR4 
BNEXY：LD B,8 


375 

376 

377 

378 

379 

380 

381 

382 

383 LD 

384 LD 

385 KNEAPPHR1 

386 LD A,OFFH:CP (IX)：JR Z f BNEAPPER2 

387 LD DE,05:ADD IX f DB：DJNZ KNEAPPER1 

388 JR BNEAPPBR4 

389 ENBAPPER2 

390 LD A,(BNEMYTYPE)：LD IY,STABLE 

391 LD (IX),A 

392 CALL CTABLE 

393 

394 KNBAPPER4 

395 LD A,(ENBMYTYPE) : BIT 7,A 

396 CALL NZ,BNEAPPER10 

397 POP HL：POP DB：POP BC 

398 RET 

399 

400 BNBAPPBR10 


0F OF 
36 03 
34 89 


ee 

DD 36 OA 00 DD 36 0B 


3B 00 32 AB 91 


C5 D5 E5 DD B5 
DD 21 DD 91 06 < 

DD 7B 00 FE FF 
DD 6B 01 DD 66 
48 86 
B7 2012 
DD 7E 00 P6 0D 
CD Cl8F 
DD 36 00 0D DD 


401 

402 

403 

404 

405 

406 

407 

408 


410 

411 

412 

413 

414 

415 


LD A,(COUNT)：OR A：JR Z V ENBAPPBR11 

CP 40H：RBT NZ 

LD IX.BOSSXY 

LD A,(BNBMYTYPB) : LD B V A 

AND 03H：LD (IX),A 

LD A,B：AND 079H ： RRCA : RRCA : RRCA : RRCA 
LD <IX+1),A 

LD (1X42) v 14：LD (IX4>3) ,2 

LD A,(IX)：LD IY,BSTABLB：CALL CTABLE 

LD HL,(TEKIADD)：LD A.(HL) 

INC HL：LD (TBKIADD),HL 
LD (IX>15),A:LD (1X^14),0 
LD (IX+13>,0:LD (IX>12),0 

LD (1X^10),0：LD (IX^ll),8 


28IB 
02 CD 


28 0B 
36 03 


RET 

416 BNEAPPER11 

417 LD A,0：LD (8TARC) t A 

418 RBT 

419 

420 BNEMYCH 

421 PUSH BClPUSH DB：PUSH H い PUSH IX 

422 LD IX,ENBXY：LD B,8 

423 ENBMYCHl 

424 LD A t (IX)：CP OFFH:JR Z.BNEMYCH2 

425 LD L # (IX^1)：LD H,(1X^2)：CALL RDKATHCH 

426 OR A：JR NZ,ENENyCH2 

427 LD A,(IX) : CP BOMB：JR Z I ENBMYCH2 

428 CALL SCORBUP 

429 LD (IX),BOMB：LD (IX*f3),3 

430 BNEHYCH2 

431 LD DE,05:ADD IX,DE:DJNZ BNEMYCH1 

432 LD IX,BOSSXY：LD L,(IX^2):LD H,(IX+3> 


7E 0F 
14 DD 


433 

434 

435 

436 

437 

438 


LD A,0FFH:CP (IX):JR Z.BNBMYCH3 
LD A v (IX4>14) ：OR A ： JR NZ.BNBHYCH3 
CALL RDEATHCH：OR A：JR HZ.KNBMYCH3 
CALL SCORBUP 

LD (IX+14) # 3：LD A,(1X^15)：CP 1 
JR N2 f BNBMYCH3：LD (IX+14>•20:LD (1X^12), 


0110 

28 28 
22 

90 86 


439 KNBMYCH3 

440 POP IX : POP HL ： P0P DB:POP BC 

441 RBT 

442 

443 BDBATHCH 

444 ； IN H.L OUT A=9 = DEATH 

445 PUSH BC：PUSH DE.PUSH HL ： PU8H IX 

446 LD IX f MM：LD BC f 10O1H 

447 BDEATHCH1 

448 LD A f (IX) : CP 0PFH：JR Z,BDBATHCH2 

449 LD A,(IX+1)：CP H：JR NZ f BDBATHCH2 

450 LD A,<IX}=LD D 9 L：CALL CHECK 

451 JR NC f BDEATHCH2 

452 LD C.0OH 

453 PUSH HL：LD L,(IX)：LD H,(IX+1> 

454 CALL LOCATE：CALL LOC：LD A," •••CALL PRT 

455 LD (IX) f OFFH 

456 POP HL 


467 BDBATHCH2 


3B FF DD BB ei CA 28 

66 03 
IB 20 3R 


458 

459 

460 

461 

462 

463 CHECK 

464 

465 

466 

467 

468 BMISS 

469 

470 

471 BMI8S1 

472 


INC IX:INC IX：DJNZ BDBATHCH1 
LD A,C 

POP IX：POP HL：POP DB：POP BC 
RBT 


；IN A.D OUT C ON=TOUCH 

SUB D：INC A：SUB 3 

RET 


PUSH BC : PUSH DB：PUSH HL 
LD IX,BMM：LD B,32 


LD A t 0FFH：CP (IX^l)：JP Z.BMIS82 


••: CALL PRT 


DD 74 03 DD 75 02 
DD 78 01 CB 7P 28 06 


DD 36 01 FF 18 3B 


475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 BMIS84 

486 LD (IX^1),0FFH:JR BHI982 

487 EHISS3 


LD H,(IX^1)：LD L v (IX) 

LD D f (IXf5)：LD B,(1X^4) 

ADD HL,DB 

LD (1X^1),H：LD (IX) f L 
LD H, (1X^3) ：LD L, (1X4-2) 

LD D f (1X4-7 )：LD B,<IX+6) 

ADD HL f DB 

LD (IX^3),H：LD (1X^2),L 
LD A,(IX+1>:BIT 7,A：JR Z.EMI383 


20 EF 
28 05 


488 

489 

490 

491 

492 


496 

497 


CP 29：JR NC.BMISS4 

LD A,(1X^3)：BIT 7 f A：JR NZ.ENIS84 

CP 21：JR NC.EMISS4 

LD A,(BOSSBF) : CP 0FFH：JR Z f BMIS86 

LD A,H：CP 2：JR Z.BHIS84 

\6 

•<IX+3> 

バ CALL CHBCK : JR NC t EMISS5 

“<XY+1}:CP H:JR NZ.BMI885 
,TOUCHMB 


0191 

B B 9 
6 A 1 

FDA D 2 
B D 3 D 8 

830 031 

2 0 2 0 F c 

8 6 B p 7 21 
2 611 0 c D 

R D o 4 15 19 
p D c F 10 EC 


8 

6 

91 

5 D 
B D 
51 
D 2 

5 D 
CD 


91 

2 8 
0 7 

61 
6 2 

DOFD 

09e9e 

E 4 o 
6 9 4 


8 6 
8 3 

c 2 2 

F p 0 

1 D 4 3 

2 0 7 0 

DB D 8 
F p D 2 

o E 0 1 F 7 
0 8 0 0 F 8 

B 2 B 5 E 5 
7 7 7 7 F 3 


3B84DDCDCDeB02gCDDD84DD79CD 


A 3 
4 0 

8 6 
2 3 

D D 
e D 

B D 
F 0 
0 F 0 D 

7 c 3 1 

D D D 3 
D c o 0 


0 21 
2 o D 

F 6 8 
7 6 2 

2 B 7 D 7 
BCD D B 
0 2 0 16 

3 0 3 0 8 

D B 5 B 8 
17 1 6 4 

B D B D D 
PDF DC 


l 6 
9 8 
2 2 0 3 
7 0 9 o 

1 6 D 0 

2 6C 2 

D D5 € 
p D 5 B 

0 0 11 1 8 
9 9 0 9 9 8 
9440 6B AF09B03B 
D D D A 0 A 
c c D 3 3 3 


9 

D 3 
D 8 

0 8 
0 9 

5 2 
0C 
1 5 
l 0 


o 9 0 8 

A 3 7 9 9 
c 0 6 2 3 

F 6 D 5 D 
F 6 c 0 c 
3 E D 0 1 E 1 
9 F D 9 9 F 9 
5 o 2 4 5 18 
o o 0 9 9 o 7 
IE EDI El 
2 7 6 c 2 7 2 

DD5D5D1DO 

DD8DEFEDF 


A c 
0 3 

0 1 
2 2 

7 D 
B F 

c 0 B 

o 0 B 

H B 2 

D D D 
D DC 


eFooA 0 89 86 
03851C 167B1412 8521S0 A 449003 
74e 6 eBF 2 BD 2 e 2 eDDeE 28 ge 8 eFKD 202021 CD 20 
DD 20 c3 2828 B7B7 s 36 B7 2 e s CD 9e B791BlB7FD 55 BC 
62BD85P7BDBCeB 868 F 0 EDDel 0B 0 E 0 F 1F 94OE 8 A90 ec elaE9191 88 
75 01 OF 281 B13 7B 48cl36el 08 oc 7K 3535C438 CD 7B 21 67 7 B 7 B 72 APO9B 0 3E 
DD 3B CDBC3E3BDDCDCDDD FB 2036DDDOgCDl 8 BS9lODFDCDODDDCD3A303ACD 


Dl 

E1C9 


23OD 

eDea 9191 

B 8 8 1K3IB 
22 2 9 BA 

1 c c 8 B 22 IF 
9 0 0 F B 33 8 

BBFEPB1822802EFPAD 

A B B33 BB}e:D:9 
27 7 2 2 3 3 0 c c 


111 EEiiliiiiEEEEE^ 


140 Oh! X 1988.2. 


►先日 XI の IPL ROM を書き換えて パワー ON でアセンブラが起動するようにした。ネ 
ジが2 個あまった。 沼田靖志 （18) 山形県 




688 LD A f 15：CALL RND：ADD A,4 

689 LD (BOSSBF+6),A：RET 

690 ABOSSC2 

691 LD B,A：LD A,<BOSSBF+5>:LD L t A 

692 LD A t (B08SBF46)：LD H f A:PUSH HL 

693 CALL LOCATE 

694 LD IY,OPTN:CALL PCHRiPOP HL 

695 LD A,10H.CP B：RKT NC 

696 LD A,1：CALL BHISSSHOT 

697 LD A,3FH：CP B：RET NZ 

698 CALL LOCATE 

699 LD IY t BENS:JP PCHR 

700 ABOSSD 

701 LD A,(BOS3BFt9):OR A:JR Z.ABOSSDl 

702 LD A,(BOSSBF+5):LD L,A 

703 LD A,(BOSSBF46)：LD H,A:CALL LOCATE 

704 LD IY t EKN8：CALL PCHR 

705 LD A,0：LD (BOSSBF49) 9 A 

706 LD A V 2：LD (BOSSBF48),A 

707 ABOSSD1 

708 LD A,(COUNT) : AND 0FH：RET NZ 

709 LD HL,3 拿 256:LD A f 1：CALL ENISSSHOT 

710 LD HL,3t256^28:LD A,1 : CALL EMISSSHOT 

711 LD A,(BOSSBF+8)：LD H ， 3:LD L,A 

712 LD C, : CALL BATYPEES：CALL BELL 

713 LD C, H H ：CALL BATYPEES 

714 LD A f (XY)：SUB L：ADD A,2：CP 5 

715 JR NC l ABOSSD2 

716 LD A,(XY+l>:CP H:CALL NC.TOUCHME 

717 AB08SD2 

718 LD A,L •: ADD A パ ： LD (BOSSBF+8>,A 

719 CP 30：RBT NZ 

720 LD A,2：LD <BOSSBF+8>,A:RBT 

721 

722 ABOSSE 

723 LD A,(BOSSBF+9>:OR A：JR NZ t ABOSSE1 

724 LD A 9 0：JLD (BOSSBP45) ,A 

725 LD A V 1：LD (BOS8BP+8) f A：LD (BOSSBP49) v A 

726 ABOSSE1 

727 LD A,(BOS3BF^5)：LD L,A：LD H,20 

728 PUSH HL：CALL LOCATE : LD IY,EBNS：CALL PCHR 

729 POP HL：LD A,(BOSSBF+8}:ADD A,L 

730 LD (BOSSBF+5),A:LD L t A 

731 PUSH HL：CALL LOCATE：LD IY,OPTN：CALL PCHR 

732 POP HL:LD A a e：CP L：JR NZ V AB088E3 

733 ABOSSB2 

734 LD A,(BOS3BP+8}:XOR 0FPH:INC A 

735 LD (BOS8BP^8),A：JH ABOSSB4 


679 

680 
681 
682 

683 

684 


LD A パ BOSSBF+7):INC A ： AND 3FH 
LD (BOSSBF47),A 

LD A,(BOSSBF+9):OR A：JR NZ f ABOSSC1 
LD A,0:LD (BOSSBF47),A 
LD A,1：LD (BOSSBFf9)»A 
Cl 

LD A, (BOS3BF4^7) :OR A ： JR NZ.ABOSSC2 
LD A,28：CALL RND：LD (BOSSBF>5),A 


669 

670 ABOSSB 

671 LD ACCOUNT) : AND 0FH：BBT NZ 

672 ABOSSB1 

673 LD HL,3 拿 256:LD A,1：CALL EMISSSHOT 

674 LD HL,3 拿 256+9:LD A 9 3：CALL EMISSSHOT 

675 LD HL t 3«256f19:LD A f 3：CALL EMISSSHOT 

676 LD HL,3t256-f28：LD A. 1：JP EMISSSHOT 


622 CP H:JR NC,ENEMYAWAY4 

623 LD (1X^4)»1 

624 BNHMYAWAY4 

625 POP IX：POP HL：POP DB：POP BC 

626 RBT 

627 

628 TTABLE 

629 DB eOPH ,000H V O03H ,e00H 

630 DB 00FH ,000H t 03FH .OeOH 

631 DB 00FH V 000H v 00311 V 000H 

632 DB 00011 t 000H 

633 MTABLB 

634 DW MTYPKA,MTYPBB,MTYPEC,MTYPED 

635 DW HTYPBA,MTYPBB,HTYPBO f MTYPED 

636 DW MTYPBI,MTYPBB,MTYPKG,MTYPBL 

637 DW MTYPBM,MTYPB# 

638 STABLE 

639 DW STYPBA,STYPEB,STYPBC,3TYPBD 

640 DW STYPBA,STYPBB,STYPBC,STYPBD 

641 DW STYPBA,STYPBB f STYPBC f STYPED 

642 DW STYPBM.STYPBe 

643 

644 BSTABLE 

645 DW BSTYPBA,BSTYPBB,BSTYPEC,BSTYPBD 

646 

647 BHTABLB 

648 DW BMTYPBA,BMTYPEB,BMTYPBC,BMTYPBD 

649 

650 BATABLE 

651 DW BATYPBA,BATYPBB,BATYPBC,BATYPBD 

652 DW BATYPBK,BATYPBF f BATYPEG 

653 

654 BOSSTABLB 

655 DW ABOSSA,ABOSSB,ABOSSC v ABOSSD,ABOSSE 

656 DW ABOSSF 

657 

658 ABOSSA 

659 LD A,(BOSSBP^4)：CP 3:RET Z 

660 LD A,(COUNT) : AND 3FH：RET N2 

661 LD A,(BOSSBFt4)：INC A：LD (BOSSBF+4},A 

662 LD B,A：LD A V 3：SUB B 

663 ABOSSA1 

664 ADD A t A：ADD A,A：ADD A,A：LD D,A 

665 ADD A,A：ADD A,A：ADD A,D 

666 LD E f A ：LD D 9 e：LD HL,BOSSCNR 

667 ADD HL,DE：BX DB,HL 

668 LD HL,3 拿 256:CALL LOC：JP MBS 


498 BMISS5 

499 CALL LOCATE：CALL LOC：LD i 


t H :CALL PRT 


500 

501 EMISS2 

502 LD DE,08：ADD IX V DH：DBC B：JP NZ f EMISSl 

503 

504 

505 

506 EMISSSHOT 

507 ； IN HL A BIT 0,A Z=STR NZ TRACE 

508 ； BIT 1,A Z=NOR NZ HIGH 

509 PUSH HL：PUSH IX:PUSH BC : PUSH DE：PUSH AF 
LD C,A：LD IX,RMM：LD B,32 
LD DE t 08：LD A.OFFH 

12 BMISSSHOT1 

CP (IX-f 1) : JR Z,EMISSSHOT2 
ADD IX,DE：DJNZ EMISSSHOT1：JP HMISSSHOT3 
15 BMISSSHOT2 

LD (1X4^1) 9 L：LD (1X^3) t H 
XOR A：LD (IX),A：LD (IX+2),A 
LD A f C：BIT 0,A:JR Z f EMISSSHOT4 
TRACE 

LD A,(XY)：SUB L：LD L # A 
LD A,(XY^l)：SUB H：LD H t A 
LD (1X^4),0:LD (IX+5) f 1 


520 

521 

522 

523 

524 

525 

526 EMISSSHOT5 


BIT 7 •い JR Z.EMISSSHOT5 
LD (IX+5>,0PFH 

LD A t L：XOR 0FFH：INC A：LD L 9 A 


LD ( IX>6) ,0：LD UX+7>, 


528 

529 

530 

531 BMISSSHOT6 


BIT 7,H：JR Z f EMISS8HOT6 
LD A f H：XOR 0FFH：INC A：LD H,A 
LD (IX+7),0PFH 


LD A f L：CP H：JR C.BMISSSHOT7 


LD E 9 L 
LD A t (XYil 
CALL DIV16 


1)：SUB (1X^3)：LD H t A 


532 

533 

534 

535 

536 

537 

538 KMISSSHOT7 

539 LD B,H 

540 LD A,(XY) : SUB (IX+1}:LD H,A 

541 CALL DIV16 

542 LD (1X^4),L:LD (1X^5) 

543 JR HHISSSHOT3 

544 BMISSSHOT4 ； STRIQHT 

545 XOR A：LD <IX+4>,A:LD <IX+5>，A 
(IX+7>,1 


546 


LD (IX+6>,0:LD 


547 

548 EMISSSHOT3 


549 

550 

551 


554 


555 EMIS8SHOT8 

556 

557 

558 

559 DIV16 

560 


POP AF：POP DB:POP BC 

BIT 1 V A：JR NZ.BMISSSHOT8 

LD L a (IX-f4)：LD H, (IX-f5) : SRA H：RR L 

LD (IXH-4) ,L：LD (1X45) ,H 
LD L,(IX+6}:LD H, (IX-t-7) ：SHA H：RR L 

LD (1X^6) V L：LD (1X47),H 


；IN H0 0B (HL/DE) OUT HL … DE 
PUSH AF:PU8H BC : LD D,0：LD L,e 


561 

562 

563 

564 

565 DIV163 

566 

567 

568 

569 DIV161 

570 SLA B：RL D：ADC HL V HL 

571 PUSH HL：OR A：SBC HL,BC：POP HL 

572 JR C.DIV162 

573 SBC HL f BC：INC DB 

574 DIV162 


LD A,0：BIT 7 f H：JR Z.DIV163 
LD A,H：XOR 0FFH：IHC A：LD H f A：LD i 


•B：LD B,D：LD B,L：LD D»H 
•16:LD HL t e 


DEC A：JR NZ.DIV161 
EX DB,HL 

EX AF.AF 1 ：OR A：JR Z,DIV164 
LD A,H：XOR 0FFH：LD H,A 
LD A f L：XOR 0PFH：LD L,A 


575 

576 

577 

578 

579 

580 

581 DIV164 

582 POP BC：POP AF 

583 RET 

584 

585 TOUCHMB 

586 LD A,(TOUCH)：OR A：RBT NZ 

587 PUSH HL：PUSH DE：PUSH BC 

588 LD A,10H：LD (TOUCH),A 

589 LD A,(SHIELD)：OR A:JR Z.TOUCHMEl 

590 DEC A：LD (SHIELD),A：LD B f A 

591 LD A,15：SUB B:LD D,A：LD A,24：ADD A,B 

592 LD H v 1：LD L,A 

593 CALL LOC：LD A , ••: CALL PRT 

594 LD L,D：CALL LOC：LD A» w W ：CALL PRT 
JR TOUCHME2 


596 TOUCHME1 


LD A,(POWER) : DEC A：LD (POWER),A：LD B f A 

LD A,15：SUB B：LD D f A：LD A,24:ADD A V B 
LD H t 2：LD L,A 

CALL LOC : LD A, M ": CALL PHT 
LD L,D：CALL LOC:LD A," M :CALL PRT 


598 

599 

600 

601 


602 TOUCHMB2 

603 POP BC : POP DE：POP HL 

604 RBT 

605 

606 BNBMYAWAY 

607 PUSH BC：PUSH DB：PUSH HL：PUSH IX 

608 LD IX f ENEXY：LD B,8 

609 ENEMYAWAY1 


610 

611 

612 

613 

614 


615 KNEMYAWAY2 


LD A,(IX)：CP 0FFH:JR Z,ENEMYAWAY2 
LD <1X) f )2：LD (IX-f3) ,0FFH 

LD H,<IX+2):LD A,(XY>1) 

CP H：JR NC.ENEMYAWAY2 
LD (1X43),1 


616 

617 

618 

619 

620 


LD DK,05：ADD IX,DE:DJNZ ENEMYAWAY1 

LD IX f BOSSXY：LD A,(IX) 

CP OFFH：JR Z,KNEMYAWAY4 
LD (IX),3：LD (IXt4) l 0FFH 

LD H f (1X43) ：LD A f (XV-fl) 


88B1 

88E4 

88B8 

8888 

88BD 

88EB 

88EE 

88RE 

88P2 

88P6 

88FA 

88PC 

88PC 

8903 

8904 
890B 
890C 

8913 

8914 
8918 
8918 
891P 
8920 

8927 

8928 
892F 
8930 
8934 
8934 
8934 
893B 
893C 
893C 
893C 

8943 

8944 
8944 
8944 
894B 
8940 
8952 
8952 
8952 
8959 
895C 
895E 
895B 
895B 
8964 
896A 
8971 
8975 
8975 

8979 
897C 
8982 
8984 
898B 

8980 
8980 
8980 
8993 
8993 
899A 
899B 
89A2 
89A3 
89AA 
89AB 
89B2 
89B3 
89B3 
89B3 
89B9 
89BC 
89BC 
89C2 
89C7 
89CC 
89CC 
89D2 
8909 
89DA 
89E1 
89E5 
89E5 
89BA 
89EF 
89F2 
89F9 
89FA 
89PE 
8A03 
8A07 
8A0A 
8A11 
8A11 
8A17 
8A1B 
8A22 
8A29 
8A2E 
8A33 
8A33 
8A39 
8A40 
8A41 
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El 
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87 
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67 

1 5 
0 0 
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0 c c 
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THE SSTINEL 


► Z 80 A DMA が980円とお買得だったので H ってしまいました。我が XI に DMA が故る 
日は近い？ 五味淳 （20) 千葉沿 


ELFES 141 





POP HL：RET 
MTYPE#1 

LD (IX),0FPH：RBT 

STYPBA 

LD A,28：CALL RND：LD (1X41),A 


8C85 

8C85 DO 36 
8C8C 02 3D 
8C8E DD 77 
8092 
0C92 
8092 

8C92 DD 7B 
8C97 FE 02 
8C9B DD 36 
8C9F 

8C9F FB 1A 
8CA3 DD 36 
8CA7 

8CA7 24 3B 
8CAC 25 C9 
8CAB 
8CAB 

8CAE DD 7E 
8CB5 77 0D 
8CB7 ce 
8CB8 DD 7E 
8CBE DD 7E 
8CC3 3A AF 
8CC9 7D FE 
8CCE FE 1A 
8CD1 DD 36 
8CD6 

8CD6 DD 36 
8CDB 

BCDB DD 36 
8CB2 01 C9 
8CB4 

8CB4 DD 7E 
8CR9 FE 12 
8CED FE 02 
8CF0 DD 36 
8CF7 02 3D 
8CF9 DD 77 
8CFD 

8CPD DD 36 
8002 
8002 

8002 DD 7K 
8D08 FE 02 
8D0B DD 36 
8D0F DD 7E 
81)14 FE 02 
8D18 DD 36 
8D1C 

8D1C FE 1A 
8020 DD 36 

8024 DD 7K 
8029 FE 02 
8D2D DD 36 

8032 KE 12 
8D35 DD 36 
8D3A 

RD3A DD 7E 

8040 

6D40 

8040 3A B3 
8D4B 3B 01 
8D4B 
8D4B 

8D4B 3A B3 
8D51 2D 2D 
8058 2C 3E 
8D5B 2C 3E 
8064 2C 3B 
8D6A 2C 3B 
8070 
8D70 

8D70 3A B3 
8D76 3B 03 
8D7B 
8D7B 

8D7B 3A B3 
8DHI 21) 2D 
BD88 2C 3E 
8D8K 2C 3B 
8094 2C 3B 
8D9A 2C 3E 
8DA0 
8DA0 

8DA0 3A B3 
8DA6 3B 01 
8DAB 3E OF 
8DAF 0E 7B 
8DB4 3A AF 
8DBB 05 
8DBC 30 07 
8DBB 3A B0 
8DC5 

8DC6 CD C4 
8DC8 0E 20 
8DCD C9 
8DCB 
8DCB 
8DCE B5 
8DCP 

8DCF B5 5D 
8DD2 2D 2D 
8DD9 IE 20 
8DDB 3E 02 
8DB2 90 
8DE3 7D 92 
8DE7 

8DB7 79 CD 
8DED HI24 
2 

8DF4 El C9 

8DF6 

8DF6 

8DF6 3A B3 
8DPD 3A B3 
8R04 3E 03 
8E09 

8E09 DD 7E 
8E10 77 OA 
DD 7E 


9 77 0B 
B 


05 01 ED 5F E6 
04 C9 


04 85 6F 
20 04 
04 01 


OD 3C E6 01 DD 

04 B7 20 26 
05 85 6F 
91 BD 2812 
02 28 08 
C0 

05 FF C9 
05 01 C9 
04 01 DO 36 05 


CO 

04 00 ED 5F E6 
05 C9 
05 FF C9 

OD DD 34 0D 
C0 

0D 00 
04 85 6F 
20 04 
04 01 


05 84 67 
20 05 
05 01 C9 


05 FF C9 
04 84 67 C9 


91 B6 0F C0 
3E 00 CD 35 87 
00 CD 35 87 
00 CD 35 87 
00 CD 35 87 
00 C3 35 87 


91 E6 0F CO 
C3 35 87 


91 E6 0F C0 
3B 02 CD 35 87 
00 CD 35 87 
02 CD 35 87 
06 CD 35 87 
02 C3 35 87 


91 B6IF 47 
CA 35 87 
B8 C0 
CD CE 8D 
9195 C6 02 FE 


91 BC D4 3E 88 
IF 

CD CB 8D 


44 

CD 94 90 55 CD 
83 60 6F CD 94 
47 64 


91 E6 03 20IE 
91 E6 07 20 05 
CD 35 87 

OA 3C E6 OF DD 

0B 3C B6 0F DD 


85! BSTYPBC 

852 LD (1X45) 9 


: LD A V R：AND 02H：DBC i 


8K1B FD 21 
8B22 DD 7E 
8E28 2D 2D 
8B2F 3E 05 
8H33 3E 02 
8E38 C9 
8B39 
8B30 
8E39 

8R39 B5 DD 
8K40 El E5 
8E42 DU 7E 
8K49 C9 


853 LD (IX+4) f A：RBT 

854 BSTYPED 

855 

856 BMTYPEA 

857 LD A,UX+4>:ADD A V L：LD L t A 

858 CP 2:JR HZ,BMTYPEA1 

859 LD (1X44) 9 1 

860 BMTYPEA1 

861 CP 26:JR HZ.BMTYPEA2 

862 LD (1X^4),0FFH 

863 BMTYPEA2 

864 INC H：LD A,9：CP H：RET NC 

865 DEC H：RET 

866 

867 BMTYPBB 


868 


LD A, ( IX+13) : INC A： AND 01H：LD (1X4-13) ,A 


869 RBT NZ 

870 LD A f (IX+4)：0R A：JR NZ*BMTYPEB1 

871 LD A,(IX+5) : ADD A,L：LO L,A 

872 LD A,(XY) : CP L：JR Z,BMTYPEB2 

873 LD A,L：CP 2：JR Z.BMTYPEB3 

874 CP 26:RET NZ 

875 LD (1X45),0FFH：RBT 

876 BHTYPEB3 

877 LD (1X45),1：RET 

878 BMTYPBB2 

879 LD <IX+4),1:LD (1X^5),1：RET 

880 BMTYPBB1 


881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 
•S34 

935 

936 

937 

938 

939 


LD A # (IX+5)：ADD A t H：LD H f A 
CP 18：JR 2.BMTYPEB4 
CP 2：RET NZ 

LD (IX«f4) ,0：LD A,R：AND 02H：DEC A 

LD (IX+5),A：RET 
BMTYPEB4 

LD (IX-^5) ,0FFH:RET 


LD A f (1X^13) ：1NC (IX-f 13) 

CP 2：RET NZ 
LD (IX+13),0 

LD A,<IX ♦り： ADD A,L：LD L,A 
CP 2：JR NZ f BMTYPECl 
LD UXt4),1 
BMTYPEC1 

CP 26:JR NZ.BMTYPBC2 
LD (1X+4),0FFH 
BMTYPEC2 

LD A,(IX+5)：ADD A,H：LD H f A 
CP 2：JR NZ,BMTYPEC3 
LD (IX^5),i:RET 
BMTYPEC3 

CP 18：HET NZ 
LD (IX-f5) ,0FFH：RET 
BMTYPED 

LD A,(1X44)：ADD A,H：LD H,A：RBT 
BATYPKA 

LD A,(COUNT):AND 0PH：RBT N2 
LD A,1:JP BMISSSHOT 

BATYPBB 

LD A v (COUKT) : AND 0PH：RBT NZ 
DEC L：DEC L：LD A v e：CALL BMISSSHOT 
INC L：LD A f O：CALL BMISSSHOT 
INC L：LD A 9 0：CALL BHI8SSH0T 
INC L：LD A,02CALL EMIS8SH0T 
INC L：LD A,0：JP EMISS8H0T 

BATYPBC 

LD A,(COUNT) : AKD 0FH：RBT N2 
LD A,3：JP BMISSSHOT 

BATYPED 

LD A,(COUNT) : AND 0FH：RBT NZ 


DEC L 
INC L 
INC L 
INC L 
INC L 


DEC L:LD A f 2：CALL BMISSSHOT 
LD A,0:CALL BMISSSHOT 
LD A!2：CALL BMISSSHOT 
LD A f e：CALL BMISSSHOT 
LD A t 2：JP BMISSSHOT 


か 

950 


BATYPEB 

LD A,(COUWT) : AND 1FH：LD B»A 
LD A,1：JP Z f BMISSSHOT 
LD A,15：CP B:RET NZ 
LD C,“_"lCALL BATYPBBS 
LD A,(XY)：SUB L：ADD A,2：CP 5 

JR NC,BATYPEB1 

LD A,(XY41)：CP H：CALL NC f TOUCHMB 
BATYPEB1 

CALL BELL 

LD C," ": CALL BATYPRES 
RET 

BATYPEHS 

PUSH HL 
BATYPBEBS2 

PUSH HL：LD E,L：LD B,H 

DEC L：DEC L：CALL LOCATE：LD D t L：CALL LOC 
LD A,2：ADD A,E：LD H,B：LD L,A：CALL LOCATE 


953 BATYPEBES1 

954 


LD A,L：SUB D：LD B,A:INC B 


955 


POP I 


:: CALL PRT：DJNZ BATYPBBES1 

•:INC H：LD A,21 : CP H：JR NZ.BATYPBEES 


84 91 CD 39 8E 
0A FE 04 CO 

3E 02 CD 35 87 

85 6F 

CD 35 87 


7E OA CD 4A 8E 
0B CD 4A 6E El 


956 POP HL：RBT 

957 

968 BATYPEF 

959 LD A,(COUNT) : AND 03H:JR N2, BATYPEF1 

960 LD A,(COUNT) : AND 07H：JR NZ.BATYPBF2 

961 LD A,3:CALL BMISSSHOT 

962 BATYPEF2 

963 LD A,(1X^10)：IKC A：AND 0FH：LD (1X^10),A 

964 LD A,(1X411)：IKC A：AND 0FH：LD (IX^ll),A 

965 BATYPBF1 

966 LD IY,OPTH:CALL BATYPEFS 

LD A,(IX+10) : CP 04：RBT NZ 
DEC L：DEC L：LD A,2:CALL EMISSSHOT 
LD A,5：ADD A t L：LD L,A 
LD A f 2：CALL EMISSSHOT 
RBT 


967 

968 

969 

970 

971 

972 

973 BATYPEFS 

974 


IN IY HL 


975 PUSH HL：LD A.(IX+10)：CALL BATYPEFS1 

976 POP HL：PUSH HL 

977 LD A t (IX+U)：CALL BATYPEFS 1：POP HL 

978 RET 


818 LD A,6 : CALL RND：LD (1X43 ) 9 A 

819 LD (IX+2),0 

820 RET 

821 STYPEB 

822 LD A,(IX) : CP 1：JR Z.STYPED 

823 CP 9：JR Z.STYPBB1 

824 LD <IX+",0:LD (IX+2},0 

825 LD (IX^3) f l：LD (1X^4) f 1：RBT 

826 STYPBB1 

827 LD (IX^l) t 0:LD (1X42),26 

828 LD (IX+3) f l：LD (IX^4),0PPH 

829 LD A,(COUNT) : AND 01H：RKT NZ 

830 LD (TX+1),28：LD (1X^3) t 0FFH 

831 RBT 

832 STYPBC 

833 LD (1X^2) ,0：LD (IX-f4) ,0 

834 LD A,28：CALL RND 

835 LD (IX+i),A：RET 

836 STYPED • 

837 LD A t 26：CALL RKD:INC A：LD <IX+1}»A 

838 LD (1X4^2) ,0：LD (IX+4}_1 

839 LD A,R：AND 02H：DBC A：LO (1X4^3) 9 A 

840 RET 

841 

842 STYPBM 

843 LD (IX),0FFH：RET 

844 STYPB® 

845 

846 B8TYPBA 

847 LD (1X4-4) ,1:RKT 

848 BSTYPKB 

849 LD (1X^4) 9 0：LD A f R：AND 02H：DBC A 

850 LD (IX-f5) f A：RBT 


736 ABOSSE3:LD A,28:CP L：JR Z.ABOSSE2 

737 ABOSSE4 

738 LD A,(COUNT)：AND 1FH：RKT NZ 

739 LD A,1：CALL KHISSSHOT 

740 

741 LD HL.3>256：LD A,1；CALL BMISSSHOT 

742 LD HL,3 拿 256+9:LD A,1：CALL BMISSSHOT 

743 LD HL,3t2S6f19：LD A t l：CALL EMISSSHOT 

744 LD HL,3 韋 256+28:LD A,1：JP EMISSSHOT 

745 

746 ABOSSF 

747 LD A,(BOSSBF+9):OR A:JR Z,ABOSSF1 

748 LD A,(BOSSBF^5) ：LD L,A 

749 LD H,20：CALL LOCATE 

750 LD IY,BENS：CALL PCHR 

751 LD A,0：LD (BOSSBP+9>,A 

752 ABOSSF1 

753 LD A,(COUNT) : AND 3FH：RBT NZ 

754 LD A, (BOSSBP-^4 ) : DEC A：LD <BOSSBF+4>，A 

755 CP 0FFH：JR Z,ABOS8F2 

756 LD B,A：LD A,3:SUB B：JP ABOSSA1 

757 ABOSSF2 

758 LD C f 1:RET 

759 MTYPKA 

760 LD A,(COUNT) : AND 03H:RBT NZ 

761 MTYPBI 

762 INC H:LD A,<IX+3>:CP H：RBT NZ 

763 LD A,(IX)：OR A：RET NZ 

764 LD C f l:RKT 

765 MTYPEB 

766 LD A,(COUNT) : AND 01H：RET NZ 

767 LD A,(IX^3)：ADD A,L：LD L f A 

768 OR A:JR Z,MTYPEB1 

769 CP 28：JR NZ.HTYPEB2 

770 MTVPBB1 

771 LD A t 0FFH：XOR <IX+3>:INC A：LD <IX+3),A 

772 MTYPKB2 

773 LD A,(IX+4)：ADD A,H：LD H,A 

774 OR A：JR Z.MTYPBB3 

775 CP 20:RET NZ 

776 MTVPBB3 

777 LD A f 0FPH：XOR (1X^4)：INC A：LD (IX+4),A 

778 RET 

779 

780 MTYPEC 

781 LD A,(COUNT)：AND 01H：RBT N2 

782 MTYPBG 

783 LD A,<IX+4>:OR A:JR NZ.HTYPHCl 

784 INC H:LD A,{XY+1>:CP H：RBT NZ 

785 LD (1X^4),1：LD (1X^3),0FFH 

786 LD A f (XY)：CP L：RBT C 

787 LD (IX+3),1：RBT 

788 MTYPEC1 

789 LD A V (IX4>3)：ADD A, L ： LD L,A 

790 LD A,(IX)：CP 10：RET NZ 

791 DEC H 

792 RET 

793 MTYPEL, 

794 LD C,0;LD A,(COUNT)：AND 07H：RKT NZ 

795 MTYPBD 

796 LD A,(IX43)：ADD A t L：LD L.A 

797 LD A,0：CP L：JR Z.MTYPKDl 

798 LD A,28：CP L：JR Z t MTYPEDl 

799 JR MTYPED2 

800 MTYPED1 

801 LD A,0FFH：XOR (IX+3)：INC A：LD (IX+3),A 

802 MTYPE02 

803 LD C,0:LD A,(TX)：CP 11:RET Z 

804 LD C,0FFH：LD A,R：AND 1FH：RET NZ 

805 LD C,0：LD A,(IX) : CP 3：RBT Z 

B06 LD C,1：RET 

807 MTYPEM 

808 LD A v (1X43)：ADD A,H：LD H,A：RET 

809 MTYPK« 

810 DEC (IXt3)：JR 7-.MTYPE#! 

811 PUSH HL：CALL LOCATE：LD IY,CCRS：CALL PCHR 


8AC5 3E 1C BD 28 F0 
8ACA 

8ACA 3A B3 91 E6IF C0 
8AD0 3E 01 CD 35 87 
8AD5 

8AD5 21 00 03 3E 01 CD 35 
8ADC 87 

8ADD 21 09 03 3E 01 CD 35 
8AE4 87 

8AB5 2113 03 3E 01 CD 35 
8AHC 87 

8ABD 211C 03 3E 01 C3 35 

8AF4 87 

8AF5 

8AF5 

8AP5 3A 77 94 B7 2815 
8AFB 3A 73 94 6F 
8AFF 2614 CD 94 90 
8B04 FD 2178 91 CD 40 90 
8B0B 3B 00 32 77 94 
8B10 

8B10 3A B3 91 E6 3F Cd 

8816 3A 72 94 3D 32 72 94 

8B1D FE FF 28 07 

8B2147 3E 03 90 C3 75 89 

8B28 

8B28 0B 01 C9 
8B2B 

8B2B 3A B3 91 E6 03 C6 
8B31 

8B3124 DD 7B 03 BC C0 
8B37 DD 7E 00 B7 CO 

8B3C 0E 01 C9 

8B3P 

8B3F 3A B3 91 E6 01 C0 

8B45 DD 7E 03 85 6F 

8B4A B7 28 04 

8B4D FE 1C 20 09 

8B51 

8B513B FF DD AE 03 3C DD 

8B58 77 03 

8B5A 

8B5A DD 7B 04 84 67 

8B5F B7 28 03 

BB62 FE 14 C0 

8B65 

8B65 3B FF DD AE 04 3C DD 

8B6C 77 04 

8B6B C9 

8B6F 

8B6F 

8B6F 3A B3 91 E6 01 C0 

8B7S DD 7E 04 B7 2018 

8B7B 24 3A B0 91 BC C0 

8B81 DD 36 04 01 DD 36 03 

8B88 FF 

8889 3A AF 91 BD D8 
8B8E DD 36 03 01 C9 
8B93 

8B93 DD 7E 03 85 6F 
8B98 DD 7E 00 FE OA C0 
8B9E 25 
8B9F C9 
8BA0 

8BA0 OE 00 
8BA2 

8BA2 DD 7E 03 85 6F 
8BA7 3E 00 BD 28 07 
8BAC 3E 1C BD 28 02 
8BB118 09 
8BB3 

8BB3 3E FF DD AE 03 3C DD 
8BBA 77 03 

8BBC OE 00 DD 7E 00 FE 0B 
8BC3 C8 

8BC4 OH FF ED 5F E6IF CO 

8BCB OE 00 DD 7E 00 FE 03 

8BD2 C8 

8BD3 OE 01 C9 

8BD6 

8BD6 DD 7H 03 84 67 C9 
8BDC 

8BDC DD 35 03 28 0D 

8BE1 ES CD 94 90 FD 2J 7E 

8BE8 91 CD 40 90 

8BEC 61 C9 

8BEE 

8B6E OD 36 00 FF C9 

8BF3 

8BF3 

8BF3 3E 1C CD 83 8B DD 77 
8BFA 01 

8BFB 3E 06 CD 83 8B DD 77 
8C02 03 

8C03 DD 36 02 00 

8C07 C9 

8C08 

8C08 DD 7E 00 FE 0128 45 
8C0F FE 09 2811 
8C13 DO 36 01 00 DD 36 02 
8C1A 00 

8C1B DD 36 03 01 DD 36 04 

8C22 01 C9 

8C24 

8C24 DD 36 01 00 DD 36 02 
8C2B 14 

8C2C DD 36 03 01 DD 36 04 
8C33 FF 

8C34 3A B3 91 E6 01 CO 
8C3A DD 36 ei1C DD 36 03 
8C41 FF 
8C42 C9 
8C4 3 

8C43 DD S6 DD 36 04 

8C4A 00 

8C4B 3B 1C CD 83 8B 
8C50 DD 77 ei C9 
8054 

8C54 3B 1A CD 83 8B 3C DD 
8C5B 77 01 

8C5D DD 36 02 00 DD 36 04 
8C64 01 

8065 ED 5F E6 02 3D DD 77 

8C6C 03 

8C6D C9 

8C6E 

8C6E 

8C6E DD 36 00 FF C9 

8C73 

8C73 

8C7 3 

8C73 DD 36 04 01 C9 
8C78 

8C78 DD 36 04 00 ED 5F B6 

8C7F 02 3D 

8C81 DD 77 05 C9 
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► MZ シリーズはシャープより Oh ! X のほうがアフターサポートがよいと思ってしまつ 
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08 LD L,E：CALL LOC：LD A, M ■": CALL PRT 

09 DBC D：INC B：DJNZ P0WBRPRT1 

10 POWKRPRT2 

11 LD A,(POWBR)：LD B,A 

12 OR A：JR Z,POWBRPRT4 

13 LD DE,15 拿 256+24.LD H,2 

14 POWERPRT3 

15 LD L,D：CALL LOC : LD A, M B M ：CALL PRT 

16 LD L t B：CALL LOC：LD A/'B**：CALL PRT 

17 DBC D:INC B:DJNZ POWBRPRT3 

18 POWERPRT4 

19 LD HL,36:CALL LOC 

20 LD A,(ROUND) : ADD A t 3eH：CALL PRT 

21 POP BC：POP DE：POP HL：RET 

22 

23 PCHR 

24 ； IN H.L IY 

25 LD A,H：CP 12：JR C.PCHRl 

26 DBC L：PUSH IY：POP DB：INC DE:INC DB 

27 CALL LOC：JP MBS 

28 PCHR1 

29 CP 7：JR C.PCHR2 

30 CALL LOC:ID A # <IY4l):JP PRT 

31 PCHR2 

32 CALL LOC : LD A,(IY)：JP PRT 

33 

34 BCHR 

35 ; IN H.L IY 

36 LD A V H：CP 12：JR C.BCHRl 

37 DBC L：DBC L：PUSH IY：POP DE 

38 INC DE：INC DE：INC DB：INC DE：INC DE 

39 CALL LOC：JP MBS 

40 BCHR1 

41 CP 7：JR C.BCHR2 

42 DBC い PUSH IY：POP DE 

43 INC DE：CALL LOC：JP HBS 

44 BCHR2 

45 CALL LOC：LD A,(IY)：JP PRT 

46 

47 f 

48 LOCATE 

49 PUSH BC：PUSH DB 

50 LD D v 0：LD E,H：LD A,H 

51 EX DE 9 HL 

52 ADD HL,HL:ADD HL,HL：ADD HL,HL：ADD HL f HL：A 


153 LD BC,LPOTISION：LD D,0 

154 ADD HL,BC：ADD HL,DE 

155 LD C f (HL) 

156 ADD A,3 

157 LD H,A：LD L,C 

158 POP DE：POP BC 

159 RET 

160 

161 ENDING 

162 LD A,”."：LD (STARC),A 

163 LD A, M ••••し D (STARB) ,A 

164 LD HL.ENDTNGMES 

165 ENDING1 

166 PUSH HL：LD B,10 

167 ENDING2:PUSH BC 

168 CALL MY：CALL HMISS 

169 CALL STARM：CALL MHISS 

170 POP BC:DJNZ ENDING2 

171 LD HL,24f2564l:CALL LOC 

172 LD 8,38： POP HL：LD DE t HL：INC HL 

173 LD A,0：CP (HL)：JR Z.ENDING3 

174 ENDING4 

175 LD A,(DE)：OR A：JR Z f ENDING1：INC DE 

176 CALL PRT：DJNZ END1NG4:JR ENDING1 

177 

178 ENDING3 

179 LD HL,(XY)：DBC H：LD A f OFFH 

180 CP H：JR Z,BNDING5：LD B,5 

181 EN0ING6 

182 PUSH BC 

183 CALL SUPPLY5：CALL MMISS 

184 CALL STARM:CALL MHISS 

185 LD HL,(XY)：POP BC：DJNZ ENDING6 

186 JR HNDING3 / 

187 BNDIN05 

188 LD HL,3t256^18：CALL LOC 

189 CALL PRTMS : DM H DB 00 

190 LD Hh,24 拿 256+16:CALL LOC 

191 CALL PRTMS : DM "The end” DB 00 

192 KNDIN07 

193 CALL STARM 

194 JR ENDING7 

195 

196 GAHBOVER 

197 LD HL,12 拿 256+15:CALL LOC 

198 CALL PRTMS：DM "GAME OVER" DB 00 

199 CALL BELL 

200 LD BC,0：LD DB V HL：LDDR 

201 CALL BELL 

202 LD BC v e：LD DE t HL：LDDR 

203 CALL KBYOFF 

204 GANEOVHR1 

205 CALL KKYINtCP ODFH:JP Z.COLD 

206 CP 0FEH：RBT Z 

207 JR QAHB0VBR1 

208 

209 CMYS DM M -=qAp M DB 00 

210 KMYS DM •， M DB 00 

211 CENS DM ••- = -#-•，DB 00 

212 EENS DM，. •，DB 00 

213 OCRS DM •，■■■■■•. DB 00 

214 OPTN DM DB 00 

215 CBOS DM ”s-o-" DB 00 DM " = 1〇卜" DB 00 

216 EBOS DM •• ” DB 00 DM " •• DB 00 

217 RBOS DM "■■■*' DB 00 DM "UMB" DB 00 


8E4A 
8E4B 
8E50 
8E54 
8K58 
8E5B 
BH61 
8E62 
8E62 
8E62 
BE67 
BE6D 
8H72 
0H72 
8B72 
8E77 
8E7D 
8E80 
8E83 
8E83 
8E83 
8EB6 
8E86 
8B8A 
8H8D 
BE8B 
8B8P 
8B8P 
8E8F 
BB91 
BB91 
8E98 
8B9B 
8BA1 
8BA6 
8BA8 
8BA8 
8BAF 
8EB0 
BBB5 
BEB6 
8EBC 
BBBE 
8EBE 
8BC3 
8BCA 
8ECB 
8ECD 
8BCD 
8BCP 
8RCF 
8BD4 
8EDB 
8EDD 
8BDD 
8BE1 
8EE3 
8BB3 
8EB9 
8EEP 
8BF3 
8BF6 
8BP5 
BBP9 
8EFD 
8F04 
8F04 
8F0A 
8P10 
8F17 
8F19 
8P1D 
8F21 
8F26 
BF29 
8F29 
BP2D 
8F2D 
8F33 
8P39 
8F40 
8F41 
8F44 
8F44 
8F4B 
8P52 
8F59 
8F59 
8F5C 
BF6n 
8F69 
8F70 
8F70 
8F73 
8F73 
8P79 
8F7F 
8F86 
8F87 
8F8A 
8F8A 
8F8C 
8P8C 
8F8F 
8F95 
8F9C 
8FA2 
8FA6 
8FA9 
8 FAC 
8 FAD 
8 PAD 
8FAD 
8FB1 
BPQ6 
8PBB 
8FC1 
8KC1 
8FC5 
8FCA 
8FCF 
8FD3 
8FD3 
8FD4 
8PDB 
8PDD 
8FE4 
8FE5 
8FB6 
8FB7 
8FB7 
8FB7 
8FEA 
8FEE 
8FF1 
8PP6 
8FF6 
8PFD 


87 

1109 98 83 5F 
3E 00 8A 57 
U 85 6F 13 
1A 84 67 

CD 94 90 CD 40 90 
C9 


3E 2A 32 AB 91 

3A B3 91 E6 0F C0 

3E 01 C3 35 87 


87 FD E5 D9 El 
85 6F 7C CE 00 67 
5H 23 56 . 

D5 D9 C9 


979 BATYPEFS1：ADD A,A 


LD DE t OPTIONPD：ADD 4,E:LD B f A 
LD A f 0：ADC A,D：LD D,A 
LD A v (DE) : ADD A,L：LD L,A：INC DE 
LD A,(OB) : ADD A,H：LD H,A 
CALL LOCATE 
RET 


,TE：CALL PCHR 


980 

981 

982 

983 

984 

985 

986 

987 BATYPEG 

988 LD A, ••拿••： LD (STARC), A 

989 LD A,(COUNT)：AND 0FH：HET NZ 

990 LD A,1：JP EMISSSHOT 

991 

992 CTABLE 


BD 5F E6IF 
B8 30 F9 


06 OF 

2A AF 9124 3E 14 BC 
20 0125 

CD 8C 8F CD 3F 82 
CD E8 8210 EB 
0614 

2A AP 913E 0E BD 28 
06 

38 03 2C 18 01 


21 F5 93 361C 
11 P6 93 0178 00 BD 


C5 78 216B 94 
116C 94 0177 00 ED 
B8 47 


3E OF 90 21 02 99 

DD 21 F5 93 85 6P 

3E 00 8C 67 

06 03 

7B DD 77 00 
11OF 00 19 
1128 00 DD 1910 FI 

21 0010 CD IE 20 
11 F5 93 CD B5IF 
CD E8 82 2A AF 91 CD 
8C 8F 

Cl04 3E IB 
B8 CC 29 8F 

3B 37 B8 20 A9 

C3 BB 80 

C5 0113 03 

2E 13 61 CD IE 20 
3B 21 CD F4IF C5 
54 5D 01 00 20 ED B0 


3A B9 913C 32 B9 91 
3A BA 9147 3A AE 91 
80 FE 0C 38 02 3E 0C 

32 BA 91 

3A AE 913C 32 AE 91 
CD E7 8F CD C4IF 
54 5D 0100 00 ED BO 

01 15 03 

2E 13 61 CD IE 20 
3E 20 CD F4IF C5 
54 5D 01 00 20 ED BO 


Cl C9 
22 AP 91 

2A B191 CD 94 90 
FD 216C 91 CD 40 90 
2A AF 9122 B191 
FD 21 66 91 
CD 94 90 
CD 40 90 
C9 


K5 2A B7 91 
7D C6 50 27 6F 
7C CE 00 27 67 
22 B7 91 El1812 

E5 2A B7 91 
7D C6 0127 6P 
7C CE 00 27 67 
22 B7 91 El 

E5 

2106 00 CD IE 20 2A 
B7 91 

CD BE IF 3E 00 CD Cl 


B5 D5 C5 
3A BA 9147 
B7 28IB 
1118 OF 26 01 


993 

994 

995 

996 

997 

998 RND 

999 

000 RNDi 
001 
002 


ADD A,A：PUSH IY：EXX：POF HL 

ADD A,L：LD L f A：LD A,H：ADC A,0：LD H,A 

LD H,(HL)：INC HL：LD D,(HL) 

PUSH DE：EXX：RET 


PUSH BC：LD B f A：INC B 


003 

004 


LD A,R:AND 1FH 
CP B：JR NC.RNDl 


POP BC 
RET 

005 

006 SUPPLY 

007 LD B,15 

008 SUPPLY6 

009 LD HL,(XY):INC H：LD A,20：CP H 

010 JR NZ f SUPPLY7：DBC H 

011 SUPPLY7：CALL SUPPLY5：CALL MMISS 
012 CALL STARM：DJNZ SUPPLY6 

013 LD B f 20 

014 SUPPLY8 

015 LD HL,(XY) : LD A,14：CP L：JR Z.SUPPLY9 

016 JR C,SUPPLY10：INC L：JR 8UPPLY9 

017 SUPPLY10：DEC L 

018 3UPPLY9：CALL SUPPLY5：CALL STARM 


019 
620 
021 
022 

023 
024 
025 
026 SUPPLY1 


DJNZ SUPPLY8 

LD HL f SUPPLYBF：LD (HL),2 
1：LD BC,1 


LD DE.SUPPLYBF+l： 


PUSH BC：LD A»B：LD HL.SUPPLYBF+118 
LD DB,SUPPLYBF+U9：LD BC, 119 ： LDDR： LD B,A 


029 

030 

031 


CP 15:JR C.SUPPLY2 
LD B,15 
032 SUPPLY2 

033 LD A,15：SUB B：LD HL f SUPPLYCHR 

034 LD IX t SUPPLYBP：ADD A t L：LD L,A 

035 LD A,0:ADC A，H:LD H,A 

036 LD B,3 

037 3UPPLY3 


038 

039 

040 

041 

042 

043 

044 


)：LD (IX) f A 
LD DE,15：ADD HL f DE 
LD DE,40：ADD IX,DE:DJNZ SUPPLY3 

LD HL,16#256：CALL LOC 

LD DE,SUPPLYBF：CALL MES 

CALL STARM：LD HL,(XY)：CALL SUPPLY5 


045 POP BC：INC B：LD A t 27 

046 CP B : CALL 2.SUPPLY4 

047 LD A,55：CP B：JR NZ,SUPPLY 1 

048 JP HAIN1 

049 SUPPLY4 

050 PUSH BC : LD BC,3 拿256+ 19 

051 SUPPLY11 


052 

053 

054 

055 

056 

057 

058 

059 


)A, M ! 

> DB.H； 


060 SUPPLY20 


LD L,19：LD H f C：CALL LOC 

M ：CALL PRT •• PUSH BC 
；,HL：LD BC, 02000 H：LDIR：POP BC 

INC C：DJNZ SUPPLY11 

LD A,(POWER)：INC A:LD (POWER),A 
LD A,(SHIELD) : LD B t A：LD A,(ROUND) 
ADD A,B：CP 12：JR C,SUPPLY20：LD A,12 


061 

062 

063 

064 

065 

066 


LD (SHIELD) t A 
LD A f (BOUND)：INC A:LD (ROUND), 
CALL POWERPRT：CALL BELL 
LD DE,HL：LD BC,0：LDIR 


067 SUPPLY12 


LD BC,3 拿 256+21 


068 
069 
070 

071 
072 
073 

074 SUPPLY! 

075 
076 
077 
078 
079 
080 
081 
082 
083 

084 SCORKUPH 

085 PUSH HL：LD HL,(SCORE) 

086 LD A,L：ADD A f 50H：DAA：LD L.A 

087 LD A,H：ADC A,0：DAA：LD H t A 

088 LD (SCORE),HL：POP HL：JR SCOREPRT 

089 SCORKUP 

090 PUSH HL：LD HL,(SCORE) 

091 LD A,L：ADD A,1：DAA : LD L,A 

092 LD A,H：ADC A ( 0：DAA：LD H,A 

093 LD (SCORE),HL：POP HL 

094 SCOREPRT 


LD L,19：LD H,C：CALL LOC 

LD A," ••: CALL PRT： PUSH BC 

LD DE,HL：LD BC,0200OH:LDIR：POP BC 

DEC C：DJNZ SUPPLY12 

POP BC：RBT 
5 

LD (XV) f HL 

LD HL,(XYB)：CALL LOCATE 

LD IY,EMYS:CALL PCHR 

LD HL t (XY) : LD (XYB) r HL 

LD IY,CMYS 

CALL LOCATE 

CALL PCHR 

RET 


PUSH HL 
LD HL t 6：CALL 1 


: LD HL,(SCORE) 


097 


CALL PRTHL：LD A,02CALL PRTHA 


098 POP HL 

099 RET 

100 

101 POWERPRT 

102 PUSH HL：PUSH DE：PUSH BC 

103 LD A,(SHIELD)：LD B,A * 

104 OR A：JR Z,POWBRPRT2 

1«5 LD DB,15t256^24：LD H,1 

106 POWERPRT1 

107 LD L t D：CALL LOC：LD A, CALL PRT 


8FFF 6B CD 
9006 F4 IP 
9008 151C 
900C 

900C 3A B9 
9010 B7 28 
90131118 
9018 

9018 6A CD 
901F F4IP 
9021 6B CD 
9028 F4IF 
902A 151C 
902B 

902H 2124 
9034 3A AB 
903B IF 
903C Cl D1 


90 


140 7C FE 
2D FD 
»4B CD IB 
9051 

9051 FE 07 
9055 CD IE 
905C F4IF 
905E 

905E CD IE 
9065 P4IP 
9067 
9067 
9067 

9067 7C FE 
906C 2D 2D 
9071 1313 
9076 CD IB 
907C 

907C FE 07 
9080 2D FD 
908413 CD 
908B 

908B CD IE 
9092 F4IF 
9094 
9094 
9094 

9094 C5 D5 
9096 16 00 
909A BB 
909B 29 29 
DD HL f HL 
90AO 0169 
90A5 0919 

90A8 C6 03 
90AA 67 69 
90AC D1 Cl 
90AE C9 
90AF 
90AF 

90AF 3E 2E 
90B4 3E 20 
90B9 21 D0 
90BC 

90BC H5 06 
90BF C5 
90CO CD BE 
90C6 CD B8 
90CC Cl10 
90CF 21 01 
9005 06 26 
90DB 3K 00 
9OE0 

90H0 1A B7 
90B5 CD F4 
90BC 
90BC 

90EC 2A AF 
90F2 BC 28 
90F7 
90F7 C5 
90F8 CD 8C 
90FB CD E8 
9104 2A AF 
910A 18 E0 
910C 

910C 2112 
9112 CD B2 
9119 2110 
91 IF CD E2 
9126 65 6E 


IE 20 3E 7B CD 

10 EA 

9147 
IB 

OF 26 02 
IK 20 3K 7B CD 
IB 20 3E 7B CD 
10 BA 


OC 38 0C 
E5 D11313 
20 C3 B5IF 


2C FD 7B 00 C3 


OC 3810 
FD E5 D1 
131313 
20 C3 ES IP 

38 0B 
E5 D1 

IB 20 C3 B5IP 
20 FD 7B 00 C3 


5C 7C 
29 29 29 


18 CD IE 20 
El54 5D 23 
BE 28 0C 

28 D813 
IF 10 F618 DO 


8P CD 3F 82 
82 CD 3F 82 
91 Cl10 BD 


2A 


03 CD IE 20 
IF 20 20 20 GO 
18 CD IE 20 
IF 54 68 65 20 
64 00 

82 

0C CD IE 20 
IP 47 414D 45 
56 45 52 00 
IF 

00 54 5D ED B8 
IP 

00 54 5D ED B8 


2F 
2F 

2F 21 0F 
35 CD B2 
3C 20 4P 
42 CD C4 
45 01 00 
4C CD C4 
4F ei00 
56 CD F2 
59 

59 CD B19A FE DF CA 08 

60 80 

6! FE FB C8 
6418 F3 
66 

66 2D 3D 
6C 20 20 
72 2D 3D 
78 20 20 
7B 7B 7B 
84 A16F 
8A 3D 2D 
914F 5D 
95 20 20 
9C 20 20 
A0 7B 7B 
A7 7B 7B 
AB 

AB 2E 
AC 20 
AD 20 
AE 00 
AF 00 00 
B1 00 00 
B3 00 
B4 00 
B5 00 
B6 00 
B7 00 00 
B9 00 
BA 00 


714170 00 
20 20 20 00 
2D 23 2D 00 
20 26 20 00 
7B 7B 7B 00 
28 4F 29 00 
6F 2D 00 3D 5B 
3D 00 

20 20 00 20 20 
20 00 

7B 7B 00 7B 7B 
7B 00 


►光削れスプーンは两瓜を食べるときは便利ですよ。純を取りやすいもんね。 
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F E B 

bbrb obbrpwbd 
D dad 0 D D E Y D D 
T w V T D 
cbsdwdthoyerl 
r r ynd n c e m r k e 
A A N u B UUME OWI 
TTAOYyooANCOH 
SSMRXXCTOBSPS 
89012345678901 
11222222222233 







9558 00 00 00 00 00 00 00 
955F 00 00 00 00 00 00 00 
9566 00 00 00 

9569 1243 LPOTISION 

9569 121212 12121213 1244 DB 18，11 

,19,20,20,20,20,20, 


DB 17,18,18,1 

, 20 , 20 , 20 , 21 , 0,0 


•19,19,19,19,19,19,19,19,19 
957013131313 131313 
957713131313131313 
957E 13131414141414 
958514 00 00 00 

958911121212121212 1245 

.19,19,19,19,19,19,20,20,20,20,20 ,； 

9590 12121213 13 1313 
9597131313 131314 M 
959E 14141414141414 
95A515 00 00 00 

95A911111111111112 1246 

,19,19,19,19,20,20,20,20,20,20,21 ,； 

95B0 12 1212 12 121313 
95B7131313141414 H 
95BE 1414 15 1515 1515 
9505 15 00 00 00 

9509 10 1010 10 111111 1247 

,19,19,19,19,20,20,20,20,21,21,21 ,： 

95D0 11121212121313 
95D7131313141414 H 
95DE 15151515 161616 
95E516 00 00 00 

95E9 0P OF 1010 10 1011 1248 DB 15,15,16,16,16 

,19,19,19,20,20,20,20,21,21,21,22,22,22,22,23,23,0,0,0 
95F0 11111212121213 


17,17,17,17,17,17,18,18,18,18,18,18,19 

1,21,21,0,0,0 


DB 16,16,16,16,17,17,17,17,18,18,18.18,19 

,22.22,22,22,0,0,6 


16,17,17,17,18,18,18,18 


9605 17 00 00 00 

9609 0E OF 0F 0F 1010 10 1249 

,19,19,19,20,20,20,21,21,21,22,22.2 
961011111112121213 


DB 14,15,15,15,16, 
1,23,23,23,24,0,0,0 


16,16,17,17,17,18,18,18 


962518 60 00 00 

9629 0D OK 0R OP 0F 0P 10 1250 

t 19,19 9 19,29,20 9 21,21,21 t 22122,23 

9630 10111111121213 
963713131414151515 
963E 1616 1717171818 
964519 00 00 00 


4,24,25,0,0,0 


9649 0D 0D 0E OB 0B OF OF 1251 DB 13,13,14,14,14, 

,19,19,19,20,20,21,21,22,22,23,23,24,24,24,25,25,0,0,0 

9650 10 101111121213 


15,15,16,16 ， 17,17 ， 18, 18 


9669 0C OC OD 0D OE 0E 0P 1252 
,18119,20,20,21,21,22,22,23,23,24, 

9670 OP 10 10 11111212 
967713 M 1415151616 
967B 17171818 19 191A 


DB 12,12,13,13, 
5,25,26,26,0,0,0 


14,14,15,15,16,16,17,17,18 


,18,19,20,20,21,21,22,22,23,24, 
9690 0F 10 10 11111212 


253 

24,25 ,21 


DB 11 9 12 9 12 9 13, 
5,26,26,27,0,0,0 


13,14,14,15, 


,16,17,17,18 


969713141415 151616 
969E 17181819191A 
96A5 IB 00 00 00 
96A9 0A OB 0B 0C 0D 0D ( 
,18,19,20,20,21,22,22,23,23,24 
96B0 OF OF ie 10 111212 


54 DB 10,11, U l 12 l 

,25,25,26,27,27,28,0,0,0 


13,13,14,15.15.16.16, 


96C5 1C 00 00 00 
96C9 09 0A 0B OB 0C 0D 0E 1255 DB 9,10,11,11,12 

18,19,20,20,21,22,22,23,24,24,25,26,27,27,28,29,0,0,0 
96D0 0K 0F 10 10 111212 


96D713141415161617 
96DE 1818191A IB IB 1C 
96E5 id 00 ee 00 

96E9 09 09 0A 0B 0C 0C 0D 1256 

8,19,20,20,21,22,23,23,24,26,26,26 

96F0 0E OF OF 10 111212 

96F713141415161717 

96FE 18191A 1A IB 1C ID 

9705 ID 00 Oe 00 

9709 08 09 09 0A 0B OC 0D 1257 

,26,27, 


DB 9,912,1 
28,29,29,0,0,0 


l •ぬ". 


,6,7,8, 

.o,e ,0 


,19,20,21,21,22,23,24,25,2! 

9710 0D 0E 0F 10111112 
97171314 1515161718 
971E 19191A IB 1C ID ID 
9725 IE 00 00 B0 

9729 07 08 09 OA 0A OB OC 1258 DB 

,19,20,21,22,22,23,24,25,26,27,28,28,29,3 

9730 0D 0E OF 10 10 1112 
973713141516161718 
973E 191A IB 1C 1C ID IE 
9745 IF 00 00 00 

9749 06 07 08 09 OA OB OC 1259 
19,20 ,21,22 ,23,24, 24,25,26 ,27,28 ,29,30 

9750 0D 0E OE OF 10 1112 
975713 M 1516171818 
975E 191A IB 1C ID IB IF 
9765 20 00 00 00 

9769 05 06 07 08 09 0A 0D 1260 DB 5 

9•20 9 21,22,23!24!25,26,27 f 28 9 29,30 9 31 9 32 y 33•0 

9770 0C 0D 0K OF 10 1112 
977713141516 171819 
977E 1A IB 1C ID IE IF 20 
9785 21 00 00 00 

9789 05 06 07 08 09 OA OB 1261 DB 5,6,7,8 

9,20,21,22,23,24,25,26,27,28,29,30,31,32,33,0,0.0 

9790 OC en 0E OF 10 1112 
9797 1314IS 16171819 
979E 1A IB 1C ID IE IF 20 
97A5 2100 00 00 

97A9 04 05 06 07 08 09 OA 1262 DB 4,5,6,7,8,9 

,20,21,22,23,24,25,27,28,29,30,31,32,33,34,0,0,0 
97B0 0[) 0D OE OF 10 11 12 
97B7 131415If,1718 19 
97BB IB 1C ID IE IF 20 21 
97C5 22 00 00 00 
97C9 03 04 05 06 OB 09 
,20,21,22,24,25, 

9700 OD OC 01) OE 
9707 131415161819 
97DE IB 1C ID IE 29 2122 
97E5 23 00 00 00 

97E9 02 03 OS 06 07 08 09 1264 DB 2,3,5 

20,21,23,24,25,26,27,29,30,31,32,33,35,36,0,0,0 
97F0 0B OC OD OK OP 1112 
97F7 13 1415171819 IA 
97FE IB ID IE IF 20 2123 
9805 24 00 00 00 
9809 
9809 

9809 00 FE FF PE FB FB PE 

9810 FP FB 00 
9813 PE 01 PE 02 FF 02 00 
981A 02 01 e2 02 02 
981F 02 01 02 00 02 FP 02 
9826 FB 01 FK 


： 3? ： 0 ： 0 ：〇 1 


DB 6,7,8,9,10,11,12,13,14,14,15,16,17,18, 
,31,32,0,0,0 


9,10,11,12,13,14,15,16,17,18, 


ie, 


,12,13,14,15,16,17,18, 


,13,14,15,16,17,18, 


09 0A 1263 DB 3,4 f 5,6, 

7,28,29,30,32,33,34,35,0,0,0 
11 12 


,12,13, 14,16*17,18 ,19 


•11•12.13.14,15,17, 


DB 0•—2i —1•—2 ， -2•-2•-2•—1•—2•0 


DW16 


0 1 
1 ♦ 
6 

8 t 


3 3 
2 2 
11 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

0 0 0 0 000000000000 
0 0 0 0 0000000000 Qo 

00000000000000000 
00000000000000000 
00000000000000000 
000000000000000 0-0 
000000000000000000 
000000000000000000 
000000000000000000 
000000000000000000 


1BB1B0 SS 1021091D01B4 
99999999 


0000000000000000 0 o 
0000000000000000 o o 

OO00AVO 0000006000 Q Q 

0000000000000000 o o 

0000000000000000 0 o 
0000000000000000 o o 

0000000000000000000 
0000000000000000000 

0000000000000000000 
0000000000000000000 

00000000000000000000 
00000000000000000000 
00000000000000000000 
00000000000000000000 


7 8 
3 3 
2 2 


3940 
2 2 


0000000 0000000000000000000000000 0 
00000000000000000000000000000000 o 

c 000000 000000 000000 Q 000000000000 0 
00000000000000000000000000000000 0 

0000000 0000000000000000000000000 0 
00000000000000000000000000000000 0 
0000000 0000000000000000000000000 0 
00000000000000000000000000000000 0 

000000 o 0000000000000000000000000 0 
00000000000000000000000000000000 0 
0000000 0000000000000000000000000 o 

0000000 00000000000 00000000000 090 d 
0000000 0000000000000000000000000 0 
00000000000000000000000000000000 0 

UC3^U^F6D 482907 E5C3A18F6D 482907 E55C3 
1122333 4455667778899 aaabbccddeeeffpo 


9999999999999999999999999999999999 9 99999999999999999 9999999999999999999999999 99999999999999999999999999 9 99999999999999999999999999 


00000000 o 0000000000000000000000000000^^^0 

00000000 0 00000000000000000000009000000000 
00000000 0 00000800000 00000000000000^0^^^^^ 
00000000 0 00000000000000000000000000000000 
00000000 0 00000900000000000000 00000000^^^^ 
00000000 0 00000000000000000000000000000000 
00000000 0 09000000000000000000000000^^^^^^ 
00000000 0 00000000000000000000000000000000 


00000000 

00000000 

000000000 

000000000 


oeedeeeeeeeoeeees 


000000000^0000 
00000000000 ooc 


000000000000000000 

000000000000000000 

000000000000000000 

000000000000000000 

000000000000000000 

000000000000000000 


144 Oh! X 1988.2. 


►おい见山！ お前がジョイステッイクをクラッシュしたおかげで，スぺハリをテンキー 

でやってるんだぞ（あ一しんど）。 齑藤信幸 （16) 栃木斟 



































































1328 CALL 1FD0H 

1329 CP 1BH：JP Z,#HOT 

1330 LD H,KBYTBL/256:LD L,A 

1331 LD A»(HL)：LD B,A：CP 0：JR NZ,KEYIN1 

1332 LD B.0PFH 

1333 LD A,(KEYPLAG^1) ： 0R A：JR HZ,KBYIN3 

1334 LD A,(KBYFLAQ)：XOR 1 

1335 LD (KBYPLAQ),A 

1336 LD A,1：LD (KBYFLAQ41),A 

1337 JR KEYIN3 

1338 KBYIN1 

1339 LD A 9 0：LD (KEYFLAG+1),A 

1340 KEYIN3 

1341 LD A,(KEYFLAO):OR A ： JR NZ,KEYIN2 

1342 LD A,B：POP HL:POP BC : RET 

1343 KBYIN2 

1344 LD A,20H：XOR B : POP HL : POP BC : RET 

1345 

1346 KEYPLAG DB 0,0 

1347 ；ORQ 0BE80H 

1348 KBYOFF 

1349 LD A t 0：LD (KEYFLAO),A：RET 

1350 ； 

1351 ### 

1352 ORG #M/256 拿 256+256 

1353 KEYTBL 

1354 ；0 

1355 DB 0FPH,0FFH,0FFH,0FFH,9FFH,0FFH,0FFH,OFF 


1356 DB 0FFH,0FFH,0FFH,0FPH,000H,000H,0O0H,0FF 


1357 ；1 

1358 DB 0FFH,0FFH f 0FPH,0FFH,0FFH,0FFH,0FFH,OFF 


1359 DB 0FFH,0FFH,0FFH,0FFH,0F7H,0FBH,0PEH,0FD 


1360 ；2 

1361 DB 000H,0FFH r 0FFH t 0FFH f 0FFH,0FFH,0FFH,OFF 


1362 DB 0FFH,0FFH,0PFH,0FFH,0FFH,0FFH,0FFH f OFF 


1363 ；3 

1364 DB 0FFH,0F9H,0FDH,eF5H,0FBH,000H,0F7H,0FA 


1365 DB OFEH,0F6H,OFFH,OFFH,0FFH,OFFH,0FPH,OFF 


1366 ;4 

1367 DB 0FFH,OFBH,0FFH,0F5H,0F7H,0F6H t 0FFH,0FF 


1368 DB 0FFH,0FFH,OFFH,0FFH,0FFH,OFFH,0FFH,0FF 


1369 ;5 

1370 DB 0FFH,0FAH,0FFH,COOH,0FFH,0FFH,0FFH,0FE 


1371 DB 0FDH,0FFH,0F9H,CFFH,OFFH,OFFH,0FFH,0FF 


1372 ;6 

1373 DB 0FFH f 0FBH f 0FFH,CF5H,0F7H,0F6H,0FFH f OFF 


1374 DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,OFF 


1375 ；7 

1376 DB 0PFH f 0FAH f 0FFH,000H,0FFH,6FFH,OFFH,0FE 


1377 DB 0FDH,OFFH,0F9H,0FFH,OFFH,0PFH,0FFH,OFF 


1378 ；8 

1379 DB 0PFH,0FFH,0FFH,©FFH,0FPH,0FFH,0FFH,0FF 


1380 DB 0FPH,0FPH,0FFH,0FFH,0FFH,0FFH f OFFH,0FF 


1381；9 

1382 DB 0FFH # 0FFH,0FFH,0FFH,OFFH,OFFH,0FFH,0PF 


1383 DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,eFFH,0FP 


1384 ；A 

1385 DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FPH,0FPH,OFF 


1386 DB 0FFH,0FFH,0FPH,0PPH,0FFH,0PFH,0FFH,0FF 


1387 ；B 

1 388 DB 0FFH,0FPH,0F6H»OFFH f 0FFH,0FFH,0FFH,OFF 


1389 DB 0FFH,0FFH,0FFH,OFDH,0F7H,OFFH,OFPH,0F5 


1390 ；C 

1391 DB 0FAH f OFBH,0F9H,0FEH,000H,0FFH,0FFH,0FF 


1392 DB OFFH,OFFH,OFFH,9FFH,0FFH,0FFH,0FFH,0FF 


j 30; d 

1394 ' DB OFFH,OFFH,OFFH,OFFH,0FFH,0PFH,OFPH,OFF 


1395 DB OFFH,0FFH,0FFH,OFFH,0FFH,OFFH,OFFH,OFF 


1396 ；E 

1397 DB 0FFH f 0FPH,0FFH,OFFH,0FFH,OFFH,OFFH,0FF 


1398 DB 0FFH,0KFH,OFFH,0FFH,OFFH,OFFH,0FFH,OFF 


1399 ；F 

1400 DB 0PFH,0FFH,0FFH,OFFH,0FFH r OFFH,0FFH, OFF 


1401 DB 0FFH,CFFH f 0FFH,OFFH,OFFH,0FFH,0FFH,0FF 


9829 

9829 

9829 

9829 04 

9830 05 
9832 90 
9839 OD 
9830 
9830 06 
9844 0A 
9846 81 
984D 0D 
9851 
9851 00 
9858 08 
986A A0 
9861 00 
9865 
9865 06 
986C 0B 
986B B1 
9875 0D 
9879 
9879 03 
987B B1 
9885 0D 
9887 07 
988C Cl 
9893 0D 
9897 
9897 06 
9890 B2 
98A3 OD 
98A5 03 
98AA B0 
98B1 OD 
98B5 
98B6 03 
98BA C2 
9801 0D 
9803 03 
9808 D1 
98CF 0D 
9803 
98D3 C2 
98DA 0D 
98DC B1 
98E3 0D 
98E5 E2 
98BC OD 
98EH C0 
98F5 0D 
98F7 D2 
98FB 0D 
9900 
9900 0C 
9902 
9902 
9902 1C 
9969 21 
9910 20 
9911 1C 
9918 2B 
991F 2K 
9920 1C 
9927 6F 
992E 30 
992F 
992F 20 


14 0D 
OC 20 


00 08 05 05 

)dD 0D 0D 0D 
) OC 

V 03 06 09 08 

)0D 0D 0D 0D 
) OC 

05 03 07 02 

0D 0D 0D 0D 
0C 

02 01 02 01 
) OD 0D 0D OD 


03 07 
28 0D 
0C 20 

02 01 
14 0D 
0C 

07 0C I 
14 dD < 
0C 20 I 


03 ( 
0D < 


02 0C 

0D 0D 0D 0D 


07 .0B 
IE 0D 
0C 20 


20 2E 
B0 2B 


9A01 

9A08 

9A6F 

9A16 

9A10 

9A1F 

9A26 

9A2D 

9A34 

9A3B 

9A42 

9A49 

9A50 

9A57 

9A5B 

9A65 

9A6C 

9A70 

9A77 

9A7B 

9A85 

9A8C 

9A8F 

9A96 

9A9D 

9AA4 

9AAB 

9AB0 

9AB1 

9AB1 


2E 53 2E 
B8 B3 B6 
A4 B7 B4 
C0 A120 
20 20 
B1 C5 C0 
DO D120 
CF BD DE 
D8 AE B3 
20 20 20 
C0 DH B6 


412B 
2E 20 
20 BC 
CA 20 
20 20 
20 20 
Cl B6 
C6 A4 
DE OD 
DE C0 
DC BC 
CP C0 
B3 B2 
B3 C0 
2E 2B 
2E A1 
00 


46 2B 53 
A6 20 CA 
C0 DC B9 
C5 B2 A1 
20 20 20 
20 20 
B2 20 B3 
20 33 BC 
20 C6 20 
20 A6 20 
A4 

20 BF C9 
20 A6 20 
DE OB B3 
2E 2E 2E 
20 20 20 


1270 

1271 TEK1 

1272 

1273 

1274 


■■ ROUND 
DB 04,00,04 

DB 09OH,15 t 


■M ROUND 2 
DB 06,10,10 


DB 081H f 30, 


DB 06,9 
DB 0B2 厂 


03 0C 

0D OD 0D 0D 


0C 

I 0D 0D 0D 0D 

> 0D 0D 0D 0D 

i 0D 0D 0D 0D 

> 0D OD 0D OD 

)0D 0D 0D 0D 


1281 

1282 


1284 

1285 

1286 


1289 

1290 

1291 


1294 

1295 

1296 

1297 

1298 


1301 

1302 

1303 

1304 


1305 

1306 

1307 

1308 SUPPLYCHR 


mm ROUND 3 
DB 00 ， 06,01 


DB OA0H t 20» 


■■ ROUND 
DB 06, 07,01 


DB 0B1H,12, 


Hi ROUND 5 
DB 03,07, 0 
DB 0K1H.20 


3,07 

,40, 

ROUN 

02,01 

!H f 20, 


；■■ ROUND 7 
DB 03,07,11 
DB 0C2H.20, 


DB 03 
DB 0011 


07,11 


ROUND 8 
3, 


DB 0C2H.30, 
DB 0BlH f 15, 
DB 0E2H.30, 

db eceH^e, 

DB 0D2H t 15, 


08,05• 的 ， 05.12 
3,13,13,13,13,12,32,12 


06.09 き 08,10,12 
3,13 ， 13 •13 ， 13,12 > 32»12 


03,07,02,08,12 

3,13,13,13,13,12,32,12 

01,02,01,11,12 

3,13,13,13,13,12,32,12 


3,13,13,13 f 13»12 


3,13,13,13,13,12,32,12 


12 

3,13,13,13,13,12 

12 

3,13, 13 ， 13, 13, 12,32,12 


12 

3,13,13,13,13,12 

12 

3,13,13,13,13, 12,32 t 12 

3,13,13,13,13,12 
3, 13,13,13,13，12 
3,13,13,13,13,12 
3,13,13,13,13,12 
3,13, 13,13,13,12 


DB 12,OFFH 


1309 


2D 2D 2E B0 
2D 2E 2D 2D 


20 20 20 20 20 20 


DB 28 DM ' 

DB 28 DM • 

DB 28 DM ■ 

m 

DM » 


9936 20 20 20 20 2E 20 20 

993D 20 20 49 2D 2D 2D 2D 

9944 2D 49 20 20 20 20 2E 

994B 20 20 20 20 20 20 20 

9952 20 20 20 20 20 

9957 20 20 20 3C 3C 3C 3C 

995E 3C 3C 5B 5B 5B 5B 5B 

9965 5B 2121216F 6F 6F 
9960 2121215D 5D 5D 5D 
9973 5D 5D 3E 3B 3E 3E 3E 

997A 3E 20 20 20 20 

997F 20 20 20 20 20 20 28 

9986 28 28 28 28 28 28 28 

998D 28 28 48 48 48 48 48 

9994 4B 48 29 29 29 29 29 

999B 29 29 29 29 29 20 20 

99A2 20 20 20 20 20 

99A7 20 20 20 20 20 20 20 

99AK 20 20 20 20 20 20 20 

99B5 20 20 20 20 20 20 20 

99BC 20 20 20 20 20 20 20 

99C3 20 20 20 20 20 20 20 

99CA 20 20 20 20 20 

99CF 00 
99D0 

9900 20 20 20 20 20 20 20 

9907 20 20 20 20 20 20 20 

99DE 20 20 20 20 20 20 20 

99E5 20 20 20 20 20 20 20 

99EC 20 20 20 20 20 20 20 

99F3 20 20 20 20 20 20 20 

99FA 45 2E 412E 46 2K 53 


20 CA 20 B1 
DD 20 B6 D7 
C3 20 B2 AF 
20 20 20 20 

20 C9 20 C6 
CA 20 CB C4 
20 BC AD B3 
20 BC C0 A1 
2 ¢ 20 20 20 
DK 20 45 2E 


2E 53 
B6 B2 
C3 DE 
20 20 
20 20 

Cl20 
DE B9 
BD B6 
B1 D7 

20 D3 
CC D9 
20 2B 
2E 2E 


1314 DM 


1315 DM | ((((((((((HHHHHHH)))))))))) 


1316 DM 


1317 DB 0 

1318 ENDINGMES 

1319 DM .. 


1320 DH M K.A.F.S.S. a アクウカンカラ、聲 x テ 


1321 DM •• アナタ ) ニンムハヒトマス * シュウ */ 騰ウシタ • 


1322 DM " 夕 B. A.F.S.S . ヲ f、1H シタ *7 ケテ • 八ナイ * 


1323 DM "f カイ 0 チニ， 3 シ • ケ • ンニスカ • タヲアラワシ ，” 


1324 DM " マタソノモウイヲフルウタ * a ウ 


1325 DB 0 

1326 

1327 KEYINiPUSH BC：PUSH HL 


7 4 

F 0 0 1 A A 
12 2 0 9 9 
A 0 7 B 1 1 
F 0 B E p p 

F A p B A A A 2 2 
1 c 6 F 9993 3 

0BB7F10015 0 
D194FPPPO0 0 

B 

3 


4 9 

0 c 
o 1 

2 c 

B7C9El 

A1 8 
9C A 
0 1 0 
F E 2 

A 8 E 

3 7 3 


ABABABABACACACADADADADADABAEAEAEAEAFAFAFAFAFAFAFBeBeBeBOBeBO 
9999999999999999999999999999 H99 


FF 

F 

p 

F 

p 

F F 
F p 

poo 
0 11 
B D B 


B 

F 

F7 

F 

F 

F 

F 

F F 
F F 

7 8 
B1B1 


F 

FF 

p 

FF 

F 

D 0 
F 0 

卩 2020 


FF 
F 
F 
FF 
F 
F 
F F 

ff 

7 8 
2 2 
B D 


00 

B 

5 

D 

9 

F p 
F F 

Foe 
2 3 3 


p 

F 

F 

F 

F 

6 

A E F 
F F F 


p 

F 

F 

F 

F 

F 

F 

F 

F F 
F F 


3 3 
B B 
9 92 


344 44 
B B B B B 


F 

F 

F 

o 

T 

A 

F F 
F F 

F 0 o 
4 5 5 
B B B 


p 

下 

F 

F 

9 

F 

F 

ED 
F F 

7 8 
5 5 
B B 


F5 

K 

B 

F F 
F F 

F o 0 
5 6 6 
B B B 


F 

F 

F 

0 

0 

F 

FA 

F F 
F F 

F 0 0 
6 7 7 


F 

FF 

F 

FF 

9 

F 

ED 
p F 

7 8 
7 7 
B B 
9 9: 


F 

F 

F 

F 

F 

FF 

p 

p F 
p F 

F 0 0 
7 8 8 


FF 

F 

F 

F 

FF 

F 

p p 
F F 

7 8 

8 8 
B B 


F 

F 

F 

p 

p 

F 

p F 

F p 

poo 


FF 

F 

F 

F 

F 

F 

F p 
p p 

7 8 
9 9 
B B 


9 A A 


F 

F 

FF 

p 

F 

F 

F 

F p 
F F 

7 8 

u n 
9 9 u 


FF 

F 

F 

6 

FF 

F F 
F p 

F0 0 
ABB 
B B B 


FF 

p 

7 

D 

F 

F 

p F 
p F 

7 8 
B B 
B B 
9 911 


FF 

F 

0 

B 

9 

B 

F5FA 

F 0 0 
0C c 


F 

FF 

F 

F 

F 

p 

F p 

p F 

7 8 

c c 

B B 

9 911 


FFFFFFFF 


F 0 0 7 8 
c D D D D 
B B B B B 
9 9 9 H 9 9 : 


F 0 0 
DEE 
B B B 
9 9 9: 


F 

F 

F 

F 

F 

F 

F 

F 

F F 
F F 

7 8 
E E 
B B 
9 9 a 


FF 

FF 

F 

F 

F 

F 

F F 
F F 

F0 0 
K K K 
B B B 
9 9 914 


F F 
F F 

7 8 
F F 
B M 
9 9: 


THEfsNTINEL 


►祝！ メツセージ擱の拡張。ただ怖いのは投榀が人中.のようなローデイストの乩人です。 

西台哲夫（16> 埼 K 県 
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9C0U 

9CO0 

9cee 

9coe 

9CO0 3H 0C CD F4IF 
9C05 

9C05 2178 94 36 201179 
9C0C 94 

9cod ei F0 ee ed bo 3b eo 

9014 32 68 95 

9C17 

9C17 

9C17 06 00 

9019 C5 78 

9C1B 2i 79 94 ll 78 94 

9C21 01 F0 00 ED BO 47 

9027 

9C27 3E 27 B8 30 02 

9C2C 06 27 

9C2E 

9C2£ 212C 9F 78 85 6F 

9C34 3B 60 8C 67 

9C38 DD 219F 941128 00 

9C3F OE 06 

9C41 

9C417E DD 77 00 
9C4519 DD 19 
9C48 0D 20 F6 
9C4B 

9C4B 21 00 OA CD 1H 20 
9C511178 94 CD B5IF 
9C57 

9C57 Cl04 3R 50 B8 20 BB 

9C5E 

9C5E C9 

9C5F 

9C5F 

9C5F 

9C5F 3E 0C CD F4IF 
9C64 

9064 3E 0132 AH 91 
9C69 21 01 02 22 B9 91 
9C6F 

9C6F 2178 94 36 20 1179 
9076 94 

9C77 01 BP 00 KD B0 23 36 

9C7K 00 

9C7F 

9C7F 

9C7F OE 00 
9C81 

9C81 C5 0100 03 
9C85 C5 

9C86 2178 94 79 CD 33 9B 
9C8D 5F 16 0019 54 5D 23 
9C94 0127 00 ED BO 
9099 Cl C5 

9C9B 21 C7 94 79 CD 33 9B 
9CA2 5F 16 0019 54 5D 2B 
9CA9 0127 00 ED B8 
9CAB Cl 0C ie D3 
9CB2 Cl C5 41 
9CB5 

9CB5 213C 9B 78 85 6F 

9CBB 3E 0e 8C 67 

9CBP DD 219P 94 U 50 00 

9CC6 OB 03 

9CC8 

9CC8 7B DD 77 eo 
9CCC 19 DD 19 
9CCP 0D 20 F6 
9CD2 

9CD2 3B 27 90 

9CD5 2164 9B 85 6F 

9C0A 3E 00 8C 67 

9CDB DD 21 AO 941150 00 

9CE5 oe ea 

9CB7 7B DD 77 00 
9CEB 19 DD 19 
9CEB 0D 20 F6 
9CP1 

9CF121 00 11 CD IB 20 
9CP71178 94 CD B5IP 
9CFD 

9CPD Cl 0C 3B 28 B9 C2 81 

9D04 9C 

9D05 

9D05 CD C4IF 
9008 

9D08 06 9B 
9D0A 

9D0A 2100 18 CD IB 20 

9010 3B 0D CD P4IF 

9D1510 P3 CD C4IP 

9DIA 

9D1A 

9D1A 

9D1A 2116 OP 01 00 0D 
9D20 

9020 CD !B 2e CD B2IF 
9D26 20 20 42 79 20 54 2B 
9D2D 416F 6B 69 20 20 00 
9034 

9034 E5 79 85 6F 

9038 16 7B CD 12 9E 

9D3D B5 C5 54 5D 0100 20 
9044 ED B0 Cl B! 

9048 

9048 16 20 CD 12 96 
9D4D 

9D4D B1 ec 10 CF 
9D51 

9D5121 0B 16 CD IE 20 

9057 CD K2IF 

9D5A 60 76 73 68 20 74 72 

9D6169 67 67 65 72 20 62 

9068 75 74 74 6F 6E 00 

9D6E 

9D6E CD C4IF 
9D71 

9071 CD B19A FE PF 28 F9 

9078 FE FE CO 

9D7B 21 0512 CD IE 20 

9D81 CD E2 IF 

9084 53 50 45 45 44 Oe 

9D8A 

9D8A 21OB 12 CD IE 20 

9D90 3A AD 9147 CD Cl IF 

9097 CD B! 9A FE F9 28IE 

9D9E FE DF C8 

9DA! FE FB 20 01 04 

9DA6 FE F7 20 0105 

9DAB 05 3E IF AO 3C 

9DB0 32 AD 91 

9DB3 0100 40 54 5D ED B0 

9DBA 18 CH 

9DBC 


1402 ; 

1403 ； 

1404 ; 

1405 DEMO 

1406 

1407 

1408 


B L F H S DEMO. P. 


LD A,0CH：CALL PRT 

LD HL f BAFF：LD (HL) , M ： LD DE.BAFF+l 


1409 LD BC,240：LDIR：LD A,0：LD (BAFF+240),A 


1410 

1411 SCROOL 

1412 LD B f 0 

1413 SCR00L1：PUSH BC：LD A,B 

1414 LD HL,BAFFfl：LD DB.BAFF 

1415 LD BC f 240：LDIR：LD B,A 

1416 

1417 LD A # 39:CP B：JR NC.SCR00L5 

1418 LD B.39 

1419 SCHOOLS 

1420 LD HL ( FORSOS：LD A f B：ADD A f L：LD L,A 

1421 LD A t 0：ADC A,H：LD H,A 

1422 LD 1X,BAPF^39：LD DK f 40:LD C,6 


1423 SCR00L3 

1424 LD A,(HL)：LD ( IX),A 

1425 ADD HL,DE:ADD IX,DE 

1426 DEC C：JR NZ.SCROOL3 

1427 SCROOL2 

1428 LD HL f 10t256：CALL LOC 

1429 LD DB.BAFF：CALL MES 

1430 

1431 POP BC：INC B:LD A,80:CP B:JR NZ.SCROOL1 

1432 

1433 RET 

1434 : ■■■ E l. F E S ■■■ 

1435 ; CROSS SCRANBLE 
M36 DEMOS 

1437 LD A t OCH：CALL PRT 

1438 

1439 LD A,1：LD (ROUND),A 

1440 LD HL,2t256+t:LD (POWER) f HL 

1441 

1442 LD HL,BAPF：LD (HL),32：LD DE.BAFF+l 

1443 LD BC f 239：LDIR：INC HL：LD (HL) ,0 


1444 

1445 CRSS 

1446 

1447 CRSS0 

1448 

1449 CRS31 : 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 


LD c v e 

PUSH BC：LD BC,03eOH 
PUSH BC 

LD HL,BAFP：LD A f C：CALL KAKB80 

LD E,A:LD D,0：ADD HL V DB：LD DB 9 HL：INC HL 

LD BC,39：LDIR 

POP BC：PUSH BC 

LD HL,BAFFf79：LD A,C：CALL KAKE80 

LD E,A：LD D,0：ADD HL,DB：LD DB V HL：DBC HL 

LD BC,39：LDDR 

POP BC:INC C：DJNZ CRS81 

POP BC：PUSH BC：LD B,C 

LD HL,BLPBS：LD A f B：ADD A,L:LD L»A 
LD A,0：ADC A,H：LD H,A 
LD IX,BAFF+39:LD DE,80:LD C r 3 


1463 CRSS3 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 


LD A,(HL)：LD (IX),A 
ADD HUDE:ADD IX,DB 
DBC C：JR NZ f CRSS3 

LD A.39：SUB B 

LD Hl,ELFES+40=ADD A,L：LD L 9 A 
LD A,0：ADC A V H：LD H,A 
LD IX,BAPFi40：LD DB t 80：LD C,3 


1472 CRSS4 

1473 LD A f (HL)：LD (IX),A 

1474 ADD HL,DB：ADD IX»DB 

1475 DBC C：JR NZ f CRSS4 

1476 

1477 LD HL,17t256：CALL LOC 

1478 LD DB,BAPP：CALL HES 

1479 

1480 POP BC:INC C:LD A,40:CP C：JP NZ.CRSS0 

1481 

1482 CALL BELL 

1483 

1484 LD B,18-7 

1485 CRSS5 

1486 LD HL,24 拿 256:CALL LOC 

1487 LD A,13：CALL PRT 

1488 DJNZ CRSS5：CALL BELL 

1489 

1490 ； ■■■ NAME IN _■ 

1491 NAHH0 

1492 LD HL,!5t256f22：LD BC, 131256 

1493 NAHB1 

1494 CALL LOC：CALL PRTMS 

1495 DM •• By T.Aoki M DB 0 

1496 

1497 PUSH HL：LD A,C：ADD A,L：LD L,A 

1498 LD DCALL FLASH 

1499 PUSH HL •: PUSH BC：LD DE,HL：LD BC.2000H 

1500 LDIR：POP BC：POP HL 

1501 

1502 LD M ：CALL PLASH 

1503 

1504 POP HL：INC C：DJNZ NAME1 

1505 

1506 LD Hlo22t256 + ll LOC 

1507 CALL PRTMS 

1508 DM ..PuBh trigger button'* DB 0 


15 

15 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 


SPEED 


CALL BELL 

CALL KEYIN：CP 0FFH：JR Z f HIT 

CP 0FBH：RHT NZ 

LD HL,18 拿 256+5:CALL LOC 

CALL PRTMS 

DM "SPEED" DB 0 


LD HL V 18^256411 : CALL LOC 
LD A,(MANYSTAR) : LD B,A:CALL PRTHA 
CALL KEYIN:CP 0F9H：JR Z.RSET 
CP 0DFH:RET Z 

CP OFBH:JR NZ.SPEEDl : INC B 
SPEED1 : CP 0F7H：JR NZ,SPEED2:DBC B 
SPEED2:DKC B:LD A,01FH：AND B:INC A 
LD (MANYSTAR).A 
LD BC t 04000H：LD DB # HL:LDIR 
JR SPEED 

RSET 


9DBC 21IB 12 CD IE 20 
9DC2 CD B2IF 
9DCS 52 4F 55 4E 44 00 
9DCB 

9DCB 21 2412 CD IE 20 
9DD13A AE 9147 CD Cl IF 
9DD8 CD B19A FE DP 28IB 
9DDF FB FB 20 01 d4 

9DB4 FB F7 20 0165 

9DE9 05 3E 07 A0 3C 

9DKK 32 AK 91 

9DF101 00 40 54 5D ED B0 
9DP818 D1 
9DPA 

9DPA 3A AB 9132 B9 9147 

9B01 0E 01 

9B03 

9B03 79 80 4F 10 FB 
9Ee8 FB OD 38 02 3B OC 
9B0B 

9E0B 32 BA 91 C9 

9B12 

9812 

9B12 25 CD IB 20 7A CD F4 
9B19 IP 

9B1A 24 24 CD IE 20 7A CD 
9821 F4IF 

9B23 25 2D CD 1R 20 7A 2C 

9E2A CD F4IF CD F4IF C3 

9631 F4IF 

9B39 

9B33 

9833 87 87 87 87 57 

9B38 87 87 82 C9 

9E3C 
9R3C 

9B3C 20 20 20 20 2d 7B 7B 

9E43 7B 7B 7B 7B 7B 20 20 

9B4A 20 20 20 20 20 20 20 

9R5120 20 20 20 20 20 20 

9B58 20 20 20 20 20 20 20 

9E5F 20 20 2d 20 20 

9E64 20 20 20 20 20 7B 7B 

9B6B 20 20 20 20 20 20 7B 

9K72 20 20 20 20 20 7B 7B 

9879 7B 7B 7B 20 7B 7B 7B 

9E80 7B 2e 2d 7B 7B 7B 7B 

9E87 20 20 20 20 20 

9B8C 20 20 20 20 20 7B 7B 

9893 7B 7B 20 20 20 20 7B 

9B9A 20 20 20 20 20 7B 20 

9EA120 20 20 20 7B 20 20 

9BA8 20 20 7B 20 20 20 20 

9BAF 20 20 20 20 20 

9EB4 20 20 20 20 20 7B 7B 

9EBB 20 20 20 20 20 20 7B 

9BC2 20 20 20 20 20 7B 7B 

9KC9 7B 20 20 20 7B 7B 7B 

9ED0 20 20 20 7B 7B 7B 20 

9ED7 20 20 20 20 20 

9EDC 20 20 20 2C 20 7B 7B 

9BB3 20 20 20 20 20 20 7B 

9BEA 20 20 20 20 20 7B 20 

9EP120 20 20 2e 7B 20 20 

9BF8 20 20 20 20 20 20 7B 

9BPF 20 20 20 20 20 

9F04 20 20 20 20 20 7B 7B 

9F0B 7B 7B 7B 7B 7B 20 7B 

9F12 7B 7B 7B 7B 20 7B 20 

9F19 20 20 26 20 7B 7B 7B 

9F20 7B 20 7B 7B 7B 7B 20 

9F27 20 20 26 20 20 

9F2C 
9F2C 

9F2C 7B 7B 7B 7B 7B 20 20 

■I •• 

9P33 7B 7B 7B 20 20 7B 7B 

9F3A 7B 7B 20 20 20 20 20 

9F417B 7B 7D 7B 20 20 20 

9F48 20 7B 7B 7B 20 20 20 

9F4F 7B 7B 7B 7B 20 

9F54 7B 7B 26 20 20 20 7B 

9F5B 7B 20 20 7B 20 7B 7B 

9F62 20 20 7R 20 20 20 7B 

9F69 20 29 20 20 20 20 20 

9F70 7B 7B 20 20 7B 20 7B 

9F77 20 20 20 20 20 

9F7C 7B 7B 20 20 20 20 7B 

9F83 7B 20 20 7B 20 7B 7B 

9F8A 20 20 7B 20 20 20 7B 

9F9120 20 20 20 20 20 20 

9F98 7B 7B 20 20 7B 20 7B 

9F9F 20 20 20 20 20 

9FA4 7B 7B 7B 7B 20 20 7B 

■.. 

9FAB 7B 20 20 7B 20 7B 7B 

9FB2 7R 7B 20 20 20 20 20 

9FB9 7B 7B 7B 20 20 7B 20 

9FC0 7B 7B 20 20 7B 20 20 

9F(；7 7B 7B 7B 20 20 

9FCC 7B 7B 20 20 20 20 7B 

9FD3 7B 20 20 7B 20 7B 7B 

9F0A 20 7B 20 20 20 20 20 

9FE120 20 26 7B 20 20 20 

9FEB 7B 7B 20 20 7B 20 20 

9KEF 20 20 20 7B 20 

9FF4 7B 7B 20 20 20 20 20 

■ •• 

9FFB 7B 7B 7B 20 20 7B 7B 

A002 20 20 7B 20 20 20 7B 

A009 7B 7B 7B 20 20 20 20 

A01O 20 7B 7B 7B 20 20 7B 

A017 7B 7B 7B 20 20 

A01C 
789 


529 LD HL,18t256^30：CALL LOC 

530 CALL PRTMS 

531 DM "ROUND" DB 0 

532 RSET1 

533 LD HL,18t256+36：CALL LOC 

534 LD A,(ROUND)：LD B,A:CALL PRTHA 

535 CALL KEYIH：CP 0DFH：JR Z,RSBT4 

536 CP OPBH：JR NZ 9 RSET2：INC B 

537 RSBT2：CP 0F7H：JR NZ,RSBT3:DBC B 

538 BSBT3:DBC B:LD A,07：AND B：INC A 

539 LD (ROUND),A 

540 LD BC I 04000H：LD DE t HL：LDIR 

541 JR RSBT1 

542 D OBT4 

543 LD A,(ROUND>:LD (POWER) t A：LD B r A：LD C,1 

544 RSBT6 

545 LD K.ClKDD A,B：LD C,A：DJNZ R3ET5 

546 CP 13：JR C,RSET6：LD A,12 

547 R8BT6 

548 LD (8HIBLD) V A：RBT 

549 

550 FLASH ；IN HL 

551 DBC H：CALL LOC：LD A,D:CALL PRT 

552 INC H：INC H：CALL LOC：LD A,D：CALL PRT 

553 DBC H:DBC L：CALL LOC:LD A V D：INC L 

554 CALL PRT：CALL PRT:JP PRT 

555 

556 KAKB86 

557 ADD A»A：ADD A, 入： ADD A V A：ADD A V A：LD D 9 A 

558 ADD A,A：ADD A,A：ADD A,D：RET 

559 

560 ELFB8 

561 dm M mmmm 


1563 


DM 


1565 


DM 


1567 

1568 FORSOS 

1569 DM 


1570 


1571 


dm m m wm u ■ 


1575 ; 0123456789 012345678901234567890123456 


146 Oh! X 1988.2. 
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X^l/XHurb 。 ^^ ラデイウス 2 

吉田賢司 Yoshida KenJi 


MSX 用にコナミから発売され，人気絶頂 
のシューテイングゲーム，ヴラディウス2 
のオープニングテーマを X 1で演奏してみ 
ましよろ。なかなかの八イテクニックを満 
載し，初の11重和音を使いこなしたミュー 
ジツクプ□グラムです。 


またまたゲームです 


ゲーム ミュージック ばかりじ や 嫌 だ， と 
いってもやっぱり多いんですねこれが。な 
かには「ゲーム ミュージックの どこがいけ 
ないんですか。どこぞのアイドル歌手のつ 
まんない歌のほうがいいというんですか。 
ゲームのほうが感動的な名曲が多いじやな 
いですか」という意見も2，3寄せられてき 
ました。結局，魂がこもっていればなんで 
もいいんですけどね。はっきりいってゲー 
ム ミュージックの ほうが簡単だし，画一的 
になりやすいというだけの話です。 

ということで,今回はグラディウス2の才 
ープ ニン グ テーマを XI でお届けします。 こ 
のグラディウス2という MSX 用のゲームは 
ROM カートリ ッジ内にポリ フォ ニック音源 
5声というとんでもないものを秘めているの 
ですが，そこはそれ X 1 MML の11重和音を 
駆使して対応しています。さらにステレオ 
対応とするための関数定義部や，11重和音 
でもテンポが遅くならないように，全体の 
テンポを倍にする処理，先月号で出ていた 
タイ，スラーを置き換えるといったものも 
組み込まれた，テクニカルなプログラムと 
なっています。そうそう ， Y コマンド による 
ディチューンの効果も聞きのがせません。 
皆さんもぜひ解析してみてください。 

さて，来月はサウンド特集です。 Oh!X 
スタッフによる組曲 Y ’ s や共通 I / O ポート+ 
FM 音源の曲データなどもりだくさんのサウ 
ンドデータが掲載される予定。ご期待くだ 
さい0 


©コナミ 



A リスト1グラディウス2 

10 » GRADIUS 2 OPENING THEME 

20 1 

30 » ARRANGE & PROGRAMMED BY K.Y 

40 » 

50 1 COPYRIGHT (C) KONAMI 

60 » 

70 1 フ *D ク•ラムチュウノ 》 REM* 1 ハス * シ f 53 ウ 
80 *N=6 : SAVEM"G-S",&HB190,4HB190+N*36-1 

90 CLEARAHFF00 : DEFINTA-Z : DBFSNQ V： WIDTH 80: INIT : CLS4 : 8CRBEN : M MAKE-S" 

100 REM FOR 1=1 TO 200:PSET(IHT(RND(1)*640),INT(BND(1)*200),4)：NEXT 
110 DEFFNR$(A) = "V M +MID$(STR$(A),2,LEN<STR$(A))-1) 

120 ，ソクセキハ•ンキノウ FNP$(CH Nun, SOUND Nua f PAN Nub) 1=LEFT 2=RIGHT 3=MIDDLK 
130 DEFFNP$(CH,S,P) = ' , Y"+MID$(STR$(CH+32),2,2)+ H ,"+MID$(STR$((PEEK(4HB190+ (S-l)*3 
6) AND 63) OR P*64),2,3) 

140 * オンチ b ウヲハンフ*ンニスル 

150 IF PEEK(4HAE23)<>255 OR PEEK(4HAE24) <>7 GOTO 69« 

160 FOR A=4HAE23 TO &HAE63 STEP 2 
170 D=CVI(MEM$(A,2))+1 
180 MEM$(A,2)=MKI$(D/2-l) 

190 NEXT 

200 »PSG J シュウハスウヲス • ラス * 

210 FOR A=&HAE05 TO &HAE21 STEP 2 
220 D=CVI(MEM$(A,2)) 

230 MEM$(A,2)=MKI$(D+36) 

240 NEXT ： GOTO600 
250 » 

260 LABEL"X":PLAY STRINGS(11,"R：")：RETURN 
270 LABEL"P" 

280 PLAY Al$ + ":R32"+Al$ + "32:"; 

290 PLAY "R32 M +A1$ + M 32 : ,, +CA$ + " : ； 

300 PLAY Bt$+" : "+B2 $+"："； 

310 PLAY Hl $； 

320 PLAY " ： M +D1$； : PLAY D2 $； 

330 PLAY ••: "+CA$+ M : ..+CB$ + ” ： "+CC$ 

340 RETURN 
350 LABEL”Q” 

360 PLAY Al$+":R32"+Al$+"32 ”； 

370 PLAY " :"+A2$ + " :R32 ， _+A2$ + "32"; 

380 PLAY " : ，， +Bl$ + " : + " : •，； 

390 PLAY Hl$; 

400 PLAY " ： "+Dl$； : PLAY D2 $； 

410 PLAY ，，： "+CA$ + ":”+CB$ + ":”+CC$ 

420 RETURN 
430 LABEL. ， R” 

440 PLAY Al$+” ： R32"+Al$+"32&"; 

450 PLAY '* : "+CA$+" : M +CB$ ； 

460 PLAY ": ”+Bl$ + ":"+B1$ + ":"; 

470 P し AY Al $； 

480 PLAY " ： '*+Dl $； : PLAY D2 $； 

490 PLAY " :_ ， +CA$+"&: M +CB$ + "&: ”+CC$ 

500 RETURN 
510 LABEL..D" 

520 X=60 ： Y=2 ： CSIZE2 ： GOTO540 
530 LOCATEX+4,Y-2 ： PRINT#0 ,""； 

540 LOCATEX+2,Y-l ： PRINT#0, .V";:LOCATEX,Y:PRINT#0,". "； 

550 IF Y=15 THEN COLOR5 : LOCATE30,12 ： CSIZE3 : PRINT#0,"GRADIUS 2":CSIZE2:COLOR7 
560 X=X-2 ： Y=Y+1 

570 IF Y=25 THEN LOCATE0,23 ： PRINTCHRt(26)：RETURN 
580 GOTO530 
590 » 

600 POKE &HAFDE,&HCA：POKE &HAFE1,0 力 * / * & 1 JT '4+» ニナル 

610 TEMPO0:"X":POKE &HAC99.&HCD 
620 » 

630 S1$ = "V127E&E-&D&D-" ： Y3$= 'V124C8iV99<B> 

640 X1$="V127E4V123E-&V116D&V99D- 
650 GOTO ” MAIN" 

660 * 

670 LABEL"S" 

680 ， A$ = " ": し = コスウ： Vl= ハシ•メ ノ V:V2=t ワリ ノ V ： B$ コタ ; r 
690 VL=(V2-V1)/L ： B$= M " ： V=V1 

700 FOR 1=1 TO L ： V$=FNR$(INT(V)) : IF V$=VV$ THEN V$="" 

710 B$ = B$+V$+A$ ： V=V+VL ： IF V$ く 〉.." THEN VV$=V$ 

720 IF IOL THEN B$ = B$ + "&" 

730 IF V>127 THEN V=127 
740 NEXT：RETURN 
750 * 

760 LABEL"MAIN" 

770 ' 

780 »1 BASS-1/2 SCC-1/3 SCC-2/4 HIHAT/5 SD/6 BD 
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790 - 

800 A$=”A":L=16:V1=90:V2=114:“S" : B1$="L8"+B$ 

810 L=4:V1=113:V2=118:"S":B1$=B1$+”&L4"+B$ 

820 A1$=. ， R1C1 く B1 

830 A2$="R1E@8A®504E@8G0504 

840 PLAY "T44I1Q802"+B1$； : PLAY "： I 1Q8Y49,4002"+B1 $； 

850 PLAY H ： 1305 Q&V110 M +FNP$(2,3,1)+A1$+" ： I304Q8V110"+FNP$(3,3,1)+A2 $； 

860 PLAY " : I205Q8V110Y52,40"+FNP$(4,2,2)+A1 $； 

870 PLAY " : I2O4Q8V110Y53,40"+FNP$(5,2,2)+A2$+"; 

880 PLAY ， • ： Y7,56Q805Y1 2 ， 120 V16”+A1$ + ":04Q8V16”+A2$ 

890 » 

900 REM PALET 1,0：PALET 4,7：PALET 5,7 
910 1 

920 A1$="L32ED+DC+C<BA+AG+GF+FED+DC+ 

930 A_1$ = ，， L32R32ED+DC+C く BA+AG+GF+FED+D 
940 D1$="L32Q8R4I503"+Y3$+Y3$+Y3$+Y3$ 

950 H1$="L16R4CCCC 

960 PLAY "I3O5Q8V110..+AU+": 1305 Q8V110Y 49,40 M +A1$+":"; 

970 PLAY "I3O5Q8V110，，+ FNP$(2,3,2)+A1，+ . ，： I3O5Q8V110Y51,40' ， +FNP^(3,3,2>+A1$ + ":.，； 
980 PLAY ,, I2O5Q8V110"+FKP$(4, 2 ,1)+Al $+"： I205Q8V110Y53 ,40"+FNP$(5, 2,1 ) +A1$+" :"; 
990 PLAY ”I406Q6V116 ， .+HU; 

1^00 PLAY ，•： ” +D1$; 

1010 PLAY，. ： 06V13"+A1$ + ，，： 06V12"+A 1$ 

1020 * 

1030 A1$="L8C32C32R16C32C16.DERC4K4D4<B4>C4L16D&D 
1040 B1$="A1A2&A4,L16 GF+":B2$=”>C1C2&C4.<L16GFV ， 

1050 CA$ = "L1AA" :CB$ = ”L1EE，' ： CC$ = "L1CC" 

1060 D1$ = ,, L32Q803I6"+S1$ + "R8I5"+X1$ + "R8I6 ,, +S1$+S1$ + "I5"+X1$ + ' , R8" 

1070 H1$ = "L16 ,, +STRING$(2, "CCC C32C32RC CCCCC C 32032 RCCC") 

1080 PLAY "V116Q7”+A1$+":R32Q8V114Y 49,40 "+A1 拿 +"32:"; 

1090 PLAY "R32V110Q8Y 50,60 "+Al$+”32:I2O4Q8V100”+CA$+” ："； 

1100 PLAY ”I1O2Q8V104"+B1$ + ” ： I1Y 53,4002 Q8V104"+B2$ + " :•，； 

1110 PLAY Hl $； 

1120 PLAY " : "+D1$； : PLAY Dl $； 

1130 PLAY ": Y1 2,20004 V16"+CA$+" :04V16 ，， +CB$ + " :04V16”+CC$ 

1140 1 

1150 A1$="E2D4<A4G2>C4.&C&C 
1160 B1$="F1G1" ： B2$=B1$ 

1170 CA$ = ..AB” ： CB$ = "FG” ： CC$ = "C<B> 

1180 D3$ = "L32Q 80316 "+S1 $ + "R8I5 ,, +Xl$ + "R8I6 , '+S1$+S 1$ + " I5"+Y3$+Y3$+Y3$+Y3$ ： D2$=D3$ 
1190 "P" 

1200 A1$ = ， 'L8C32C32R16C32C16 .DERC4A4E4D4C4L16D&D 
1210 B1$ = ,, A1A2&A4.L16GF+" :B2$ = M >C1C2&C4. <L16GF+ 

1220 CA$="L1AA":CB$=”L1EE":CC$="L1CC" 

1230 D2$=D1$ 

1240 "P" 

1250 A1$="E2D4<A4G4>C4E4G8.&G 
1260 CA$=”AB” ： CB$=”FG":CC$=”C<B> 

1270 B1$="F1G1" ： B2$=B1$ 

1280 D2$=D3$ 

1290 ”P" 

1300 A1$=*'G2F2E2C4.&C&C 
1310 A2$="L2EDC<A 

1320 CA$ = "L2AB>CC , ： CB$ = ' , L2EFGA H ： CC$ = "L2CDEE 
1330 B1$="L2AB>CD":B2$=B1$ 

1340 PLAY Al$+":R32"+AlS+"32 ”； 

1350 PLAY " ： I2O4Q8V110 ,, +FNP$(2,2 t l)+A2 $； 

1360 PLAY " : R 321204 Q8Y51,40V106 ,, +FNP$ (3,2,2) +A2$ + "32 *'； 

1370 PLAY ":” +Bl$+” ： "+Bl $+”：”； 

1380 PLAY Hl$; 

1390 PLAY " : "+D1$； : PLAY Dl$; 

1400 PLAY " : ,, +CA$+ n : ,, +CB$ + M : "+00$ 

1410 1 

1420 A1$="<L8AB>CD4.D4<AB>CDDC4<L16B&B 
1430 A2$= M V106>>L8CDEF4.F4CDEF4.L16F8.&F 
1440 B1$="<L8AB>CD4.D4<AB>CD4C4<B 
1450 CA$ = "<AB>CC：' ： CB$ = "EFGA" ： CC$ = "CDEE 
1460 D2$=D3$ 

1470 "Q" 

1480 A1$="A2>D2E2E4.&E4E 
1490 A2$="E2F+2E2G+4.&G+&G+ 

1500 B1$=_.A1>E1 

1510 CA$ = _.L1 く AG+" :CB$=..L1EE" :CC$ = "L1C く B> 

1520 D2$ = "L32Q 80316 "+STRING$(4 > S1$ + ,, R8") 

1530 H1$ = D1$ + "L32Q803I5 ,, +STRING$(4,X1$ + "R8 M ) 

1540 ” Q” 

1550 » 

1560 GOTO1750 
1570 1 

1580 LABEL"B" 

1590 A1$="E2G2F+2F4.&F&F 
1600 A2$ = ”A2>C2<B2>C2，_ 

1610 B1$ = *'L4AAAAAAAL16AF+GG+ 

1620 CA$ = , *L2AGF+F" ： CB$ = ,, L2EEED , * ： CC$ = "L2CCCC" 

1630 D 1$ = '*L 321503 ,, +STRING$( 4, + ) 

1640 D2$=STRING$(3,X1$+"R8")+Y3$+Y3$+Y3$+Y3$ 

1650 E1$ = "L 321603 ， , +STRING$( 4, S1$ + "R8") 

1660 E2$=E1$ 

1670 PLAY ，， I2O5Q8V110 H +A1$ + " ： I2O5Q8V108Y 49,40 "+A1 $； 

1680 PLAY " ： R 321205 Q8V106Y 50,60 ,, +Al$ + , '32 ： I303Q8V100"+A2 $； 

1690 PLAY " ： I2O2V110Q6 ,, +B1$ + " :I2O1V110"+B1$ + " : "； 

1700 PLAY Dl$； : PLAY D2$; 

1710 PLAY " ： "+El$； : PLAY E2$; 

1720 PLAY " :04"+CA$ + " :04 ， .+CB$ + " :04”+CC$ 

1730 RETURN 
1740 » 

1750 "B":"B" 

1760 FOR 1=1 TO 2 

1770 A1$ = ' , C<AB>CE2G4F+2F8.G8.F&F" ： A2$ = "A2>C2<B2>C2 


148 Oh! X 1988 2. 


► C compiler PRO マ 68 K を注文しに行って，ついうっかり「上海」を買ってしまった。お 
かげで X 68000 は妻に占領されてしまった。……ったく，まだできね一のかよ一。オレなん 
かすぐ1面クリアしたぜ 一， 偶然だけど…… 。 横尾健徳 （24) 山形県 




1780 PLAY ”I304Q4V118”+A1$+" :1304 Q6V116Y 49,40 "+A1$; 

1790 PLAY " : R 321304 Q8V114Y 50,60 "+A1$+ ,, 32 ： I2O3Q8V100"+A2$J 
1800 PLAY ••: "+B1 拿 + ":"+Bl$ + ":"; 

1810 PLAY Dl$；：PLAY D2 $； 

1820 PLAY " ： ,f +El $； ：PLAY E2 $； 

1830 PLAY ，，： ”+CA 拿 +，• ： "+CB$ + " : "+CC$ 

1840 "B" 

1850 NEXT 
1860 * 

1870 FOR 1=1 TO 2 
1880 1 

1890 A1$ = ,, L16G2F2E 204.4 CAC" ： A2$= : ,, L16E2D2C2<A4 .&A&A 
1900 B1$="L2AAAA M 
1910 CA$=A1$ ： CB$=A1$ 

1920 D1$ = "L3203 ,, +STRING$(2, ，， I6 ,, +Sl|f+ ,, R8I5"+Xl$ + ,, R8 M ) 

1930 D2$ = ,, I6 ,, +S1$ + ,, R8I5 ,, +X1$ + ,, R8I6 ,, +S1$ + ,, R8I5"+Y3$+Y3$+Y3$+Y3$ 

1940 PLAY "I304Q6Vrt8"+iU.+": 1304 Q7V116Y49,32"+A2$; 

1950 PLAY " : I205Q6V96 ,, +CA$ + , ' : I20SQ6V96 M +CB$ ； 

1960 PLAY ": "+BU + ":”+B1“ m :"; 

1970 PLAY "R 321304 Q8V110Y54,48"+A1$+' , 32 M ； 

1980 PLAY " ： M +D1$； : PLAY D2 拿 ; 

1990 PLAY ，，： Y12,80V16O4”+CA 拿 +":V1604"+CB$+” ： V1604”+A2$ 

2000 ! K 
2010 FOR J=1 TO i 
2020 , • 

2030 Al$=" く DG>C<G>CGCFA+FA+>GfcG8.R< 

2040 A2$ = "DG>C<G>COCFA+FA+ >G4G8.R<< 

2050 CA$ = ,, RA+8.A4G8.E«160RA+8.A4G8.>C«160< 

2060 C_A$= ,, RA+8.A4G8.E«160RV114A+8,A4Q8.>C«160<V96 
2070 CB$="RG8.F4E8.C016ORG8.F4S8.GA160 
2080 C_B$= M RG8.F4B8.C®160RV114G8.F4E8.Q#160V96 
2090 B1$="Q16G8.G4Q4G4AA" 

2100 D1$ = "I6，，+ S1$+SU + "I5"+X1$ + ”R8I6"+S1$+”R8I5"+X1$ + "R8":D2$ = D1$ 

2110 PLAY Al$+" : H +A2 $； 

2120 PLAY ： ,, +C_A$ + " ： "+C_B $； 

2130 PLAY " ： "+BT$+" ： "+Bl $+"："； 

2140 PLAY "R32”+Al$+..32"; 

2150 PLAY " ： ,f +Dl$ ； : PLAY D2 $； 

2160 PLAY *• : "+CA$ + " : ,, +CB$ + " : M tA2$ 

2170 1 

2180 NEXT •: NEXT 
2190 1 

2200 A1$="L16D2<B8.>C8.D8D2<B8.>C8.D&D 
2210 CA$=”L16D2<B8.>C8.D8D2<B8.>C8.D8":CC$=CA 拿 
2220 CB$="L16F2D8.>E8.F8F2D8.E8.F8 
2230 B1$="L8FFFFFFFFEEEEEEEE 

2240 D1$ = "03"+STRING$(2, "I6"+S1$+ ,, R8I5"+X1$ + ,, R8") 

2250 D2$ = "I6 M +S1$ + "R8I5"+X1$ + "R8I6' , +S1$ + "R8I5"+Y3$+Y3$ + ,, R8" 

2260 PLAY "T 451304 Q6Vl 18"+A1$+" : I304Q8V116Y49,40R32 ,, +Al$ + ,, 32 &"； 

2270 PLAY " ： I2O5Q7V104 M +CA$+" : I2O4V104Q8Y51,40 M +CB $； 

2280 PLAY " ： I202V120Q2 ,f +FNP$(4,2,1)+B1$+" ： I3Q2O2V120Y 53,40 n +FNP$(5,3,2)+Bl $； 
2290 PLAY " ： I3O5Q7V104Y 54,32 M +A1 $； 

2300 PLAY " : M +D1$； : PLAY D2 $； 

2310 PLAY M : Y12,100O4 ,, +CA$ + ,, & ： O3 ,, +CB$ + "& ： O5 ,, +CC$ 

2320 1 

2330 Al$="D2<A+8.>D8.G8G2F+4.fcF+&F+ 

2340 CA$="D2<A+8.>D8.G8G2F+2 M ： CC$=CA$ 

2350 CB$="F2D8.F8.A8B2A2 

2360 B1$=STRING$(8,"D+")+"DDDDDDL16DDD+E 
2370 "R" 

2380 A1$="D8.<B8.>C8D8.G8.D8D8.<B8.>C8D8.G8.D4D 
2390 CA$=STRING$(2,"D8.<B8.A8>D8.G8.D8") 

2400 CB$=STRING$(2,"F8.D8.F8F8.B8.F8") 

2410 CC$=STRING$(2,"D8.<B8.>C8D8.G8.D8") 

2420 B1$ = "L8F.FFFFFFFEEEEEEEE 
2430 "R" 

2440 A1$="D8.<A+8. 〉 D8G8.A8.G8G2F+4.fcF+&F+ 

2450 CA$="D8.<A+8.>C8A8.A8.A8G2F+2" 

2460 CB$="F8.D8.E8A8.>C8.<A8B2A2 
2470 CC$="D8.<A+8.>D8G8.A 8.0802 F+2 
2480 B1$=STRING$(8,"D+")+"DDDDDDL16DDGD 
2490 "R" 

2500 A1$="F2E2D2.&D8.&D 
2510 CA$="F2E2D1":CC$=CA$ 

2520 CB$="A2G2F1 
2530 B1$="Q8G2G2G1 

2540 DU = M I1Q8O2V110Y55,40G2G2":D2$=..G1" 

2550 "R” ： ”X” 

2560 REM PAUSE34 : DEFINTA-Z : M D" : LOCATE©,16 
2570 END 

2580 » オンシ a クセッティ 
2590 LABEL"MAKE-S" 

2600 FORI=&HB190 TO &HB267 STEP 16 
2610 READ A$ : MEM$(1,16)=HEXCHR${A$) 

2b20 NEXT：RETURN 

2630 DATA FD 33 3140 4171IB 00 00 00 IF IF 1C 18 00 80 
2640 DATA 80 80 00 05 04 05 C2 A4 C6 85 00 00 00 00 00 00 

2650 DATA 80 00 00 80 FC 00 32 32 71 02IE 00 0C 00 IF 18 

2660 DATA IF IE 07IF 07IF 00 00 00 00 13 0613 06 00 00 

2670 DATA 00 00 00 00 80 00 00 00 F8 00 8D 99 818123 30 

2680 DATA 1C 00 9F 9F 9F 1C 00 00 00 00 00 00 00 00 F0 F0 

2690 DATA F0 85 00 00 00 00 00 00 00 00 00 00 FB 00 0E 06 

2700 DATA 07 00 OF IB 11 051A 1A 1A 16 04 0816 92 40 40 
2710 DATA 80 00 32 72 BA F8 00 00 00 00 00 00 80 00 00 00 

2720 DATA FB 03 0E 00 0A 10 0C 3125 00 IF IF IB 5C 00 0A 

2730 DATA IB 8A 00 C0 80 40 05 F5 FA 03 00 00 00 00 00 B0 

2740 DATA D0 00 00 40 E7 00 40 40 40 00 02 0F 0F 00 IF IF 

2750 DATA IF IF 00 1214 0A 10 0A 0F 0A 06 67 A8 99 00 00 

2760 DATA 00 00 00 00 00 00 00 00 FD 00 3140 4171IB 00 


►やりい！！大分県庁に合格でえい！これからは月給取りでい！そしたら X 68000 を n 
ってやるからな。買ったら MUSIC に燃えるので，ぜひ MUSIC PRO -68 K 〈ださいネ。 

简井啓介（18> 大分県 
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■■■ m i 力月ぶりの short 

civnDT ArrFvC = 認 = 

dnUKl AvvLm ssss 


ACCESS です 。 どう 
が多 < てショート 
あての投稿が少<なっています。もっと気 
軽にショートプ□グラムを送ってみません 
ゲームに限らすちよっとしだユ 
ティリティなどもお寄せください。 


THRILLING 


Terakawa Makoto 

寺川誠 


この THRILLING はショートでありなが 
ら，なかなかのスリルを味わうことのでき 
るゲームです。長さもちようど20行，80桁 
モードで1画面に入ってしまいます。機種は 
一応 XI シリーズ各機種。キャラクタのライ 
ン関係と画面制御をなぉせばほかの機種で 
も動作すると思います。 

操作法は スペースキーを 押すだけのワン 
キープレイ。 内容は嵐の中を避難場所めざ 
して駆け抜けるというものです。途中には 
避雷針がありこの近くでは落雷があります。 
ただし，頭上に落雷した場合でもしゃがん 
でいれば，助かることができます。落雷時 
に スペースキーを 押しているとしやがむこ 
とができるのです （ SIT の回数だけ）。 

嵐は激しく，スペースキーを離すとどん 
どん押し戻されてしまいます。なかなかダ 
イナミックに稲妻が走るので，まさしくス 
リリングな ゲーム 展開といえるのではない 
でしようか。 

Profile 

◊寺川さんは福岡県にお住まいの16歳，高校 I 
年生です。マイコン歴は約4年，現在は Xltu 
rboIII のユーザーです。前回発表された WAR 
P ! の作者でもあります。 



リスト1 THRILLING 

10 WIDTH 40： SCREEN 0,0: R= 1: S=0 : SI=3 : CLICK 0FF：KBUF OFF 
20 SOUND 7,&B111 : SOUND 8,16：SOUND 12,75:FOR 1=1 TO 20 

30 X=INT<RND*320>+8:Y=INT(RND«167}+8:LINE(X,Y>-<X+5,Y+15},PSET,5：NEXT I 

40 X=30 ： Y=23 ： COLOR 2 ： LINE ( 0,24 ) - ( 36,24 ) , ": COLOR 7 ： N=R：FOR 1 =1 TO R*2 

50 LOCATE INT(RND*37) ,22 ： COLOR 3 : PRINT” 〒"： NEXT I : LOCATE 0,23 ： COLOR 4 ： PRINT 

60 COLOR 7 : LOCATE 0,0:PRINTUSING”SCORE ####### SIT ##" ； S；SI 

70 COLOR 1 : LOCATE X,Y：PRINT " ♦ "：IF X=36 THEN 190 

80 IF STRIG(0)=-1 THEN N=N-1:ELSE IF INT(RND 本 3>=1 THEN X=X+1 

90 IF N=0 THEN S=S+10 ： X=X-1 : N=R：IF X=0 THEN S=S+500*R ： R=R+1 ： SI=SI+3 ： GOTO170 

100 TX=INT{RND*39>:IF CHARACTERS(TX,22)=" " THEN 60 

110 IF INT(RND*3)=1 THEN SOUND 1,1 : SOUND 13,0：COLOR 6 ELSE 60 

120 PALET 0,6 ： PALET：PALET 0,6 ： PALET：IF TX<19 THEN 140 

130 LINE(20,1)-(TX,22),"V:PAUSE 8 ： LINE(20,1)-(TX,22)," ，，： GOTO150 

140 LINE<20,1 卜 （ TX ， 22>/V":PAUSE 8:LINE(20,1)-(TX,22), M " 

150 COLOR 3 : LOCATE TX,22:PRINT .， 〒”： IF STRIG(0)=-1 AND SI>0 THEN SI=SI-1 ： SW=1 
160 IF SW=0 AND CHARACTERS <TX, 23 )="♦，. THEN 180 ELSE SW=0 GOTO 60 
170 LOCATE 13,8：COLOR 4：PRINTUSING "ROUND # CLEAR” ； R-1:PAUSE 20 ： CLS：GOTO 20 
180 LOCATE TX, 23 ： COLOR 5：CREV 1:PRINT" 本 ..： CREV 0 
190 SOUND 7 ,&B11 1000 ： PLAY ， •+ C3C-CC-C” ： PAUSE 10 

200 LOCATE 14,8：COLOR 4：PRINT "GAME OVER" : IF INKEY$="" THEN 200 ELSE 10 


リスト 2 POM 力ードポーカー 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 

110 HI=1000：DIM C{52,2),HL(5),CB(5,2),ME$(10),K(10),M$(4),KN(6) : PLAY 500 
120 WIDTH 40 ： CLS4：PRINT "POM CARD ホ •■• 力 - V.1 for Oh!X" 

130 10=1：FOR 1=1 TO 4：FOR 11=0 TO12 ： C(10+11,1)=11+1 ： C(10+11,2)=I：NEXT II 
140 10=10+11：NEXT I：GOSUB 580：GOSUB 1350 

150 M$(0 ) = "04B5FF4BDD2 •，： M$ ( 4 ) = "04C9R4ER4DR4G6C3FEDCG7+C8 ，’： M$ ( 3 ) = "04C5G4C5G4C5G3R 
6DR4DC-FGA+D" ： M$(2)="04-D5-FG+CCE+GG-CCEF+C" ： M$(1)="04C6R4C6ER4C7DE8'' 

160 FOR 1=0 TO10：READ ME$(I),K(I):NEXT I：FOR 1=1 TO 6 : READ KN(I) : NEXT 

170 DATA k* ンホ， -POM,1 ，フォ •• 力 - r ! ! ，100 , スリ - 力厂卜 * ! ! ,8, ッ - へ . ァ！！， 4 ，ヮンへ * ァ！！， 2, フルハウス！！ ,30 

180 DATA フラッシュ！！， 20, ロイヤルストレ - 卜！！， 200, ストレ - トフラッシュ！！ ,500 • ロイヤルストレ - トフラッシュ！ ,1000 ，ストレ - 卜！ 

! ， 10,2422,3736,2963,2743 ， 0101,2678 

190 FOR 1=1 TO 5： KEY I,RIGHTS(STR$(1),1)：NEXT 

200 ’- TITLE PRINT - 

210 INIT ： CLS4 ： Y=100 ： SC=10 ： CH=0：PALET 0,7 

220 CGEN 1 : LOCATE 1,16 ： PRINT#0,"ABG" : LOCATE 1,17 ： PRINT#®,"CDH" ： CGEN：COLOR 3 : LOCA 
TE 4,16：PRINT "My name is POM. I'm your friend !" 

230 LOCATE 10,9：PRINT "-KEY FUNCTION-"：LOCATE 7,11 ： PRINT*'F1-F2...POM CARD HOLD" 
240 LOCATE 7,12：PRINT "SPACE … CARD CHANGE" 

250 CSIZE 2 : LOCATE 0,2 ： PRINT#0, H = POM CARD ホ •■ 力 - =" 

260 LOCATE 0,20：COLOR 1 ： PRINT#0,"By POM SOFT(C)1987." ： CSIZE：COLOR 1 
270 PLAY "05G6CGFEDCEDCDDEEFFGGB#B : 04F6FEECCAADDACACEEFGF06C9" 

280 POSITION 86 ， 17 6:FOR 1=1 TO 6:PATTERN -16,KANJI$(KN(I)) : NEXT：COLOR 7:KEY0,"" 
290 IF INPUTS (1)0" " THEN GOTO 290 
300 ’- 1 ク PRINT - 

310 PALET ：CLS 4 ： PAUSE 1 0 : KEY0 , " " ： LOCATE 6,1: PRINT ••本本本 T ク & ハ * イリツ 本 * 本 " 

320 C0L0R6 : FOR 1= 1T01 0: L0CATE6 ,1+3: PRINT ME$( I): LOCATE 24,1+3: PRINT K(I)：NEXT I 

330 IF INPUTS(1)0" " THEN 330 

340 1 - MODE & TABLE PRINT - 

350 CLS : LOCATE 4,5：INPUT .'card change mode (1-3)" ； MO：IF M0〉3 OR MO=0 THEN BEEP：G 
OTO 350 

360 COLOR 2：LINE (0,30)-(31,24)-(287,24)-(319,30) 

370 LINE (0,34)-(32,26)-(287,26)-(319.34)：LINE (0,46)-(32,34)-(287,34)-(319,46) 
380 PAINT ( 108,100) ,4,2：PAINT (108,25),2：PAINT (108,0),1,2 

390 COLOR 0：FOR X=7 TO 280 STEP 64:LINE (X,Y)-(X-5,Y+5)-(X-5,Y+75)-(X,Y+80)-(X+5 
0,Y+80)-(X+55,Y+75)-(X+55,Y+5)-(X+50,Y)-(X,Y) : PAINT (X+5,Y+5) ( 7,0 ： NEXTX：COLOR 7 
4 00 ’- GAME START - 

410 CLS : DS=1 : CH=CH+1 : LOCATE 2,2：PRINT "game chance-" ； CH:IF CH=11 THEN 1280 
420 COLOR 1 : LOCATE 2,11 : PRINT "FI F2 F3 F4 F5” 

430 COLOR 2 ： CM$=" ：FOR X=1 TO 33 STEP 8：GOSUB 133 0：NEXT X : COLOR 7 

440 KA=0：GOSUB 1200：GOSUB 1230:COLOR 3：CONSOLE 6,1 : KEYO,"" 

450 INPUT ” input coin " ； KA : IF KA>SC OR KA=0 THEN BEEP：GOTO 450 

460 CLS : COLOR 7 : CONSOLE：GOSUB 1200 : FOR 1=1 TO 5 ： HL(I)=0：NEXT I : TR=MO：GOSUB 530 

470 KEY0 ,”•，： LOCATE 24,2 ： COLOR 7 ： PRINT "card change-" ; TR : I $ = INPUTS (1) 

480 IF I$= M " THEN TR=TR-1 : GOSUB 530：IF TR=0 GOTO 670 
490 IF 1$= M ¥" GOSUB 530：IF DS=53 GOTO 400 

500 IF ASC(1$)>&H 30 AND ASC(I$)<&H36 THEN HL(ASC(I $)-&H30)=-(HL(ASC(IS)-&H30)=0) 

: PLAY "05E1C#E" 

510 FOR 1=1 TO 5:P$="HOLD" : IF HL(1)=0 THEN P$=" ” 


POM CARD ホ ••• 力一 for Oh ! X 

SHARP DISK BASIC CZ-8FB01 V.2 

POM SOFT (C) 

1987 11/26 TU. 

PROGRAMED BY ATSUSHI HARADA 
- INITIALIZE - 


150 Oh! X 1988.2. 


























POM 力■ドボ""カー 


Harada Atsushi 

原田淳史 


POM カードというオリジナルのカードを 
使ったポーカーゲームです 0 146 行と少々長 
め，かつ背景グラフィックやオープニング 
テーマなどもついたショートとしては邪道 
のプログラムです力 5 '，カードゲームとして 
は立派にショートプログラムだと思います。 

ポーカー 自体の ルールは 割愛します〇ま 
ず， ゲームを 起動し スペースキーを 押すと 
役の説明のあと，続いてカードチェンジの 
枚数を聞いてきます。 1 から 3 までの数字を 
入力してください。あとは賭金を入力し， 
配られたカードの中から ホール ドしておき 
たいものをフアンクション キーで 指定しま 
す。指定を解除する場合にもフアンクショ 
ン キーを 押してください。指定完了時には 
スペースキーを 押します。 

こうして手を作っていき，なんらかの役 
が成立していた場合には自動的にダブル P 
0M ゲームに 入ります。このモードでは 5 枚 
のカードのうちまんなかの1枚だけが表にな 
った状態が表示され，次にめくるカードが 
このカードより同じかまたは上であるか， 
下であるかを当てるものです。このゲーム 
1回につき賭金が次々と倍になっていきます。 

ゲームは10回力 ? 1セットになっています。 
では ハイスコアめ ざしてがんばってくださ 
い0 

Profile 

◊原田さんは神奈川県にお住まいの 18 歳，高校 
3 年生です。マイコン歴は約 4 年， X1G のユ 
ーザーです。現在は大学入試の真最中だそう 
です。 



FI F2 F3 F4 F5 



520 LOCATE 1 *8-6 ,23： COLOR 3： PRINT P$ : NEXT I : GOTO 470 

530 ’ - CARD GIVE - 

540 FOR 1=1 TO 5: IF HL( I )00 GOTO 570 

550 PLAY "04F1" ： CB(I,2)=C(DS,2) : CB(I,1)=C(DS,1) : X=(I-1)*8+1：GOSUB 600 

560 DS=DS+1 : IF DS=53 THEN LOCATE 8,8：PRINT リュウキ b ク 本 **”： GOSUB 580:1=5 

570 NEXT I : RETURN 

580 1 - CARD MIX - 

590 FOR 1=1 TO 52 ： RN=INT(RND(1)*51)+1 : FOR 11=1 TO 2：SWAP C(I,I1),C(RN-(RN=I)-{RN 

>1),11) : NEXT II：NEXT 1：RETURN 

600 * - CARD PUT - 

610 M$=CHR$(&HE1+CB(T,2)) : C0=CB(I,2) ： S$=RIGHT$(STRS(CB(I,1)),2) ： 1F CB(I,1)=11 TH 
EN S$= ” J" ELSE IF CB(I,1)=12 THEN S$=" Q” ELSE IF CB(I,1)=13 THEN S$=" K” ELSE 
IF CB(I ， 1)=1 THEN S$=" A” 

620 COLOR -(C0=U-(C0=2> 本 2-(CO=3)*2-(CO=4):CM$=” ": GOSUB 1330 

630 LOCATE X,13：PRINT S$：LOCATE X,14：PRINT M$：LOCATE X+4,20：PRINT S$ 

640 LOCATE X+4,21 : PRINT M$ : COLOR 7：CGEN 1 : LOCATE X+2,16 ： PRINT?0, M AB" 

650 LOCATE X+2,17 ： PRINT#0,"CD" : FOR T2=ll TO13：IF CB(I,1)=I2 THEN LOCATE X+4,16: 
PRINT#0,CHK$(47 + 12 本 2):LOCATE X + 4,17:PRINT#0,CHR$(48+12 本 2) 

660 NEXT I 2 : CGEN : RETURN 

670 ’- V ア - 

680 FP=0 : SP=0 ： TP=0 : PF 1=0 ： WP=0 : FOR 1=1 TO 5 ： HL(I)=0：NEXT I 
690 FOR 1=1 TO 5 ： PF=0：FOR 10=1 TO 5：IF 1=10 GOTO 720 
700 IF HL( I )00 GOTO 720 

710 IF CB(I,1)=CB(10,1) THKN PF=PF+1 : HL(I0)=1 

720 NEXT 10 

730 IF PF=3 THEN FP=1 

740 IF PF=2 THEN SP=1 

750 IF PF=1 THEN PF1=PF1+1 : WP=1 

760 IF PF1=2 THEN TP=1 ： WP=0 

770 NEXT I 

780 ’- フラッシュ - 

790 FF=0 ： I0=0：FOR 1=1 TO 4 ： I0=I0-(CB(I,2)=CB(1+1,2)) : NEXT I : IF 10=4 THEN FF=1 

800 ’- ストレ-卜 - 

810 SF=0 ： RF=0 ： CB1=CB(1,1) : FOR 1=2 TO 5: IF CB1>=CB(I, 1 )THEN CB1=CB(I,1) 

820 NEXT I 

830 IF CB1>9 GOTO 880 

840 FOR 11=1 TO 4 : 10=0：FOR 1=1 TO 5 : IF CB(I,1)=CB1+1 THEN CB1=CB1+1:10=1:1=5 
850 NEXT I 

860 IF 10=0 THEN 11=4 
870 NEXT I1 ： SF=-(I0=1) 

880 • - ロイヤル - — 

890 10=0：FOR 1=1 TO 5：IF CB(I,1)=1 THEN 10=1:1=5 
900 NEXT I: IF 1001 GOTO 940 

910 FOR 11=10 TO 13 ： IC=0：FOR 1=1 TO 5：IF CB(I,1)=11 THEN 10=1:1=5 
920 NEXT I : IF 10=0 THEN 11=13 
930 NEXT II 

940 ’- CARD JUDGE - 

950 RF=-(10=1) : 1=0：IF FP=1 THEN 1=1：GOTO 1060 

960 1=0 : IF FP=1 THEN 1=1：GOTO 1060 

970 IF SP=1 AND WP=1 THEN 1=5：GOTO 1060 

980 IF SP=1 THEN 1=2 ： GOTO 1060 

990 IF TP=1 THEN 1=3：GOTO 1060 

1000 IF WP=1 THEN 1=4：GOTO 1060 

1010 IF RF=1 AND FF=1 THEN 1=9：GOTO 1060 

1020 IF RF=1 THEN 1 = 7-.GOTO 1060 

1030 IF SF=1 AND FF=1 THEN 1=8：GOTO 1060 

1040 IF SF=1 THEN 1=10：GOTO 1060 

1050 IF FF=1 THEN FOR 10=1 TO 6 : PALET 7,0：PALET 7,6:NEXT I0 ： PALET ： I=6 

1060 LINE (0,47)-(319,82),PSET,1,BF ： K1=K(I)：IF 1=0 THEN K1=0 

1070 LOCATE 0,7：COLOR 6：CSIZE 2 ： PRINT#0 ME$(I>;K1:CSIZE:COLOR 7 ： KA=KA*K(I) 

1080 GOSUB 1200:IF 1=0 THEN SC=SC-KA ： KA=0：PLAY M$(0)：GOTO 1180 ELSE PLAY M$(4) 
1090 LOCATE 14,9 ：PRINT "D.POM GAME ? (Y/N ) ,r : KEY0 , " " ： I $ = INPUTS (1) 

1100 IF I$<>”Y" THEN IF I$="N" THEN PLAY M$(3)：GOTO 1180 ELSE 1090 
1110 * - DOUBLE POM GAME - 

1120 COLOR 2 ： CM$=" " : FOR X=1 TO 33 STEP 8 : IF X<>17 GOSUB 1330 

1130 NEXT X : COLOR 7：FOR 1=1 TO 5 ： HL(I)=1 : NEXT ： HL(3)=0 

1140 LOCATE 14,9：PRINT "UP or DOWN ? (U/D)" ： KEY0,"" : I$=INPUT$(1) 

1150 IF I$="U” OR I$="D" THEN UP=-( 1$= "U") ELSE 1140 

1160 BEEP ： HH=CB(3,1) : GOSUB 530：LOCATE 14,9 ： CSIZE2：IF (HH<=CB(3,1)AND UP=1) OR ( 
HH>CB(3,1)AND UP=0) THEN PRINT#0 "WIN!! ，，： CSIZE:PLAY M$(1) : KA=KA*2：GOSUB 12 

00 ELSE PRINT#0 •• 才 - マイカ * ット！！ "： CSIZE : PLAY M$ ( 2 ) : KA=0 : GOTO 1180 
1170 PAUSE 20：GOTO 1090 

1180 GOSUB 580：LINE (0,47)-(319,82),PSET,4,BF ： SC=SC+KA：IF SC<1 GOTO 1280 
1190 CLS : GOTO 400 

1200 ’- SCORE PRINT - 

1210 LOCATE 0,0:PRINTUSING "COIN**####### TOP* 本 ####### KAKE**#######" ； SC ； HI；KA 
1220 RETURN 

1230 ， - GRAPH PRINT - 

1240 LOCATE 0,1：PRINT "coin graphLINE (88,10)-(319,13),PSET,1,BF 
1250 FOR 11=1 TO INT(SC/1000) : LINE (11*4+84,10)-(11*4+86,13),PSET,6,BF 
1260 IF II>57 THEN BEEP ： I1=INT(SC/1 000 ) 

1270 NEXT II : RETURN 

1280 ’- GAME IS OVER - 

1290 WIDTH 40 ： KA=0：IF SC>HI THEN HI=SC 

1300 GOSUB 1200：LOCATE 6,10:PRINT "POM...CARD GAME IS OVER !" 

1310 PLAY ,, 04C6R4C6R3C2R403A6R4A6R3A2R3G6R3G6E505C8"：KEY 0,"" 

1320 IF INPUTS (1)="•，THEN 200 ELSE 1320 
1330 * - REVERSE CARD - 

1340 FOR 12=13 TO 21：LOCATE X,12：PRINT CM$：NEXT 12：RETURN 
1350 , - PCG SET - 

1360 DEFCHRS(65)=HEXCHR$("FFE2D180FBFBFBF3E2DDBF7F7F5D5D7FE2DDAE7F7F5D5D73") 

1370 DEFCHR$(66)=HEXCHR$("FF3F070381818IC13FC7F9FDFEFEFEFE3FC7F9FDFEFEFEFE") 

1380 DEFCHR$(67)=HEXCHR$("F7FFDF9BD7CEE3FFBFC0BF73B3BFDCE3B7C0BF7FBFBFDCE3") 

1390 DEFCHR$(68)=HEXCHR$("ClC 387000 F0F1FFFBE7DFBFFF0F7EF1FBE7DFBFFF0F7EF1F") 

1400 DEFCHR$(69)=HEXCHR$("FFFFFFFFFFFFFFFFDFDFCFCFCFCFCFCFDFDFDFDFDFDFDFDF") 

1410 DEFCHR$(70)=HEXCHR$("FF87CFCFCFCFCFFFFFFFFFFFFFFFFFFFCF87DFCFCFDFCFFF") 

1420 I)EFCHR$(71)=HEXCHR$("FFE7C7A991C3E7F7FFFFFFFFFFFFF7F7FFE7C7A991C3EFFF") 

1430 DEFCHR$(72)=HEXCHR$("F7F7B6B 69405 ClE3F7F7B6B 69405 ClE3FFFFFFFFFFFFFFFF") 

1440 DEFCHR$(73)=HEXCHR$( ,, BFBFBFBFBFBFBFBFDFD3D1C1C0C0C0C1BFB7B3A3A1A1A1A3") 

1450 DEFCHR$(74)=HEXCHR$("BFBFBFBFBFBFBFBFD1D3DFDFDFDFDFDFB3B7BFBFBFBFBFBF") 

1460 RETURN 
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•霊 • III . •纏 *1 日本ソフトパンク 


特集1書ぐ創る•送る <2 >Desktop Publishing 

□TP ワークショップ P . I / Z’SW 〇 RDJG 
表現ツールを使いわける Z’s WORD JG / I - 名人/デスク up / I . P . 
ユーカラ VA / Rl / MATHCRIPT / C - FORM/PRINT 
LOGO/POP 名人/ PIX SPOT/PC 書道/まっぶっぶ 
続•アイデアプロセッサ IDOQ 

ワークショップスペシャル PostScript によるアウトラインフォントドライブ 

特集2的パーティ 

通信/メモリエデ v 夕/デイスプレー•ツール/ゲー厶 
►カラーレポート UNIX フェア’巳7 

►最近ソフトオーバーレビュ ー Z‘s STAFF-KIT VA / Shogun 2/ Nir \ ja 2 ほか 
► Who’s who FINAL ハ/ VE / C-WRITE 闩 98/ えでいった•エディゴン 


月刊 

_yPC 


2月号 
500円 


嘗 ypc 






S- 




特集1オータメードの BASIC 

やはり/拡張巳 ASIC なのだつ// 

万能型連続 POKE と多機能 PRINT 文の拡張 
拡張巳 ASIC はこんなとき便利/ 

「ノ W ッちゃイケナイ//拡張 BAS ICVF-BASC 解体全書〈出張版〉 

特集2今宵はワンマンオーケストラ2 

音楽プログラム集 Cosmic Air Way ， 独眼竜政宗のテーマ， 

'マリオネット，時をかける少女ほか 
Oh / FM オリジナル音色データ集 HG FMDATA ほか 
オリジナル音色を DATA 文に SOUND SET PROGRAM 
► OS -9 プロセス間通信が簡単にできるネームドパイプ 6809 版 
►浮動小数点演算加速カードの製作(後） 

► 5 周年記念超特大モニタプレゼント2 


月刊 - 


コンピュータ技術者必携 
第2稽•第1櫓•特 ® 受骇 


情報処理試験 


2月号 
580円 




月刊^^ atm— 



特集 62 年度〗 0 月 2 種•濯午後試験の重点研究 

2種プログラム言語問題 CASL - GOBOL - FORTRAN - PL/I 
1種プログラム設計問題基本算法•事務処理•技術計算 

►カラー受験ゼミカーエレクトロニクス 

►ザ•プロジェクト独創的なアイデアとチー厶ワークで開発した卜ータル CAI シ 
ステム 

►プログラム言語への招待 LOGO 

► 学習講座受験のためのノ V - ドウェア基礎/受験のためのソフトウェア基礎/ 
懼必須コンピュータの知識/関連知識征服ゼミ数学•工業•商業/受験に役立つ 
コンピュータ英語/徹底マスター流れ図 • 1種プログラム設計/合格必修ゼミ CA 
SL - FORTRAN-COBOL 

別冊付録昭和63年度4月情報処理技術者試験受験願書一式 
►案内書►受験願書►振替用紙►受験ガイド 



ヨヨヨイヨヨヨイめでてぇな 

新春バラエティ特集なのだよ 

巳巳日 P ライター対抗新春紅白大運動会/新春に占う新興宗教 
教祖様大予言/12時間ドラマ「太平洋の嵐」/億万長者の夢/千代田 
区1周ウルトラゲームクイズ 13 か 

ゆらめき，ときめきファンタジーゲーム特集 

ファンタジースター/ファイナルファンタジー/ファンタジーナイト 
•今月のパイルドライ八ーサンダーブレード 
•徹底研究スペシャル妖怪道中記/レインボーアイランド/シャロム 
特別付録⑱すごろくカレンター 
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バックナンバー案内 


ここには1987年2月号から1988年丨月号 
までをご紹介しました。なお，在庫状況 
とお申し込み方法については，本文168 
ページを参照してください。 



1987年 


Oh!MZ S 月号 

特別企画データの互換性を探る 

RS -232 C は共通メディア / コンバータの使い方他 
特別リポートさわってみたぞ！ X 68000 
オリジナル 0 S / ビジュアルシヱル / BASIC 
XlturboZ の拡張機能 <2> Z の隠れ機能とその攻略法 
試験に出る) (1 ほとんど完全無欠な I / O マップ 

• MZ -1500, SMC 777 版グラフィックパッケージ MAGIC 
全機種共通システムテキスト AVG 作成ツール CONTEX 

ア ドベンチャー ゲーム MARMALADE 

3月号 

特集 ゲーマー たちの時間 

ゲームレビュー特別編/傑作投稿プログラム6選 

• X 68000 試用レポート起きぬけグラディウス 

籲満開製作所からのお知らせ「満開二号 j 仕様発表 
•カラ_紹介グラフィックツール XIZ’sSTAFF 
マシン語体操卜2*3 I 行アセンブラ ZIMPL (完成編） 

全機種共通システム魔法使いはアニメがお好き 
アニメーシヨンツール MAGE 
“ SWORD " 再掲載と MAGIC の標準化 


4月号 

特集肉体派への“ BASIC ” 入門 

プログラミングとはなにか/プログラミング実況中継 
試験に出る) a カラーイメージポードなのである 
マシン語体操 1 *2*3 再び Z80 の世界にご招待 
THE SOFTOUCH SPECIAL 1 986 年度 GAME OF THE YEAR 

• XI シリーズ用拡張漢字 BASIC 

參新スクランブル回路採用カラーイメージポ_ド II 
全機種共通システムシューティングゲーム2選 

• MZ -80 B / B 2 版グラフィックパッケージ MAGIC 

5月号 

特集共通メディアとしての通信 

GT - 3000でイメージ取り込み/ RS -232 C ポード製作他 
BASIC リレー連載いちどっきりのユーティリティ 
BASIC で数学と遊ぶ自然数とコンピュータ 
特別企画言わせてくれなくちゃだワ 

• X 68000 システム案内 Human 68 k による操作環境 
參新製品速報 MZ -286 I 

全機種共通システム S -0 S “ SW 0 RD n 変身セット 
“ SWORD ” を QD 対応に 

6月号創刊5周年記念 

特集マシン語プログラム“開発”入門 

ラインエディタのおかげです/デバッグ兵器 ICE 他 
BASIC リレー連載 FM 音源でアドリブしたい 
試験に出る XI MML を作るのである 

• X 68000 Human 68 k 入門ファイルオペレーション術 

• 68000福袋公開アセンブラ/リンカを使う 
全機種共通システム FuzzyBASIC コンパイラ 

エディタアセンブラ ZEDA -3 
特別企画 Oh ! MZ その筋事典 

7月号 

特集グラフィックの環境を考える 

MZ - 2500とサポート/ビジュアルマシンとしての XI 他 
THE SOFTOUCH キングス•ナイト•スペシャル 
魔界復活/三国志/新作情報他 
X68000 あなたの知らない世界内部サブルーチン I 0 CS 他 

• MZ -286 I の MS-DOS とエミユ レーシ ョンソフト 

• MZ -1 500用投稿ゲーム Jocose John part 2 

全機種共通システムアドベンチャーゲーム作成ツー 
ル STORY MASTER 



日月号 

特集迷宮の日本語処理環境 

MZ - 2500用ワープロプログラム Super ものかきくん 
書式ユーティリティ C 0 LN / らくらく SYMBOL 他 
試験に出る XI 最終回通信プログラムである 
X 68000 BASIC 入門第1回めぐりあい X-BASIC 

• X 1/ turbo 用パズルゲーム STAR PANIC 

♦ Z’sSTAFF PRO 68 K の世界 

X 68000 あなたの知らない世界 SOUND PRO 68 K / SWITCH. X 
全機種共通システム FM -7/77 版 S -0 S “ SW 0 RD ” 他 


9月号 

特集1 MZ -700 に不可能はない 

MZ - 700ゲー厶テクニック集/ SPACE BLUSTER SG 
特集2ミュージックデータと遊ぶ FM 音源の世界 
MZ - 2500 MML の拡張/ X 1 /turbo 用 MML コンバータ 
X 68000 あなたの知らない世界マシン語入カツール他 
BASIC リレー連載ディレクトリまるごとコピー 
• XlturboZ , X 68000 用ハードコピープログラム 
全機種共通システム PC -800 1/8801版 S -0 S “ SW 0 RD ” 

リロケータブル逆アセンブラ lnside-R 

io 月号 

特集 Game Design を考える 

遊びを設計するために/ピコピコゲームが原点他 
♦投稿ゲーム4選 

♦ミュージックプログラ厶ベートーベン月光 
THE SOFTOUCH SPECIAL イース/ウルティマ IV 他 
X 68000 あなたの知らない世界 BASIC to C コンバータ 
X 68000 BASIC 入門追擎ランダムファイル 
全機種共通システム FuzzyBASIC コンパイラ拡張版 
X 1 turbc ^ S -0 S “ SW 0 RD”/tiny CORE WARS 

11月号 

特集1全機種共通システム S - OS 再考 

超入門 S -0 S / ファイルアロケータ&口ーダ 
FuzzyBASIC コンパイラ版 BACK GAMMON 
特集2 MZ - 2500 スペシャル 逆襲のアルゴ機能 
アルゴブロック崩し/アルゴリズムを作ろう 
參 MZ - 2500力ードゲーム KING’S COURT 
THE SOFTOUCH X 68000 用 Kamikaze / MZ -2861 用 up 

シリー ズ / トリフォニー / リバイバ ー / ガルフォース他 
X 6 8000あなたの知らない世界 CP / M -68 K / TITLE . SYS 


□h!X 12 月号 

特集正真正銘の Oh ! CZ SPECIAL 

新製品速報 X 1 turboZII / X 1 twin / X 68000 
X 1 /turbo シ ステム&プロ グラミング 
NEW Z - BASIC/C compiler PR 0-68 K 
人類タコ科図鑑第1回 Jap meets Yankee 
実用 （？） オブジェクト指向のゲームプログラミング第1回 

♦ XI/turbo 用力ードゲーム SPEED 

♦ X 68000 ファイル コ ンバータ MACS/HELPS 

全機種共通システム PASOPIA 7 版 S -0 S “ SW 0 RD ” 他 


Oh ! X 1月号 

特集 MZ&X 拡張ボードの活用 

すべての道は I / O に通じる/ MZ で XI 用ボードを使う他 
1987年度 GAME OF THE YEAR ノミネート作品発表 

• MZ - 2500用 ALGO SPACE BLUSTER SG 

• LIVE in ，88 ドラゴンスピリット/悲しきチェイサー 
BASIC リレー連載半熟 FORTRAN はいかが 
X 68000 BASIC 入門グラフィック炎上 

マシン語体操卜2*3データ構造を考えよう 
全機種共通システム Fuzzy BASIC コンパイラ • 奥村版 
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S-OS“SWORD” を使っています。 
プログラム 中で，データをロー 
ド•セーブしたいのですが，手順 
?&ぐさっぱりわかりません。わかりやすく，詳 
しく，難しい言葉を使わないで説明してく 
ださい。 神奈川県河原木明 

S-OS“SWORD” では ファ イルの 
入出力を行う方法が，非常に簡 
単になっています。ディスクを 
扱う場合でも，テープを扱う場合でも同じ 
方法でいいのです。以下にその方法をざっ 
と書いてみますと， 

1) 読み書きしたいファイル名をセットす 
る 

2) 読み込みたいなら ROPEN ， 書き出した 
いなら WOPFN を使ってファイルをオ_ 
プンする 

3) RDD, WRD を使ってファイルを読み 
書きする 

というぐあいになります。 

まず 1) のファイル名のセットですが，こ 
れは次のように行います。 

LD DE,FILENAME 

LD A,FILEMODE 

CALL #FILE 

DE レジスタにはファイル名を入れてある 
アドレスを入れます。プログラムの最後に 
でも 

FILENAME : DEFM “A : TEST.OBJ” 
DEFB 0 

としておけばいいでしよう0 A レジスタに 
はそのファイルが マシン 語ファイルなのか， 
アスキーファイルなのかに合わせて，1ま 
たは 4 をセットします。これ以外のファイ 
ルタイプについては知らなくてもいいでし 
ょラ。 

次に 2) のファイルのオープンです。ファ 
イルを入力したいのであれば ROPEN を，フ 
ァイルを出力したいのであれば WOPEN を 
使います。どちらの場合もディスクやテー 
プが入っていない，データを読み取れない 
などのエラーが発生したときはキヤリフラ 
グが立って返ってきますから，これをチェ 
ックしてエラーメッセージを出すこともで 
きます。 

WOPEN は セー ブする データの 先頭アド レ 


ス，サイズ，実行を始めるアドレスを S-OS 
のワーク エリ アにセットしてから呼び出し 
ます。たとえば，500011〜 5 FFFh を実行アド 
レス5003 h でセーブしたいのであれば 


LD 

HL ， 5000 

LD 

(# DTADR ), HL 

LD 

HL , 100 OH 

LD 

(# SIZE ), HL 

LD 

HL , 5003 H 

LD 

(# EXADR)，HL 

CALL 

# WOPEN 

JP 

C , ERROR 


というぐあいになります。最後の行がェラ 
ーチェックです。 WOPEN したときにェラ 
一が発生したかどうかを調べ，エラーが発 
生していたときには ERROR というラベルを 
付けた エラー処理ルーチン（自前のルーチ 
ン〉にジャンプさせています。 

ROPEN のほうはもっと簡単で，単に 
CALL ROEPN 
JP C, ERROR 

というように作ってやれば，ディスクから 
の入力に関しては OK です。テープからの口 
ードの場合にはもう少し複雑になります。 
テープに対しての ROPEN はゼロフラグを 使 
って，テープの現在位置にあるのが探して 
いる ファイルなのかどうかをレポートする 
のです。ゼロフラグが立っていれば光に# 
FILE でセットしたファイルが見つかったこと 
を， ノン ゼロだったならファイルを見つけ 
たが# FILE でセットしておいたファイルとは 
違うものであることを意味します。そこで 
#1 : CALL # ROPEN 

リスト丨 ファイル入カプログラム 

SAMPLE ： 

LD DE,FILNAH 

LD A,1 

CALL IFILE 

SMPL1 ： CALL tROEPfi 

JP C ,ERROR 

JR Z,SHPL2 

CALL IFPRNT 

CALL ILETNL 

JR SMPL1 

SMPL 2： CALL «RDD 

JP C,ERROR 

RET 


JP C , ERROR 

JR Z , #2 

CALL #FPRNT 
CALL #LETNL 
JR #1 

#2 : 

というぐあいにプログラムを組めば，ロー 
ドしようとするプログラムが見つかるまで 
ファイル名を表示してスキップしてくれる 
ようになります。デイスクに対する ROPEN 
ではゼロフラグが常に立つように作ってあ 
ります ので，このループでテープからの 入 
力とデイスク からの 入力を一括して扱う こ 
とができます。 

最後に RDD ， WRD ですが，これらは難し 
〈ありません。普通に CALL で呼び出して， 
エラーチェックをしてやればいいだけです。 

ROPEN ルーチンによってフアイ ルを 口ー ド 
するのに必要な情報（先頭アドレス，サイ 
ズ，実行アドレス）は ワークに セットされ 
ますので， RDD を実行する際にはこれらの 
ことはまったく考える必要はありません。 

以上をまとめて，標準的なロードルーチ 
ンを作ってみたのがリスト1です。セーブ 
ルーチンもこれを参考にして簡単に作るこ 
とができるでしょう。 

ところで RDD / WRD を行う前に，プログ 
ラムのスタートアドレスを入れるワーク# 
13 TADR を変更すると面白いことができます。 
ファイルを書き出す場合， WRD の直前にこ 
れをやると， WOPEN で書き出したプログ 
ラムの先頭情報とは違うアドレスにあるプ 
ログラムをセーブしてやることができるの 


:ファイル名の先頭アドレス 
; BIN フ アイ ル 
;ファイル名セット 

；オーブン 
;エラー 発生 
;ファイルを発見 
;ファイル名を表示 
;改行 

;次のファイルを探す 

；データの铳み込み 
;エラー発生 
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です。また ROPEN を行ってから称 DTADR 
を変更すると，セーブ時のアドレスとは異 
なるアドレスにプログラムをロードするこ 
とができます。たとえば S - OS 用のスクリー 
ンエディタ E - MATE では，作成したアスキ 
—ファイルを先頭アドレス000 Oh でセーブし 
ますし，逆にロードするときはアスキーフ 
アイルの先頭アドレスがいくつになってい 
ても必ず 4 E 00 h に口ードするようになって 
います。 

簡準な例をお見せしましょう。 4 EOOh 〜 
5 DFFh にあるデータを先頭アドレス000 Oh 
でセーブしてみます0ファイル名をセット 
するところを省略すると， 


LD 

HL ，0 

LD 

(# DTADR ), HL 

LD 

HL , 100 OH 

LD 

(# SIZE ), HL 

LD 

HL , 0 

LD 

(# EXADR ), HL 

CALL 

#WOPEN 

JP 

C , ERROR 

LD 

HL , 4 E 00 H 

LD 

(# DTADR ), HL 

CALL 

#WRD 

JP 

C , ERROR 


という要領になります。 ロードの ほうも 同 
様で， ROPEN が 終了してから実際に読み込 
みたいアドレスを# DTADR に セットしてや 
れば，好きなアドレスに読み込んでやるこ 
とができます。 

以上の説明でわからない場合は，マシン 
語でセーブルーチンを作るのは諦めたほう 
がいいでしょう。もう少し Z 80 の勉強をし 
てから改めて挑戦してみてください。 

BASIC CZ -8 CB 02 上でプログラ 
ムをデバイス0に，辞書フロッ 
ピーをデバイス1にしようと思 
い，次のようなプログラム（リスト 2) を 
組んでみましたがうまく動きません。ダイ 
レク トモー ドで実行するとうまくいくので 
すが ……〇 どうしてなのでしょうか。 

埼玉県後藤信浩 
プログラムがうまく動かないと 
きの対処^£として，自分がコン 
ピュータになったつもりでプロ 


グラムの流れを追ってみるという手があり 
ます。ここではその方法をちょっと試して 
みましょう。 

コンピュータはまず10行で初期化を行い 
ます。そして20行を実行して，現在のカレ 
ントデバイスを1に変更します。次に30行 
の実行です。この行は 「KEY 0，」ですからキ 
一入カバッファに文字列を格納します。そ 
して40行の其行でカレントデバイスを再び 
〇に戻して5〇行で終了します。終 r した途 
端にキー入カバッファに 「KEY 0，」を使っ 
て蓄えておいた文字列が吐き出されます。 

これによって現在のカレントドライブが辞 
書用のドライブとして選択されるわけです。 
カレントドライブは現在0ですから，デバ 
イス0が辞書用ドライブとして選択されて， 
ハイご苦労さん。と，なってしまったわけ 
です。 

つまりドライブを1に変え，0に戻してそ 
れから辞書用ドライブの設定が行われたの 
です。これがうま〈勤かなかった理由で， 
その原因は 「KEY 0，」です。 

BASIC はキーボードから入力される文字 
列を蓄えておく，キー入カ バッファと 呼ば 
れる領域を内部に持っています。 カーソル 
が点滅していないとき，たとえば，リスト 
を表示しているときなどに入力した文字を 
コンピュータ がちゃんと觉えていてくれる 
のは，この キー入カ バッファの おかげな の 
です。 BASIC は文字を領域に一度蓄えてお 
いて，処理が終わってから再びそれを取り 
出して処理を開始します。 

「KEY 0，」というのはこのキー入カバッ 
ファに文字列をセットするための命令です。 
そしてプログラムの英行が終わったときに 
この文字列は取り出されて処现されます。 
つまりプログラム奥行中は 「KEY 0， j でセ 
ットした文字列は処理されないのです。こ 
れを逆手に取ってやれば次のような方法で 
解決できます。 

リスト2辞窨の入っているドライブ変更プログラム 

10 INIT：CLS 
20 DEVICE ， .l :，， 

30 KEY 0,CHR$(&HFF,&HF9,&HFF) 
40 DEVICE ”0:” 

50 END 




30 KEY 0, CHR $(& HFF ,& HF 9 ,&HF 
F ) + “GOTO 40”+ CHR $(13) 

35 END 

とプログラムを変更 • 追加してみてくださ 
い。プログラムの実行中に処理できないの 
であれば，プログラムの実行を中断させれ 
ばいいのです。30行で文字列をセットした 
ら35行でプログラムを終了させます。する 
とセットした文字列が処理され，辞書ディ 
スタのあるデバイスが変更されて ， 「GOTO 
40」が其行されます。40行からはカレント 
ドライブを変更するブログラムがあります 
から，カレントドライブは再び0に戻って 
めでたく終了となります。 

なお 「KEY 0，」でセットした文字列はプ 
ログラムの実行終了時だけではなく ， INP 
UT 命令などキーボードからの入力をする命 
令が実行されたときにも処理されます。こ 
のときはあたかも人がそう入力したかのよ 
うに，画面に 「KEY 0,」でセットした文字 
が現れます。ディスク コピーユー ティリテ 
ィなどではこれを使って，画面におそらく 
入力されるであろう文字を表示し，人が！； 
ターンキーを柙すだけですむように工夫さ 
れています。一度プログラムを覗いてみて 
はいかがでしようか。 （泉大介） 


質問にお答えします 

日ごろ疑問に思っていること，どんなこ 
とでも結構です。どんどんお便りください。 
難問，奇問，編集室が総力をあげてお答え 
いたします。ただし，お寄せいただいてい 
るものの中には，マニュアルを読めばすぐ 
に回答が得られるようなものも多々ありま 
す。最低限，マニュアルは熟読しておきま 
しよう。質問はなるべく具体的に機種名， 
システム 構成，必要なら図も入れてこと細 
かに害いてください。また，返信用切手同封 
の質問をよく受けますが，原則として，質 
問には本誌上でお答えすることになってい 
ますのでご了承ください。なお，質問の内 
容について，直接問い合わせることもあり 
ますので，電話番号も明記してくださいね。 
宛先：〒1〇2東京都千代田区 

九段南2 -3-26 井関ビル 
(株）日本 ソフ ト バンク 出版部 
「Oh ! X 質問箱」係 
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このインデックスは，タイトル，注記—— 
筆者名，誌名，月号，ページで構成されて 
います。今月も，新製品の詳細や ， New Z - 
BASIC , C compiler PRO -68 K などの情報が 
たくさん出てきています。 


参考書籍 

I / O 工学社 
ASCII アスキー 
The BASIC 技術評論社 
テクノポリス徳間書店 

パソコンワールドコンピュータワールド • ジャパン 

Hacker 日本文芸社 

POPCOM 小学館 

マイコン電波新聞社 

マイコン BASIC Magazine 電波新聞社 

LOGIN アスキー 


一般 

► SCSI バスの話 

ハードディスクとのインタフェイスなどに用いられて 

いる SCSI バスについて。- Processor's Professor , I / O , 

I 月号. 301 -303 pp . 

► ASCII EXPRESS COMDEX / Fa 11，87 

米国のラスベガスで開催された 「 COMDEX / Fal ド87」の 
概略について。——編集部， ASCII , 丨 月号， I70-I7IPP. 
►御三家 （ NEC , シャープ，富士通）のイメージギャルと 
新製品を比較研究 

文字通り，イメージギャル斉藤由貴，荻野目洋子，南 
野陽子のプロフィールと各社新製品の脱明。スペック表 
付き。——編集部，テクノポリス， I 月号.100— 101 pp . 
►マシン語入門教室 

LIFE ゲームブ□グラムの完成版。——編集部，テクノ 
ポリス， I 月号,129- 134 pp . 

►最新機種性能比較に見る8ビットパソコン 
各社の8ビッ ト パソコン新製品の性能の比較。——編 
集部，マイコン， I 月号， I 6 l - I 7 lpp . 

► 32 ビツトで16ドット並み価格ザイログが Z 380 発表 
ザイログの新しいマイクロブロセッサ Z 380 について。 

——編集部，マイコン.丨月号， I 99 p . 

MZ -80 K / C /1200/700/1500 

MZ -80 K / C /1200 

► FACE PUZZLE 

BASIC SP - 5030で窨かれた思考型ゲーム。すべてのフ 
ェースを 合体させよう。一西村俊二， マイコン BASIC 
Magazine , I 月号， 1 13 pp . 

MZ -700/1500 

► COLOR GAME 

S - BASIC で 害 かれたアクシヨン要索の強いゲーム。家 
宝の7つのクリスタルを取り返せ。——金城智子，マイ 
コン BASIC Magazine , I 月号， 114-115 pp . 

► THE NADU (ザ•ナドウ） 

HuBASIC で書かれたアクシヨンゲーム。勇者が 10 匹の 
ドラゴンを倒すべく立ちあがる。—— TANY 0, マイコン 
BASIC Magazine , I 月 号， 1 16 - 1 17 pp . 

MZ -1500 

► SYMBOL COLOR 

—筆窨 きの変形のような思考型ゲーム。赤いパネルを 
全部緑に変えてしまおう。——まてりある，マイコン 
BASIC Magazine , I 月号， 1 18 - 1 19 pp . 

►誌上公開質問状シャープ ( MZ ) 

MZ - I 500 への家庭用テレビの接統について—— MZ い 
ちばん，マイコン BASIC Magazine , I 月号， 307 p . 


MZ -80 B / 2000 /■ 卿 

MZ -80 B /2000/2500/2800 

►新 • パソコンサンデー活用研究 

プリンタ MZ - IPI 7 のテスト印字モードについて。—— 
高橋雄 一， マイコン， I 月号， 279 p . 

MZ -80 B /2500 
►隕石 ゲーム 

隕石をよけるショートプログラムゲーム。——ドラキ 
ユラ. マイコン BASIC Magazine , I 月号. I 20 p . 

MZ - 2001 )/2500 
^ DEPARTURE 

IZ 002- BASIC で書かれた迷路プログラム。3種のモン 
スターをやっつけてプレゼントを集めよう。——三宅雅 
宏，マイコン BASIC Magazine ， I 月号，121 — 123 pp . 
MZ - 2500 

►新 • バソコンサンデー活用研究 

BASIC の option screen 命令， BSD フアイル長につい 
て。-高橋雄一，マイコン，丨月号，278 — 279 pp . 

► THE TOWER OF PIROPA 

M 25- BASIC で書かれたパズルゲーム。ピロパ塔の宝捜 
しにチヤレンジしよう。—— KEIKUN , マイコン BASIC 
Magazine , I 月号，124- 126 pp . 

MZ -2 B 61 

►スクリーンエディタ 「 VISPj を発売 

C 言語のシンタックスチェック機能付きスクリーンエ 
デイタ 「 VISPj の紹介。——スピリット，ハ•ソコンワール 
ド，丨月号， I 8 IP . 

Xl / turbo/Z 

xi シリーズ 

► XI シリーズのラインナップ Xltwin/XlturboZ II 
新製品 XI twin , XlturboZ II ,ブラック X 68000 とその周 

辺機器の紹介。——編集部，1/0， I 月号，186- 187 pp . 

►ナーバス 

HuBASIC で軎かれた神経衰弱もどきのパズルゲーム。 
—— K . X . C.RYOUAN . UOTA . I / O , I 月号， 209-21 Ipp . 

► NEW Z - BASIC で全機能をコントロールできるように 
なった XlturboZ II 

新発売の XlturboZ II と NEW Z - BASIC の紹介。——編 
集部， ASCII , I 月号，221 -223 pp . 

►ちょっといいプログラム16進キー入カユーティリティ 
XI シリーズのテンキーに16進数を割り当てるプログ 
ラム。ダンプリストの入力に便利。一編集部， ASCII , 

I 月号， 292 p . 

► シャープが PC - Engine 互換機能を持つ XI を発売 
新製品 Xltwin ， 内蔵の HE システムの紹介。——編集 



本書は，生命がどのようにして神経系の中に時 
間と空間を「創りあげていったか j , 時空間に対す 
る認識をどう発展させていったかを，生物学上の 
進化や歴史などの面から考えています。まずァメ 
ーパや蛙の世界観から始まり，立体視，シンポル 
化（言語）能力，視覚聴覚の統合，などの道筋を 
仮説と想像とを交えて推論し，次に歴史的な考察 
へと続きます。その中で，占星術が時間は周期的 
だという考えが強かった時期に発展したものであ 
る（周期的だからこそ，過去のデータにより未来 
を予測できると考えた）ということや，ユークリ 
ッドの第5定理は，ギリシャ人たちが視覚よりも 


触覚を重んじていた証拠だなど，なかなか説得力 
のある論が並んでいます。話はガリレオ，ニュー 
トンから，ついには哺乳類の感覚に相反する奇妙 
な時空間を提唱するまでに進化 （？） したアインシ 
ュタイン，さらには統一理論やビッグバンへと進 
んでいきます（著者は理論物理学者）。副題の「蛙 
からアインシュタインへ j を「ソ ロノく ンから 
HAL 9000へ」と読み換えれば，人工知能論にもなっ 
ていることに気づくでしよう。 （た） 

時間と空間の誕生 

ゲーザ•サモシ著松浦俊輔訳青土社刊 
B 6 判 350ページ 2,400円 003(294)7829 
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部 ， The BASIC , I 月号, I 68 p . 

►「TINY CATERPIj 

HuBASIC(NEW BASIC 不可）で窨かれたショートアクシ 
ョンゲーム。ハートを全部集めちゃおう。——バンプ， 
テクノポリス，丨月号，136 — 137 pp . 

► XI と XlturboZ シリーズの上位機種 

新製品 Xltwin , XlturboZ II の紹介。——編集部.パソ 
コンワールド， I 月号， I 77 p . 

► XI 用 FM 音源プレイヤー“ T 0 NEFEQ + " 

FM 音源ボード CZ -8 BS 丨を BASIC 上から使いこなすプ 
ログラム。——倉持亮 一 ， POPCOM , I 月号， 224-227 PP . 
►山牌 

BASIC で害かれた上海もどきの思考型ゲーム。——本 
城哲浩，マイコン，丨月号，311 -316 pp . 

► XlturboZ II . NEW Z-BASIC の中間コード 

新製品 XlturboZ II に搭載される NEW Z - BASIC の中間 
コードの解析。一高橋雄一.マイコン， I 月号，33 Ip . 
►新製品レポート XI twin , XlturboZ II 
XI と HE システムの合体した Xltwin と NEW Z-BASIC 
を搭載した XlturboZ II の紹介。——編集部，マイコン 
BASIC Magazine , I 月号, 50-5 Ipp . 

► FM 音源11〇番 

XlturboZ II の NEW Z-BASIC と X 68000 の X-BASIC 間の 
ミユージックプログラムの互換性について。——編集部, 
マイコン BASIC Magazine , I 月号， 55 p . 

► AAVG 桃三郎 

桃三郎の一行が;^次郎を生き返らせようと町へ向う。 
アクション/アドベンチヤーモードがある。—— NAMC . 
02，マイコン BASIC Magazine , I 月号，162- 164 pp . 
►誌上公開質問状シャープ（ XI ) 

XIG に付属のジ ョイカー ドについて， XI のマスターデ 
ィスクで BASIC VI . 0をロー ドさせる方法について，ディ 
スプレイ CZ -880 D と X 68000 の接続について。——多田太 
郎，マイコン BASIC Magazine , I 月号， 308 p . 

► Hardware Review 注目，注目！ XI と HE システムが 
合体した XI の新機種の発売だ 

XI に HE システムを組み込んだ Xltwin と，低価格の XI 
turboZlI の紹介。——編集部. LOGIN , I 月号， 454 p . 

XI turbo シリーズ 
► ミニファックスで画像入力を！ 

NTT のミニファックスをイメージスキヤナに改造して 

取り入れたデータを Xlturbo に取りこむ。- Bug man , 

I / O . I 月号. 1 48 -153 pp . 

► Jump Up Jelly 

X け urbo 専用アクションゲーム。 Jelly を操り宝石を集 
めよう。——島博. P 0 PC 0 M , I 月号，269- 272 pp . 
►アナログ画面ロー ド&セーブプログラム 
XlturboZ 用のテレビ • ビデオなどから入力したアナロ 
グ RGB データをフロッピーに保存/再生を行うプログラ 


ム。-佐藤英夫，マイコン， I 月号， 372 —375 pp . 

►誌上公開質問状シャープ( XI ) 

Xlturbo model 20の FDD 增設方法について。——多田 
太郎，マイコン BASIC Magazine , 丨月号. 308 p . 

X 的 000 

► XDSKC 0 PY 

DISKC 0 PY コマンドを高速化するためのもので，タイ 

プの異なるディスクへのコビーを可能とするもの。- 

市原昌文， I / O , 丨月号，225 — 229 pp . 

►イーストが X 68000 用に統合型 AV ソフトを発売 
X 68000 用のグラフィックエディタやミュージックエ 
ディタ，ボイスエディタなどを統合した，新製品の AV ソ 
フト Hyper UD について。——イースト， ASCII , I 月号, 
I 65 p . 

► 特殊任務遂行シミュレーション COUNTER INTELLI 
GENCE (カウンタインテリジェンス） 

元グリーンベレー大尉が原作という，実戦的な戦鬪シ 

ミュレーシヨンゲー厶。-拓植久麽/ Jun . project , 

ASCII , I 月号,174- 179 pp . 

► Computer Graphics Animation 第 6 回 

画像ファイルフォーマットの説明とその決定方法，画 
面圧縮法について。——满田成紀， ASCII , I 月号，255 
一 260 pp . 

► X 68000 WORK SHOP 

C compiler PRO -68 K , WINDEX の紹介。——編集部/柴 
田文彦， ASCII , I 月号，281-286 • 361 -367 pp . 

► X 68000 クロスリファレンサ 

アセンブリ言語で窨かれた高速クロスリファレンサに 
ついて。——編集部， ASCII , I 月号. 289-290 - 370-3 

80 pp . 

►サンプリング音源ってなんだ!？ X 68000 のサンプリ 
ング音源を使って自分の声でおしゃべりさせよう！ 
サンプリング音源， ADPCM について。——編集部，テ 
クノポリス.丨月号，86 -87 pp . 

►ハリァーを無敵に！ だれでも最終面を見れるぞ！ 

スペースハリアーを無軸モードに改造する。-村上 

惠亮，テクノポリス，丨月号， I 06 p . 

► X 68000 の AV 編集ソフト 「Hyper UDj 
グラフィック機能，ミュージック機能，サウンド機能 

などを統合した Hyper UD について。-イースト，パソ 

コンワールド.丨月号， I 79 p . 

► X 68000 の徹底活用 

R 0 M - DISK と C compiler PRO -68 K について。—— P . E . C . 
オリジナル Macoto , Hacker , 丨月号，63 -68 pp . 

► X 68000 マシン語入門単純加減命令 

マイクロプロセッサ68000のマシン語のうち， add と 
sub のインストラクシヨンについて。——高橋雄一，マイ 


コン， I 月号， 207-2 l 2 pp . 

► MUSIC PRO -68 K 実力診断 

ミュージック エディタ MUSIC PRO -68 K の概要。 —— 
吉沢正敏，マイコン， I 月号，213 — 216 pp . 

►なんでも Q&A X I / X Iturbo / X 68000シリー ズ編 
X 68000 でプリンタに 出力させる 方法について。——シ 
ャープ，マイコン， I 月号， 4 l 2 p . 

► FORCE 

ブロックくずしもどきの アクションゲーム。マウスを 
使ってプル（自機）を操作し仲間を救出し よう。一秋 
日誠，マイコン BASIC Magazine , 丨月 号， 165- 167 pp . 

► XANADU シナリオ II オープニング•テーマ 
XANADU シナリオ II のオープニングテーマを アレンジ 

したミュージックブログラム。 —— Yu - You , マイコン 
BASIC Magazine , I 月号,丨72- 丨 75 pp . 

► XANADU シナリオ II レベル10他 

XANADU シナリオ II のミ ュージックプログラム。—— 
川野俊充，マイコン BASIC Magazine , I 月号，184- 185 pp . 

► X 68000 通信 

新作ゲームソフトの速報のほか， クロス リンク PRO -68 
K , X 68000 用 XI エミュレータに ついての情報。——編集 
部， LOGIN , I 月号，338 - 343 pp . 

ポケコン 

PC -1245 

► ROCKER SPECIAL 

岩をつぶして荷物をドアまで運ぼう。効果音付きの ゲー 

厶。 - 起辞，マイコン BASIC Magazine , I 月号， I 70 p . 

PC -1350 

► SUPER DJSE 

楽しいダイスゲーム。あなたも，サイコロ ふって一獲 

千金。-後藤和之，1/0， I 月号，254 - 255 pp . 

►誌上公開質問状 シャープ（ボケ コン） 

PC - I 350 の表示位置の指定方法に ついて。—— IAM , マ 
イコン BASIC Magazine , I 月号， 308 p . 

PC-1360/60K 

►誌上公開質問状シャープ（ポケ コン） 

PC -1360/60 K と PC - 1350のソフト 互換性について。—— 
IAM , マイコン BASIC Magazine , I 月 号， 307 -308 pp . 
PC -1445 

► PC - I 445 CASL 入門 講座 

アセンブリ言語 CASL の 初心者向け講座。——塚田洋 
—.マイコン， I 月 号， 382 -390 pp . 

PC -1500 

►誌上 公開質問状シャープ（ボケコン） 

PC - 1500 に CE - I 6 I を 接続した際のメモリマップについ 
ての解説。 一 IAM , マイコン BASIC Magazine . I 月号， 
307 p . 


バソコンユーザのための C 言語入門 

本害は，これから C 言語を始めようとするパソ 
コンユーザーに向けて書かれた入門害。 BASIC と 
対比させながら. C 言語の基本的な文法，よく使 
われる構文，おもなライブラリ関数とその使い方 
が説明されており，実際のプログラムの提示とそ 
の簡潔な記述によってプログラミングの概念が示 
されている。著者はまた最後に， C 言語のバソコ 
ン市場における位置づけと，さらに先へ進もうと 
する人のための方途にも簡単に触れている。 

R . J . トレイスター著共立出版刊 

B 5 判変型 105ページ 1,900円 003(947)251 1 



メンタル，スペース 

副題の「自然言語理解の認知インターフヱイス」 
が示すとおり，本害は人間の頭脳活動を自然言語 
を通して推察しようとする専門害のひとつである。 
著者は「言語表現によって心の中に作り出される 
ものはなにか」を問題とし，「心の中に作られるも 
の j , すなわちメンタル • スペース という独自のモ 
デルを想定した。認知科学，言語学，心理学，情 
報科学，人工知能学などの分野にかかわる人にと 
って興味深い丨冊と思われる。 

ジル•フォコニエ著白水社刊 

A 5 判変型284ページ3,200円 G 03 ( 291 ) 7 B 11 
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NEW PRODUCTS 


オフイスでの多量情報処理に最適 

光ファイルシステム QD - 5000 

シャープ 


QD -5000 



シャープは，光ファイルシステム QD -50 
00を昭和62年12月から発売開始した。 

これは，膨大な量の情報を効率よく整理 • 
検索するための電子ファイリング システム 
のひとつ。 

QD - 5000のフアイリング.検索機能は大 
き〈分けて2つある。まず，あらかじめ名 
前をつけて分類したホルダに情報を入れ， 
検索もそのホルダ名で行うキャビネット型 
フアイリング機能。もうひとつはキーワー 
ド体系やフアイリング構造を自分で作成す 
るキーワード型フアイリング機能。このキ 
ーワード型では，登録したい資料のキーワ 
ード欄をマークした OMR (光学式 マーク 読 
み取り装置）シートをスキャナで読み取り， 
続いてその資料を読み込ませることによつ 
て大量のファイルでも簡単に入力を行うこ 
とができる。 

また，自動識別混在処理機能で，文字と 
写真の混在する書類も1回の読み取りで鮮明 
な入力ができる。 

さらに，キーワードで シソーラス （類義 
語）体系を作成すれば，検索の際に目的の 
キーワードを含むより広範囲のキーワード 
から行うことも可能になる。 

画像編集機能では，拡大/縮小，移動，合 
成，回転，網かけ，文字追記などができて 


書類作成に役立てられる。 

光デイスタの記憶容量は 600 M バイト， 
1782 X 1260 ドツトの縦型15 イ ンチ モノクロ 
デイ スプレイを採用。標準システム価格は 
4,800,000円より 0 
く問い合わせ先〉 

シャープ ㈱ ©06(621)1221,03(260)1161 


MZ - 2800用イメージスキャナシリーズ 

八ンデイ .COPY KIT/ 
カラーイメージエディタ 

シャープ 


シャープは， MZ - 2800用の ハンディ .CO 
PY KIT (49,800円）を発売した。このキッ 

卜には，モノクロハンド スキャナ， 専用シ 
リアルインタフェイスボード， AC アダプタ 
などの システム 機器と，スキャナ用画像取 
り込み編集ソフトであるカラーイメージエ 
ディタが含まれる。 

ハンドスキャナの読み取り幅は105關でハ 
ガキサイズが一度に取り込める。また，読 
み取り原稿の種類(文字，写真など）によっ 
て読み取りモードが4つに切り換えられ， 
濃度調節も可能。画面サイズスイッチでは 
標準と％読み取りの切り換えもできる。 

同梱の カラー イメージェディタは， モノ 
クロ/カラーの 2 つのエディタ モードを持ち， 
描画編集はマウスで操作する。重ね描きに 
便利な透明色指定登録機能や，最大表示画 
面を縮小して見られるレイアウト表示機能 
などを持ち，ペンスタイルの設定や文字修 
飾もできる。 

く問い合わせ先〉 

シャープ ㈱ S 06(621)1221, 03(260)1161 



ハンデイ • COPY KIT 
ハンドスキャナ 


書院シリーズ用通電転写式プリンタ 

WD -02 HP 

シャープ 

日本語ワープロ書院シリーズの WD -5500 
以上の機種に対応する通電転写式プリンタ 
WD -02 HP (220, 000円）が，シャープから発 
売された。 

これは，従来の熱転写方式よりも熱が効 
率よく伝わり，より高速で高品位の印字が 
できるというもの。 

40 X 40， 32 X 32 ドットの2種類の印字で， 
印字幅は15 .3 インチ。用紙サイズはハガキ 
から A 3 横まで。 

く問い合わせ先〉 

シャープ ㈱ 006(621)1221,03(261)1161 
WD -02 HP 



プリンタ新機種 

エプソン HG- 200 CV2550 
VP-500. AP-5D0 

セイコーエプソン 

セイコーェプソンからプリンタ4機種が 
新発売された。 

まず，インクジェットプリンタの2機種 
は，この方式として初めて20万円を切った 
HG - 2000 (196, 000円）と，高速印字を実現 
した HG -2550(256,000 円）。両機種とも印字 
幅は漢字90桁， ANK 136 桁で，印字速度は 
HG - 2000で漢字140字/秒， HG -2550 では同 
じく 220字/秒。ォプションで X 1/ X 68000対 
応力ートリッジ HGXC (10, 000円）や漢字ゴ 
シックフォントカートリッジ ’ PRFC 1 (15,0 
〇〇円），カットシートフイーダ（シングルビ 
ン25,000円とダブルビン40,000円）なども 
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用意されている。インクカートリッジのリ 
フイルは3,000円。 

ESC / P 24- J 84 コントロールコードに準拠 
している。 

次に，80桁ドットインパクトプリンタ V 
P -500(85, 000円）は，印字速度にして漢字67 
字/秒，コントロールコードは同じく ESC / 
P 24- J 84 に準拠。ォプションで漢字ゴシック 
フォントカートリッジのほかにボストカー 
ドフィーダ VP -500 PCF (15, 000円）なども 
用意されている。 

また，24ドット熱転写カラー漢字プリン 
夕 AP -500(72, 800円）は，印字速度にして 
漢字80字/秒， ANK 120/ 秒。漢字ゴシック 
フォントカートリッジ AP -500 FC 1(15, 000 
円）ほか，ハガキから B 4 縦までの単票用紙 
が使用できるカットシートフイーダ AP -50 


0 CSF (20 ，000円 ） や， X 1 / X 68000対応 ROM 
カプセル AP -500 XRC (3,500円）などのオプ 
ションも用意されている。リボンカートリ 
ツジは黒1，200円，カラー各1，500円。 

く問い合わせ先〉 

セイコーエプソン ㈱ 00266(52)3131 

ファクシミリ機能つきワープロ 

マイリポート JP 90 FX 

リコー 

リ コーから 発売された パーソナル ワープ 
口， マイリポート JP 90 FX (138,000円）は， 
モジュラー端子で電話機に接続し，ファタ 
シミリ通信ができる。ワープロで作成した 
文書や標準装備のハンディリーダで読み取 
ったイラストなどを送信でき，また受信時 
は，フロッピーデイスタに自動受信するこ 
JP 90 FX 



とも可能。 

最大200字までの自動変換方式で，基本辞 
書は57,650語。 JIS 第1，第2水準漢字とィラ 
スト文字310種類を標準で装備。また，棒/帯 
/ 折れ線/円などのダラフ作成機能や，作図に 
便利な拡大/回転/移動/複写などの H 形編集 
機能，四則演算/関数計算，表作成機能，住 
所録管理機能もある。 

チルト式液晶ディスプレイには24ドット 
文字で26字 X 9行が表示できる。 3.5 インチ 
FDD 1 基搭載。重量約 4.6 kg 。 

オプションとして，オートシートフィー 
ダ (18, 000円)，毛筆書体(50,000円)があり， 
インクリボンは黒，カラー各色ともに700円。 
フロッピーディスクは10枚で16,000円。 

く問い合わせ先〉 

㈱ リコー 003(479)3014 

ワープロ2機種 

815 JWP /815 DJWP 

富士ゼロックス 

富士ゼロックスは，日本語ワープロ2機種 
815 JWP ，815 DJWP を発売。 815 JWPa 3.5 
インチ FDD を2基搭載して198,000円，815 
DJWP は 10 M バイトのハードディスタと 3.5 
インチ FDD 1 基を標準装備し，448,000円。 




地上げとラップトップ 


「ラ ツフ 。トツフ。」パソコン，つまりフタの 
裏側が液晶やプラズマディスプレイになっ 
ているあの携帯型パソコンカ';,本当に人気 
を集めているようだ。これまではなにをや 
ってもだめだった東芝の J - 3100の人気は本 
物だし，セイコーエプソンの98互換機であ 
る PC -286 L も，日本 IBM の IBM 5535 も，日 
本電気の PC -98 LT も売れている。 

さて，これまでシャープが PC - 5000を出 
したときも，富士通が FMl 6; r を発売した 
ときも，ポータブルパソコンの市場は盛り 
上がらなかったのに，今回成功した理由は 
なんだろうか？もちろん，その要因とし 
て機能的な側面を指摘する人は多い。ディ 
ス プレイカ ? 400ラインになり，ハードデ イス 
クまで内蔵できる卓上型機種以上の性能を 
持ったラップトップマシンが出てきたのは 
確かに今回が初めてだ。しかも卓上型機種 
とのソフトやメディアの互換性もある。 
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そうした要因とは別にここでは社 
会的な側面から考えてみよう。現在，都心 
における社会的な問題は土地価格の急騰だ。 
家を買うのが難しいのと同様に，広々とし 
たオフィスを借りるのは至難の技になって 

きつつある 0 

そんな折に机1台が占拠される卓上型パ 
ソコンなど買うことはできない。だがラッ 
プトッ フ 。機なら スペースを 取られる心配も 
なく，便利に使える。もちろんラップトップ 
では十分に用が足せない場合も当然あるの 
だが，すでに PC -9801 や IBM 5560 などの卓 
上型 パソコンカ?， ある程度までは オフィス 
に入っていて，これは2台目，3台目以降の 
場合の議論であるからそれでいいのである。 

同様の議論は，自宅で パソコンを 使う才 
ジサンたち についても 当てはまるようだ。 
家の一角を占拠してしまうと奥さんに叱ら 
れるが，ラップトップ パソコンなら 使いた 
いときだけ引っ張り出してきて使うことが 
できる。 


つまり，このラップトップ人気は地上げ 
屋が作った，といっていいのではなかろう 
か？となれば，それはどれくらい続くだ 
ろう。 


已ビットマシンは7 


一方， PC -8801 用ソフトの荷動きが止ま 
っているらしい。 ハードの ほうも，これま 
でほど売れなくなったようだ。88からして 
そうだから他の8ビットマシンも軒並み似た 
ような状況で， XI にしても昨秋なんとゲー 
ム機 HE システムを内蔵して新登場という新 
たな戦法に出ている。 

なぜ88が売れなくなったのか？ これを 
少し考えてみよう。 

1) どうせ本体だけで20万円近くかかるな 
らば，98のほうがいい。 

2) 文書作成ならワープロ専用機のほうが 
いい。 事実，機能は遙かに 高い。 

3) 同様にゲームをするならゲーム機のほ 
うがいい 0 最近は ロール プレイングゲー 

















8 I 5 DJWP 


両機種とも12インチ CRT を採用，最大60 
字までの全文一括変換が可能で，辞書容量 
は基本語63,000語， JIS 第1，第2水準漢字を 
標準装備している。 

また，いろいろな演算機能，表計算機能 
のほかに17種類の基本図形を持っているの 
で作図の際に便利。グラフ機能も，円/棒/ 
折れ線/レーダーチャートなど8種類が揃っ 
ている。 

別売りのプリンタは， B 4 縦サイズに対応 
の JP 45 A (150,000円）と A 3 縦対応の JP 45 B 
(2 50,000 Pj ) の2種類。 

オプションでゴシック フォント（15,000 
円），毛筆フォント （15, 000円）やイメージ 
入力装置 (34 ,800円）も用意されている。 

く問い合わせ先〉 

富士ゼロックス ㈱ S 03 (585) 3211 


ム だってで きるし 0 

4) 88向け話題のソフトが今年は1本もなく， 

盛り上がりに欠けた。 

こんなところだろうか？ 価格問題につ 
いては以前から指摘されてきたことである 
が， 88と98はディスプレイとプリンタまで 
購入すると，結局は本体部分での差しか出 
てこない。 したがってあまり88の 割安 感は 
ない。 しかも16ビット パソコンの ラップ ト 
ップ機が30万円前後で入手できるようにな 
っ てきており，なおさら88の割安感がなく 
なってきているわけだ。 

ワープロ専用機のパワーアップも最近目 
覚ましい。図形•画像編集機能はマウスに 
似た ィ メージリーダを使うことでもかなり 
のこと ができるし，文書編集機能も16ビッ 
トパソコ ン版 ワープロ ソフトよりももはや 
上回っている。もちろん文字品位も上。こ 
れで価格が12 〜 15万円だからもはや勝負にな 
らない。ゲーム機も同様で， ファミコン だ 
けでなく PC エンジンまで登場するに至り， 


BOOK 


月刊マイコン別冊 X 68000 活用研究 I 

電波新聞社 

月刊マイコン誌の別册として， 『 X 68000 活 
用研究 II 』が発売され た。 

副題が 「 X - BASIC マスター編」とされて 
いるとおり， 今回の 活用研究は X - BASIC 。 
一般の BASIC との 遠い から プログラミング 
の基礎，標準関数/外部関数などの解説へと 
続き，また 「 X - BASIC で役立つ外部定義関 
数•事例集」という項目もある。 

『月刊マイコン別册 X 68000 活用研究 II 』 
宮原哲也/深沢幸 三 共著诳波节 / f 聞社刊 
B 5 判 313ページ2,000円 
く問い合わせ先〉 

㈱ 電波新聞社 S 03 (445)6111 



選択肢は増える一方。価格は比較すべくも 
ない。 

こう考えていくと，今年は8ビットパソコ 
ンにとって正念場となりそうだ。 

ゲー厶ソフトの停滞_ 

昨年の ゲーム 市場はとうとう大 ホーム ラ 
ン級の作品は出ずじまいだった。せいぜい 
2塁打クラスの作品として，「上海」，「ぎゅわ 
んぶらあ自己中心派」，「大戦略 II 「信長の 
野望全•国•版」， 「 ULTIMA IV 」，そして年 
末に登場した 「 Y ’ s (イース）」くらい。 

ここで傾向を分析すると，1985年から19 
86 年にかけて大 ブームを 巻き起こした ロー 
ル プレイ ングゲームが まったく勢いをなく 
し，代わって シミュレーションが 定着，さ 
らに古典 ゲームが 健闘したというところ。 
さす力 ？ に， RPG が 飽きられてきて， 「ドラ 
ゴンタエスト2」以来，パソコンゲームの牙 
城は RPG だという定説が崩れたことも大き 


INFORMATION 


1000名にプレゼントが当たる 

ありがた やシールキャンペーン 

日本ソフトバンク 

新年はどんなソフトを買おうかと考えて 
いる皆さんにお知らせ。 

新作ゲームソフトに貼られている日本ソ 
フトバンクの名入り三角シールを送ると， 
抽選で1000名にいろいろプレゼントが当た 
る。賞品は，ディズニーランドパスポート 
券，マクドナルドクーポン券，図書券，ソ 
フトメーカーグッズなど。 

応募方法は，官製ハガキにシールを1枚貼 
り，住所 • 氏名 • 年齢 • 電話番号を明記 I ， 
希望する赏品をひとつ書いて下の宛先へ。 
〒102 東京都千代田区九段南 2-3-14 
靖国九段南ビル 2 F 

㈱ 日本ソフトバンクキャンペーン事務局 
締め切りは昭和63年3月31日（当日消印有効)。 
詳しくはソフトショップ店頭ポスターなど 
を参照のこと。 

く問い合わせ先〉 

㈱ 日本ソフトバンクキャンペーン事務局 
003 (237)0965 

ラップトップ人気 1刪 -2 

大ヒットが出ない，という現状を打破す 
るには， RPG でもなく シミュレーションで 
もない新しい ジャンルのゲームの 登場が必 
要だろう。現在のメーカーにはどれほど期 
待できるだろうか。 

OS /2 情報_ 

米 IBM 社が昨年12月4 Id に予定より3力月 
以上早く OS /2 を出荷開始した。一方，日本で 
は日本 IBM が3月末に出荷し，これを日本電 
気や富士通が4〜5月に出荷して追う，とい 
う格好 0 MS - DOS のリプレースが 早い か遅 
いかはアプリ ケー ショ ンソフ トがどの程度 
発売されるかにかかっている力 ? ，日本 IBM 
と マイクロソフト は相前後して ソフトハウ 
ス向けに 「デベロッパー ズ キット」という 
開発者向けバージョンを用意，昨年末に配 
り始めた。なお， OS /2 のうち，ウィンドウマ 
ネージャーは当初より半年出荷が遅れ，日 
本では9月からの発売になるそうだ。 

( K . T .) 

ペンギン 情報 コーナー 1〇1 



























— FROM READERS TO THE EDITOR— 

楽しいクリスマス，お正月，そして冬休 スタートです。皆さんは今年はどんな年 

みもあっという間に終わってしまい，今 になることを願っているのでしょうか。 

月の発売号から本当の意味で新しい年の 今年の抱負なども聞かせてほしいですね。 


ったのですが，いつの間にかミュージック 
テープに化けてしまって，それが数年間も 
本人の意思とはまったく反対に続いていた 
りします。 （ N ) 

♦あの祝一平が帰ってきた。独断と偏見という 
2つの剣を両手に，背中にはその筋マークを輝 
かせ復帰した。彼はひたすら自己主張に走るだ 
ろう。怒りを爆発させていくだろう。そんな彼 
を，私は鍋のなかにいるゆでダコを見るように 
温かい目で見守ってやろう。 

谷口 勝彦 （18) 長崎県 
ずいぶんと凄いフアンレターで すね。 この 
ようなセンスのフアンをたくさん抱えてい 
る祝氏は本当に幸せ者です。 

♦体操のおに一さん，今度は X 68000 で体操して 
ほしい。 Z 80 は体操のおに一さんのおかげで学ん 
だものである。 北原弘之 （21) 東京都 


♦いよいよというか，とうとうというのか 「0 h ! 
X 」を手にした。幸い Oh ! CZ SPECIAL のほ力、は 
いつもの r Oh ! MZj とあまり変わらない。ウ 
ン，これでいいんだ。ところで表紙のタイトル 
ロゴの上に， MZ を最初に持ってきているのは偉 
い。 平村雅之 （18) 東京都 

誌名は変われど中身は従来どおり，これは 
皆さんに地初からお約束していたことです 
からね。でもこれからの Oh ! X を作り上げ 
ていく作業が課題として残されているわけ 
ですから ， MZ ユーザーの皆さんも協力し 
てくださいね。 

♦ 12 月号は久しぶりの 「0 h ! CZ 」 でしたね 。XI 
の歴史を振り返ってみると，実に息の長いこと 
に改めて感心してしまいます。 

矢澤賢一郎 （19) 神奈川県 

♦ Xltwin 

こんなの買ったら 

ゲーム狂 （字余り） 

竹藪薫之 （15) 北海道 
♦シャープさん，どうしてくれるんだ。 NEC 派 
の友人に PC エンジンの悪口を思いっきリ言っ 
ていたら，いきなり Xltwin を出しちやって。 

岩崎晃也 （15) 大阪府 
Xltwin が編集室にやってきた初日 ， THE 
功夫をなんだかんだといいながらも，みん 
なで盛り上がっていたのは事実。今度はフ 
アミコンかセガ mldH をなんて声も聞こえて 
いたような . 。 

♦ I 丨月22日に Z II をさっそく触ってきました。 
荒忮の40%色バレットや強力な64色2画面モー 

ドも凄かったが，やはりデモの荻野目洋子が 最 
高だった。ネガ/ポジ変換なんかは他社マシンの 
比じやない。そしてなんといってもかわいかっ 
た。よし ， Z II を買おっと（できたらね)。 

高木智之 （16) 神奈川県 
♦ついにき たか「 X は urboZ II 」。まあダブル Z で 
なかった分まだましといえそうだが，いや，待 
てよ。 II のあとは， IH だろ，そのあと Z ときた 
ら……うわあ，いやだ，それだけは絶対いやだ。 

「Z 11(ゼッツー） j となったからには，やっぱり 


次は 「MACH (マッハ）」 ですよ，これなら IV まで 
出せるしね。私はやっぱりカワサキ派です。 

大津和之 （18) 福岡県 
MACH とっけるとやはり2氕简3本マフラ 
一になるのかな。そのほかに3氕简4本マ 
フラーで，やたら敢いだけの GT 68 なんて 
いうのも出たら笑えるんだけどなあ。 

♦お恥ずかしい話ですが英語は大の苦手で，特 
にヒアリングはもうメロメロ。それでも咋年の 
入社時から一念発起し，毎朝ラジオ英会話をテ 
—ブに取り夜はまた聴くということを繰り返し 
ている（最近は仕事が忙しくずいぶん手抜きに 
なっているが）が，一向に上達していない。そ 
んななかで「英会話とフアジイコンピュータ」 
の勝本信氏の聴取率 （？） には感心しました。ラ 
ジオ英会話を聴くだけで上達しようというのは 
虫がよすぎますよね。 JEFF フアジイコンピュー 
夕の話は聴きました 。 Oh ! X でも取り上げられ 
るんだから，これからもあきらめないでラジオ 
英会話を聴き続けようと思います。 

大嶋靖浩 （25) 栃木県 
ほんと•に英会話というのは根気を必要とし 
ますね。私なんぞはウォークマンを H った 
理由がこのテープを毎日電弗で聴くためだ 


♦「0 h ! X 創刊おめでとうございます」と，平気 
でいえる私は， PC & FM ユーザーです。 

岩田浩 （15) 神奈川県 
♦僕の死んでいたパソコン，そう PAS 0 PIA 7 に新 
しい生命の息吹を与えてくれた Oh ! X に感謝 
感激です。 高木孝幸 （19) 千葉県 

♦ PC ユーザー でありながら12月号の Oh ! CZ 
SPECIAL を読んで感動しました。5年間もハー 
ドを変更をしないというところが，特に気に入 
ってしまいました。森田俊二 （19) 兵庫県 
別に Oh ! X はシャープ ユーザー ばかりじ や 
ありませんから，どしどし遠慮なくこれか 
らも参加してくださいね。 

♦東京バソコン購入アドベンチャーはとてもよ 
かった，順を追ってやっているうちに笑いが止 
まらなくなってしまいます。特に No . 42の X - 
0 NE のところと秋葉原の客引きのところは圧 
巻である。私も友人といっしょに体験しました。 

前田克明 （17) 東京都 
♦私はなぜか，東京パソコン購入アドベンチャ 
一で X 68000 が買えない。 

金戸俊道 （15) 富山県 
ずいぶんあのアドベンチャーは人気が高か 
つたようです。今度の新製品が出るまでに， 
次のバージョンアップも検討しておきまし 
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一厶でも無理のないシナリオ。場面ごとの最適 
な BGM 。 そして美しいグラフィック。もう最 
高。もう一度やってみようという気にしてくれ 
る。 水谷聡 （17) 愛知県 

そうでしょ，やっぱりジーザスは映画して 
るんです。だから今月は中森章氏にパンフ 
レットを fll 意してもらったんですよ。 
♦久しぶりにゲームソフトを買いました。マン 
ハッタン•レクイエムです。 こいつは 休みの日 
にじっくリやるに限ると，丨週間後の休みの日 
を待ち続けました。そして丨週間後，さあやろ 
うと思ったら，あの黒い手帳は，奥さんの手に 
よってビッシリと害き込まれ，点数はほとんど 
100点になっておりました。合掌。 

中島孝典 （28) 新潟県 
♦ 「私はこうしてカミさんを説得した」なんて 
生々しい X 68000 ユーザーの声を特集してくだ 
さい。そしたらさりげなくそのページを開いて， 
テーブルの見えるところに置いておきますから。 

伊藤秀樹 （29) 愛知県 

♦ 2年前に3人目の男の子が誕生して，以来マシ 

ンに触れる機会が少なくなったにもかかわらず， 
貴重な時間を精いっぱい費やして S - OS を入力 
した。しかし男一生の仕事を控えてとうとう我 
が愛機は箱入り娘になってしまいました。新居 
の完成間近，3人の子持ちとしては，ますます 
頑張らなくっちゃ。そうして，このような状態 
もあと少しだと信じてジッと耐えている昨今な 
のである。 小島一衛 （39) 新潟県 

♦うちの女房殿，いま パソコンに 夢中のようで 
す。といっても「上海」なんですけどね。あ一， 
あれを買ってからもう丨力月も占領されっ放し。 
私のもとにあの Xlturbo が返ってくるのはいつ 
の日のことでしょう力、。 

祐成好規 （27) 東京都 
ここまで続けて説むといじましいまでに男 
の哀愁が感じられてしまって，所带持ちの 
呰さんのご逬労が身に染みます。 

♦ Oh ! X ? 時代は変わってしまったのか。私 
は待った，そうして準備してきた。周辺機器を 
揃え，16ビットポードまでも付けた。パソコンテ 
レビ？ 要するに家庭用テレビとしても，デイ 


スプレイとしても使えるということなのか。そ 
れがさまざまに変化し，いまでは Z タイプまで 
出ている。私はいま MZ - 2000用ターミナル PRO 
を作ろうとしているが，それが無茶だというの 

だろう力 . 。「先生，ブッブッいってないで， 

早く授業を始めてください」。 

小岩寿之 （29) 埼玉県 
ほんと，授業中に先生がハガキのネタ考え 
るのもおよしになったほうがいいのではと， 
思わず生徒さんのことを思って心配してし 
まいます。 

♦ミック •ジャガーのソロ アルバム 「PRIMITI 
VE COOLj を聞いてみて，がっかり。あのロー 
リング•ストーンズ時代の燃えるようなサウン 
ドはどこへいったのだろう。こんなことを窨く 
とファンの人に申し訳ないが，少なくとも僕は 
そう感じた。土曜の夜，カーステレオで聞きた 
くなるような音楽を，もう一度作ってほしいも 
のです。 浜田憲一 （18) 埼玉県 

でも， MTV のプロモーションビデオなん 
か観ていると，まだまだあの不 A 中年は健 
在のようですよ。 

♦出ない一，ディスクが出ないよ一。先日，魔 
神宮を買ってきて遊んでいたのですが，やめよ 
うと思ってディスクを出そうとしたら，出ない 
一。仕方がないので強制エジ x クト。毎回，毎 
回後ろのボタンを押すなんて……おいおい。 

岡田真二 （28) 福岡県 
岡 m さんのハガキを説んでいると，今月の 
SOFTOUCH の記事のなかにも出てくる X 
68000の落泔伶屯刺す•を思い出して笑ってし 
まいました。 

♦みかんが豊作，みかんがうまい。みかんは安 
い。おかげで私はみかんを食って生き延びでお 
ります。 平田稔 （19) 岡山県 

朝起きたらポンジュースになっていた，な 
んてことだけにはならないように何事もほ 
どほどに。 

♦ 丨泊2日オール100円というレンタルビデオ 
ショップがあるが，見たいと思うのがすベてレ 
ンタル中なのでほとんど役に立ってない。 

增田慎一 （18) 東京都 


よフか。 

♦丨年間妻を説得し続け，ようやく XlturboZ を 
購入した2日後， Oh ! X に ZII の記事。なんとい 
うタイミングの悪さ。価格差4万円 + NEWZ - 
BASICI 8,800円+拡張スロット丨個分の損失は 
実にシヨックであった。 

藤本信男 （27) 東京都 
そ n じゃあ，もう1年説得して今度は X 68 
000をねだってみるというのはいかがでしょ 
うね0 

♦やたら「イース」が盛り上がっているので「い 
っちょ，俺もやったるかい j てなもんで始めて 
しまった。金角，銀角にはてこずったものの， 
この私も感動してしまった。ついでにイースの 
ミュージックカセットまで買ってしまった（ち 
なみに草原の テー マのアレンジ バージヨ ンがお 
勧め）。さ一て，次は「ソーサリアン」だ。木屋さん， 
XI 版出しますよね。田中義彦 （24) 東京都 
田中君のリクエストにお応えして，米月は 
イースの音楽プログラムの登場です。 

♦つ，ついに あの「オービット HI 」 で60面まで 
いってしまった。5時間かかって惑星マルダー 
を5回もやっつけてしまった。ここまでくるの 
に2年，長い長い年月でした。あれほど憎らし 
かった敵キャラが，いまはかわいくてしょうが 
ない。しばらく敵キャラとさよならして，また 
腕が鈍ったら挑戦してやる。 

松林勝志 （22) 山梨県 
ここまでくると，そこまで遊ばせてくれた 
オービット III を誉めるべきか，松林さんの 
執念を讚えるべきか……う一ん，悩んでし 
まいそう。とにかくどっちも偉い！ 
♦なんでプロ野球 FAN が turbo 専用なんだ。ル 
ク ソール も ガンダーラ も アル カノイドも ジーザ 
スもみんなそうじゃないか。このごろそういっ 
たソフトが多くなっているような気がするが， 
全部 XI でもできないことはない 。XI ガンバレ 
(野球ゲームを私はやりたい)。 

荒木幸 （17) 長崎県 
♦別に編集室に言ってもしょうがないことだと 
思うけど，僕のグチを聞いてください。最近の 
ソフトハウスは Xlturbo 専用のゲームばかり出 
していると思う。せっかく XI を持っているのに 
できないのはつらい。機能的な問題もあること 
は十分わかるけれど，その機能の限界を越えて 
こそ真のプログラマーやソフトハウスといえる 
のだ。日本フアルコムを見習え。どんなソフト 
を出してもちゃんと XI でも使えるようになっ 
ているではないか。これからのゲームソフトは 
こうでなければならん。ご静聴ありがとうござ 
いました。 門馬直人 （14) 埼玉県 

そのとおり，荒木君や門馬岩の总兒はごも 
っとも0せめてスタークラフトさんの Mig 
ht & Magic みたいに，共用じゃなくても両 
方同時発売くらいのことはソフトハウスさ 
んも考えてほしいなあ。 

♦いい映画を観ていると，まだ終わらないで続 
いてほしいと思うことがある。「ジーザス」をや 
っているとふとそんな気になった n パソコンゲ 
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受験票と筆箱と Oh ! X を持って大学受験会場 
へ。教室で堂々と Oh !) (を広げて 「0 h ! XI 
twin 」，「0 h ! XlturboZ II j と叫んでいました。 
そのときのまわりの目……。えっ，結果？もちろ 
んめでたく私は合格通知を手にしたのでありま 
した。 安江輝 （17) 長野県 

おっと，ついに合格第1号のハガキだね。 
さあ今月は共通1次も始まるから，受験生 
のみんな体調を整えてベストを尽くせ！ 

♦ 12月号 microOdyssey の （U ) さんへ。検電ドラ 

イバーを使うと極性がわかります。ネオンラン 
プのつくほうがホット，つかないほうがアース 
です。検電ドライバーは400円くらいで売ってい 
ます。 玉木俊秀 （19) 鳥取県 

♦ ( U ) さん，コンセントをよく見てください。 

左側の穴が長いでしよ，そちらがアースにつな 
がっています。 野沢隆 （15) 山梨県 

コンセントの差し方についてたくさんのお 
ハガキありがとう。いちばん多かったのが 
野沢君のように「長いほうがアース j また 
は「まともな家なら左側 j というご意見。 
でも，長さが同じだからいま悩んでるんで 
しよ。それにうちのアパートがまともな造 
りかどう力*は……。検電ドライバーは持っ 
てないし0とどのつまりは「触ってみる」， 
なるほど，やはりこの手しかないか。 ( U ) 

♦ 1987年12月号，いちばん興味のなかった記事 

「力ードゲーム SPEED 」。 だって，私は人一倍鈍 
いので， SPEED をやると必ず負けていたからな 
のだ。 朝倉雅博 （16) 北海道 

♦近くの本屋さんで毎月 Oh ! MZ を購入してい 
たのに ， Oh ! X になったとたんに発売日の夕方 
にはもう売り切れて店頭にはありませんでした。 
仕方なく駅近くの本屋さんまで足を伸ばしまし 
た 。 Oh ! X になって愛読者が増えたのでしよう 
か。 Xlturbo を愛機として使っている私にとっ 
て ， Oh ! X というネーミングは嬉しいことです 
が，永年親しんできた Oh ! MZ が姿を消したこ 
とは寂しい限りです。これからの Oh ! X に期待 
します。 富成敏 （37) 東京都 

♦今月は 「0 h ! MZ 」 ならぬ 「0 h ! X 」を本屋さ 
んで探すにの苦労しました。18日を過ぎてもま 



こういう場合は，近所のレンタル屋さん日 
く， r H 曜の閉店間際が狙い 1-3 でっせ」とな 
ぜか関西弁でおっしゃっとりました。 

♦ 12 月号の表紙は素晴しかった。パソコン雑誌 
でありながら，機械的なイメージは少しも感じ 
ないから好きだ。表紙のイラストを描いている 
のは永沢しげる氏だそうだが，彼にも温かい声 
援をぜひ送ってあげたい。 

盛合俊洋 （16) 静岡県 
1月号の GAME OF THE YEAR の扉をご览 
いただけたでしようか。「山羊やトナカイだ 
ったら見たことはあるんですけど，ドラゴ 
ンには会ったことないからなあ j と悩みな 
がら描いていただいたあの愉快なイラスト 
と，表紙絵を描いたのが同一人物だったり 
するんです。不思議でしよ。 

♦ 12 月号の特集について。 ㊣ 。しかし新機種の 

仕様も詳しく載せてほしかった。あっ，あった。 
ありましたね。失札，じゃあ (§) を®にしといて 
ください。 佐久間隆弘 （18) 千葉県 

♦ 12 月号の 「STUDIO X 」に473文字の文章を載せ 
た人がいますね。これは愛読者カードの編集室 
へのメツセージ という，わずか 26. 3 關のスペー 
スに それらす ベての 文章が収まって いたと して 
計算すると，ひと文字は縦 2.36 X 横 2. 36圃とい 
う大きさになります。これにはさすがのカール 
おじさんもビックリですね。 

杉本憲明 （17) 愛知県 
こういう器用なまねをしなくてもいいよう 
に，1月号からそのスペースは拡大してあ 
りますから，思う存分普きまくってみてく 
ださい。 

♦「What line are you in ?」 を苦し紛れに「あ 
なたはどの筋ですか j と訳した私は，キーホル 
ダー当選者です（ほんとは「あなたの職業はな 
んですか」が正解だった）。 

山田昇治 （19) 徳島県 
♦気がついたらいつの間にか友人から借りてい 
た大戦略のディスクが消えていた。この前家に 
下着泥棒が入ったけど，どうやらそのときつい 
でに大戦略も盗んでいったに違いない。犯人の 
手掛かりはないし.いったいどうすリゃいいん 
だよう。 山本伸明 （16) 北海道 


大戦略も股くつもりなのかなあ。不思議だ。 

♦ 12 月号156ページの溝口さんの意見に大賛成 
です。というのも僕も受験生だからです。う 一, 
来年は大丈夫かなあ……（く，暗い）。 

葛目明久 （18) 大阪府 

♦ Oh ! MZI 987 年3月号182 ページの いちばん 

左上を見てからお読みください。こうもと大明 
神を信じるものは救われる。日々，えげれす語 
に苦しめられている受験生諸君.言語の神様を 
信じよ。今月もこの聖典を手にしている者に救 
いあれ。我々はいい伝えるだろう 。 Oh ! MZ ( X ) に 
こうもと大明神ありと（ホントにお世話になり 
ました）。 竹丸広一郎 （19) 山形県 

♦ MZ - 2500は「一次」，「二次」という言葉は変 
換しますが，「三次」以降は変換しません。そし 
て同じく 「一浪」，「二浪」，「三浪 j までは変換 
しますが，「四浪」は変換しません。 sy に受験生 
への当てつけではありません。 

望月隆 （22) 東京都 
この前，98の一太郎 （ ver 3) で実験してみ 
たら，あれでは「百浪 j までは一発で大丈 
夫なようですから，日電フアンの受験生の 
方にとっては「一浪，二浪 j はまだ序の口 
です。 

♦ M 月18日，名古屋で初めての 「0 h ! X 」を買つ 
た僕。その感動も醒めやらぬうちに，丨丨月19日 


顧 fI 碧 

— なかなか•，•じな、ゴ ■ノ•ー フルソネ、 
ですね。 
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だ多少は残っているだろうと思って22日ごろ本 
屋さんへ行ったら，どこの本屋さんにも Oh ! X 
は影も形もありませんでした（本当に）。そんな 
に売れるの（失札）と思ってしまいましたが，こ 
れは本屋さんが誌名変更を知らないで入荷しな 
かったところが多かったのでは，と勝手に推測 
しています。 矢野玲子 （26) 東京都 
♦こんなにいい本をいまごろ気づくなんて 。 Oh 
! MZ 時代は本屋さんでも手に取ってみようと 


もしなかったが ， Oh ! X になって初めて読んで 
みたら，あまりにも僕の趣旨に合っているので 
思わず感激してしまった。 

吉田祐樹 （15) 神奈川県 
♦恥ずかしながら，私は XI turbo ユーザー （まだ 
4力月）なのに Oh ! X を買ったことがありませ 
んでした。編集室の皆さん，すみませんでした。 
これからは毎月買います。 

加藤直人 （15) 長野県 


Oh ! X となった最初の12月号は，おかげさ 
まで好調な売れ行きを見せ，品不足になっ 
てしまいました。そのため多くの方々にご 
迷惑をかけたかもしれません。これは，決 
して本屋さんが誌名変更を知らなかった訳 
ではなく，吉田君や加藤君たちといっしよ 
に応援してくれている皆さんのおかげです。 
出足は好調，このまま，また1988年も皆さ 
んといっしよに突っ走っていきましよう。 


面^の掲_2^ 


籲掲載ご希望の方は，官製ハガキに項目（売る•買う•氏名•年齢•連絡方 
法…… ） を明記してお申し込みください。 

•ソフトの売買，交換については，いっさい掲載できません。 
•取り引きについては当編集室では賁任を負いかねます。 

•応募者多数の場合，掲載できない場合もあります。 


■仲 脣 


売ります 


★ XI / X 68000ユーザーズクラブ「るくふむ るぶ」 で 
は新会員を募集しています。現在の活動はメン 
バー自作のブログラム配布などですが，今後グ 
ラフイックやミュージックコンテストなどを企 
画していますのでぜひ参加してください。詳細 
を知りたい方は住所，氏名を明記のうえハガキ 
で連絡を。〒620京都府福知山市聖佳町 3-11 
大津敏彦 

★ XI ユーザー ズクラブ 「 YXUCj では昭和63年4月 
発足に向けて会員を募集します。内容としては 
月丨回の会報発行を中心に，そのほかさまざま 
な企画を準備しています。興味のある方は60円 
切手2枚同封のうえ封害で連絡を。〒276干葉 
県八千代市大和田新田 933-4 安原厚志 （18) 

★旅行サークル 「Traveling Club 」 では今度，パソ 
コン関係の情報交換までその活動を拡大しよう 
と思い，会員を募集します。機種の制限などあ 
りませんが，パソコンに詳しい者があまりいな 
いため当クラブコンピュータ部門の顧問になっ 
ていただければ幸いかと思います。もちろん旅 
行の好きな方も大歓迎。入会希望者は機種名や 
ご自分のプロフイールを添えて下記まで封書で 
連絡を（返信用切手不要)。〒530大阪府大阪市 
北区黒崎町 10-5 栗田悦司 （18) 

★「 TURBO 愛好会」では会員を募集します 。）(I 
turbo シリーズであれば機種は問いません。現在 
発行中の会報をさらに面白いものにしたいと思 
っていますので，いっしょに楽しみたい方はい 
ますぐハガキにて連絡を。入会金は100円。〒154 
東京都世田谷区弦卷 4-12-2-403 斉藤晃_(14) 

★「倶楽部XI」では会員を募集します。主な活動 
内容は月I回発行の会報のほかにコミケへの出 
陣，各種イベントなどです。会報はオフセット 
印刷40ページで，その内容はサバイバルゲーム， 
ソフト作成，誌上 RPG, マンガ，会員によるソ 
フトコーナーなどです。詳しくは60円切手同封 
のうえ封害にて連絡を。〒 649-51 和歌山県牟婁 
群那智勝浦町下和田26井上敏宏 


★ XI 用立体映像セット （CZ-8BRI) をI万9千円 
で。箱，マニュアル，保証害付き。昭和62年5 
月購入。連絡はハガキで。〒852長崎県長崎市 
滑石 3-37-39 永渕義人（け） 

★シャープ *8P デジタル RGB 2000文字表示対応デ 
イスブレイ. I4M-I4IC (スモークフイルター， 
箱，説明書付き）を送料込み2万円で。連絡は 
往復ハガキで。亍661兵庫県尼崎市瓦宮字三井 
田 133-8 宮崎様方梅垣浩記 （19) 

★データレコーダ （CZ-8RU) をI万円前後で。美 
品完動，箱付き。希望者は価格明記のうえ往復 
ハガキで連絡を。〒444愛知県岡崎市康生通東 
1-26 近藤昇 （27) 

★ XI 用 データレコーダ (CZ-8RLI) を丨万2千 
〜I万4千円で。昭和62年3月購入。美品，説 
明香，箱付き。往復ハガキに希望価格を明記の 
うえ連絡を。〒547大阪府平野区流町卜 3-4 橋 
本通孝 （16) 

★ Xlturbo 用第2水準漢字 R0M+ レキシコン+ワ 
ードパワー (CZ-8BK3) を9千円で。また， MZ 
-1500用プリンタ MZ-IP09 を9千円で。どちら 
も未使用。連絡は往復ハガキで。〒348埼玉県 
羽生市小須贺926早川孝史 （37) 

★ XI 用 l/F (CZ-8BFI) の未使用完動品を6千円 
で。または CZ-8EP, CZ-8BK2 との交換も可 （CZ 
-8BK2 と交換の場合は+ 2千円で)。連絡は往復 
ハガキで。〒990山形県山形市東原町 2-5-36-6 
号水口昌郁 

★ MZ- 2000/2200用 RS-232C ボード （MZ-IE24) + 
RS-232C ケーブル (MZ-8BC03) +音響カプラ 
(MZ-IXI I)をセツトで2万〜3万円で。さらに 
I/O ポートも+ 3千円でお付けします。いずれ 
も送料込み。連絡はハガキで。〒693島根県出 
雲市浜町1675井上将志 


買います 


★現在，学校の研究室で使用している MZ- 2000に 
プリンタが不足しているので， MZ- 2000用プリ 


ンタ （I/F, ケーブル付き）をお譲りください。 
連絡は機種名，ご希望価格，電話番号を明記の 
うえハガキで。〒910福井県福井市学園 3-6-1 福 
井工大機械工学科寺島研究室寺島健一 

★ Oh ! MZ9 月号掲載「XIにミュージックキ_ポ_ 
ドをつなぐ」で使うコネクタ付きジョイスティ 
ックボード+サンハヤト ICB-88+ ヒロセ F3F- 
20P を実費 + a で。連絡はハガキで。〒〇 99-36 
北海道斜里郡小清水町莹野2 松井伸 （15) 

★ MZ- 2000用拡張 I/O ポート MZ-IU0I をI万円で。 
連絡はハガキで。〒747山口県防府市浜方131 
横田紀明 （20) 

★ XIマニアタイプ/ D 用の I/O ポート （CZ-8EP) を 
5千円以下で。連絡は封書で。〒679-03兵庫県 
多可郡黒田庄町喜多370村上昌弘 （16) 

★ XI用 FM 音源ポード CZ-8BS I +付属品を送料 
込み丨万丨千円で。連絡は往復ハガキで。〒284 
千葉県四街道市和良比254林田和也 （15) 

★ XI 用 FM 音源ボード CZ-8BSI を丨万2千円前 
後で。連絡は往復ハガキで。〒 349-01 埼玉県蓮 
田市関戸407卜30木村継男 （20) 

★ XI 用 FDD(CZ-520F) を5万〜6万円で。または 
3万円+カラーイメージボードII (CZ-8BV2) と 
の交換も可。連絡はハガキで。〒121東京都足 
立区竹ノ塚 7-15-12-509 小林浩一 （18) 

★ XI turbo 用ディスプレイテレビ CZ-850D/855D/ 
870D のいずれかを3万3千円（送料別）で。連 
絡は往復ハガキで。〒 350-02 埼玉県坂戸市千代 
田卜 23-16 セブン細村学生寮209号吉野瑞郎 
(19) 

ノ r ックナンノ r - 

★ Oh ! MZI986 年8, 9月号を送料込み各1000円 
で。 S-0S の記事が読めれば汚れ，傷可。切り抜 
き不可。連絡はハガキで。〒189東京都東村山 
市青葉町 3-26-21 田口琢也 （14) 

★Oh!MZl986 年9月号を送料込み1,000円で。 Fu 
zzyBASIC と MAGIC の記事が読めれば多少の破 
損は可。連絡は往復ハガキで。〒〇47北海道小 
樽市奧沢 3-19- 16加藤久善 （17) 
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編篥室から 


1月号 THE SOFTOUCH GAME REVIEW 

P .22 魔神宮の発売元ザイン•ソフトの問い 
合わせ電話番号に誤りがありました。 

00794 (31 )7453 
が正しい番号です。 


お問い合わせは原則として，本誌のバグ情 
報のみに限らせていただきます0入力法，操 
作法などはマニュアルをよくお読みください。 

また，よくアドベンチャーゲームの解答を 
求めるお電話をいただきますが，本誌ではい 
っさいお筌えできません。ご了承ください „ 


ごめんなさいの 

コ 


12月号 MACS/HELPS 

P . I 45 MACS / HELPS をアセンブルする際には， 
1987年6月号 1 ■アセンブラ/リンカを^[吏う j の 
記事 中で作成したようなインクルードファイ 
ルを作成しておく必要があります。この場合 
は，リスト丨のようなファイルをエディタで入 
力しておいてください。システム コール や10 
CS コールの ファンク シヨ ン番号などのよく使 
用するラベル群は，まとめて I 本のインク ルー 
ドファイルにしておくとよいでしよう。 


リスト1 I0LABEL.INC 
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$ f f ( 
$ f f ( 
$ f f ( 
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バグに関するお問い合わせは 

003 (263) 2230 (直通） 

月〜金曜日16 : 00〜18 : 00 


f 圆 1 ♦ L . L ； 


DRIVE ON 

このコーナーでは，本誌年間モニタの方々の 
ご意見を紹介しています。今月は，1987年12 
月号 (Oh ! X 第1号)の記事に関するものです。 

參 「 Super やりとりくん」〇 BASIC でこれだけの 
ソフトが作れるとは，作者がすごいのかハー 
ドがすごいのか，それとも BASIC の機能がす 
ごいのか？ おそらくすべてが優れているの 
であろうが，今回の BASIC リレー連載は，「さす 
が通信パソコンの MZ - 2500」といわせる丨本だ 
と思う J 叩 er くんシリーズの次作に期待しま 
す。 岡昌樹 （16) XI turbo 岡山県 

參通信プログラム*って作るのたいへんなんで 
すよね。以前， Xlturbo 用に作ったのですが， 
まだ bug が完全には消えていません。 BASIC リ 
レー連載の 「 Super やりとりくん」を參考にリ 
トライしてみます。 

吉田隆 （17) X 1 D / F / turbo , MZ - 2200千葉県 
•はっきりいって「人類タコ科図鑑」は，ま 
だまだ祝一平氏の実力の半分も出ていないと 
思う 3 祝さんは根っからの批評家のようだか 
ら，こうした批判を通して「世の中のこうい 
うところがおかしいのでは」と読者が認識を 
改めるようなモノがほしいですね。それから 
「 super やりとりくん」について，本来ならメー 
カーがやってしかるべきことをやってくれた 
高原さんの努力には愔しみない拍手を送りた 
い。通信パソコン MZ - 2500の名をさらに世に 
知らしめることになる自作ブログラムになっ 
ていると思う。 

福島義浩 (18) Xlturbo model 30 滋賀県 
•出た一。堕落，腐敗しきった現代社会を斬 
る伝家の宝刀，満開流浮世桜丸。銳い切れ味 
です。祝一平氏が「人類タコ科図鑑」で見せ 
た熱意は，日本の出版界における「禁句」た 
る“ジャップ"を多用している点からも感じら 
れます。期待してますからね。 

原悟 (18) XI turbo II 宮城県 


參「実用 （ ？ ） オブジェクト指向のゲームプロ 
グラミング」は，なかなか新しい話題で，こ 
れからも読む気にさせてくれる興味深い内容 
だった。ただ第丨回は，実際のプログラムな 
どがなかったためか，述べられている内容が 
少し捉えにくかった。 

稲垣弘 （18) Xlturbo model 30, MZ -80 B /7 
00愛知県 

• NEW Z - BASIC は素晴しいですね。私が一番 
うれしかったのは 「 FM 音源が BASIC でできる」 
ということです。グラフィック命令も充実し 
たし。これでますますパワーアップされるこ 
とでしよう。 

竹石哲也 （15) MZ -1500 if 潟県 

• Z - BASIC にはすごいパワーとコンパクトさが 
あると思います。使いきれないほどコマンド 
があるというのも考えものかもしれませんが 
やっぱりすごい 。 C compiler PRO -68 K ,ラ 
イブラリの多さなどいろいろな期待太です。 
奥田宏紀 (19) XI ， MZ -2200, FM 77 AV 20, P 
C -660 1/880 III , PC - 100岐阜県 

• XlturboZ は，最初から ZII の装備で発売す 
べきだったと思う。 MZ - 2500のときも，「初め 
から V 2 だったら…… j という声があったが， 

Z にも同じことがいえるだろう。しかし，新発 
売のこの CZ -8 FB 03 には妥協したところのない 
点に好感が持てる。増設 RAM 対応というのも 
見逃せない。また， Xltwin はこの価格で 「XI + 
HE システム」が使えるのがいい。前面もスッ 
キリまとまっているし，アミューズメント指 
向としては文句のない出来と思う。特集中の 
「ソフトウェア見聞録」はとてもよかった。 
「ああ，そんなソフトもあったっけ j という 
ような懐しさも感じた。流行の推移もわかる。 
それにしても XI / turbo シリーズで動くビジネ 
スソフトは PC -980 I シリーズからの移植が多 
い。中にはパワーアップしたものもある。そ 
れだけ X フアミリーには大きなパワーが秘め 
られているのだろう。 X 68000 にも「さわって 
いるだけで楽しい」ソフトがどんどん出てき 
ている。この調子で数力月後にも期待したい。 


ところで，いままで何度かオブジェクト指向 
に関する本や記事を読んだことがあるが，ど 
こか漠然としていた c しかし連載の「実用 （？） 
オブジェクト指向のゲームプログラミング」 
は，オブジェクト指向の「ゲームプログラミ 
ング」に的を絞っているのでかなりわかりや 
すいと思う。ただ，もう少し用語の解説を行 
き届かせてくれたほうがよかった。 

西村昌明 (16) XI turbo/turbo Z 愛媛県 
•「ここらへんでもう丨度 XI を見つめ直してみ 
ませんか」。こんなことができる幸せなマシン 
がほかにありますか c 基本を変えない。しか 
しその基本が高いところで完成されていれば 
メーカーは「拡張」のみに力を注げばすむよ 
うになります。「変更」するのではなく「拡張」 
するのです。「その技術は常に先行機種へフィ 
ードバックされ，システムはより完成された 
ものへと進歩します。 XI を煮つめれば turbo も 
Z も見えてくる。そんなマシンであってほしい 
ものです。 

山 口 幸一 （21) Xlturbo II ， JR - 100, PC -12 
45/1255/1450宮崎県 

參パソコンの寿命を決めるものとして，その 
ハードウェアが挙げられると思います。つま 
り，ハードが古くさく感じられたとき，その 
パソコンは見捨て去られていくのです。しか 
しながら， XI が見捨てられないのは，発売当 
初から現在のパソコンと張り合えるほどのハ 
ードウェアを持っていたからです。とはいえ, 
そろそろ XI の基本システ厶だけでは足りなく 
なってきたような気がします。今後は，ユー 
ザーが積極的に出なくてはなりません。つま 
り， FM 音源などを揃えてシステムアップし， 
「 XI には FM 音源がついていて当然」という意 
識をメーカー側に持たせ，対応ソフトを開発 
する環境を エン ドユーザー脚から整えるので 
す。それによって，また寿命が延びるのでは 
ないでしようか。これからの XI は，多くのユー 
ザーがシステムアップすることにかかってい 
ると思います。 

福留英明 (17) MZ -2500, XI F 東京都 
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がんばれ受験生！ 
Oh!Xt 
応援します 

▼特集「グラフィック画像の冒 P 矣」はいかが 
でしたか。アニメーションフイルムの制作あ 
り， 3 D デザインツールあり，また MacPaint の 
向こうを張る （？）MZ PAINT ありで，とても 
楽しんでいただけたと思います。勉強や仕事 
に疲れたら，フラクタルを画面で遊ばせてリ 
ラックスするのも一興。 

加えて今回の X 68000 BASIC 入門では半透 
明機能を取り上げました。女の子のシルエッ 
卜が漢字で埋まってるのってなかなかシュー 
ルでしよ。えっ，あの女の子のモデルは誰か 
って？もちろん，中森章氏のガールフレン 
ドのひとりですよ。 

いやぁ，グラフィックって本当に面白いで 
すね。 

▼ところで，人類タコ科のサンプルが，愛読 
者力ードに載ってたくさん届いています。世 
の中のシステムに文句を言いたし、青少年がこ 
んなに多いなんて知らなかった。ないしよで 
すが,最近の祝^ 1 氏は， Oh ! X の林真理子と 
いわれています。うっ力、りまわりをうろつく 
と，人類タコ利*図^のネタにされてしまうぞ， 


というわけ。もっとも，編集室 （ U ) 氏のよう 
に，平気で立ち向かう人もけっこういるよう 
ですが 。 

wwmtz , という声が聞かれる「実用 （？） 才 
ブジェクト指向のゲームプログラミング」は， 
用語解説を充実させました。ご意見をお寄せ 
ください。 

▼今月の SHORT ACCESS にはゲームが2本。 
嵐をついて目的地を目指すスリルとポーカー 
ゲームが楽しめます。 シヨー トプログラムも 
FM 音源プログラムも，たくさん紹介していき 
たいと思いますので，皆さんどしどしご応募 
ください。 

▼冬休みはどんなふうに過ごしましたか。年 
末は，25日をすぎたとたん家々に門松が立ち 
始め，いつもながらその変わり身の速さに感 
心、しました。これを節操がないという向きも 
ままありますが，いいじゃないですか，国中 
でおめでたがる季節なんですから。 

Oh ! X の読者には受験生が多いので，編集 
室の面々は最近ちょっと心配顔です。なにしろ, 
「試験当日まであと何日」という宇宙戦艦ヤマ 
トメッセージが，イラストやお便りにくつつ 
いてかなり舞い込んでいるものですから。こ 
こさえのりきれば，あとには春が待っていま 
す。栄養のあるものをたくさん食べて，風邪 
などひかぬようがんばつてください。 


參原稿には，住所•氏名•年齢•職業•連絡 
先電話番号.機種.使用言語.必要な周辺 
機器•マイコン歴を明記してく ださい。 

•プログラムを投稿される方は，詳しい内容 
の説明，利用法》できればフローチヤート， 
変数表メモリマップ（マシン語の場合） 
に，##文献を明記し，プログラムをセー 
ブしたテープ（デイスケット）を添えてお 
送りください。また，プログラムは最|氏2 
回はセーブしてください。 

•ハードの製作などを投稿される方は，詳し 
い内容の説明のほかに回路図，部品表•で 
きれば実体配線図も添えてください。_ 
室で検の上，製作したハードが必要な場 
合はご連絡いたします。 

籲ネ舒高者のモラノレとして，他誌との二重ネ舒高， 
他機種用プログラムを単に_したものは 
固くお断りいたします。 

- • - 

あて先 

〒1〇2東京都千代田区九段南 2-3-26 井関ビル 
日本ソフトバンク出版部 
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►クリスマスの横浜は込む。 12 月24日はどこのレス 
トランも予約で一杯である。車のナンバーを見ると， 
練馬，多襞干葉，大宮 •.… •， 困ったものである（も 
ちろん私は横滾ナンバー)。 

P . S . 最近玉突きにこっているのですが，世田谷区 
上馬にある 「 MARQUIS 」 というプール•バーは穴場 
です 。 ( C . W .) 

►僕の宝物がまたひとつ増える予定であります。柷 
—サイン入り r 試験に出る Xlj なのですよ。 
い一でしょ一 。 うらやまし一でしょ一 。 でも，あげ 
ないよ一だ。仏壇に飾って，毎日，ご飯と お水と肥 
料を与えようと思ってます。その前に 「 CRC 付き著 
者略歴 j を解析しなくちゃいけないな。それから仏 
澶買いに行こ。（自己裁見してるつもりの T . T .) 
►謹賀新年。今一番面白い番組はテレビ朝日の“朝 
まで生テレビ”という徹夜の討!命会である。いろん 
な人の本音のぶつかりあいで喧喧ごうごうの火花が 
散る。月イチなのだが何度も出演するうち株を上げ 
た人も L 、れば自民党の政治家はタコだしァブない大 
学の先生もいれば大島渚は単純で噌やない。必見で 
ある。では,読者のみなさんさようなら。 ( K . Y ) 

► I 987年12月24日午後 4 時過ぎ。女性シンガー「某」 
の あのダミ声が いきなリラ ジオから 流れ出 した。 

Si 〜 lent ni 〜 ght . Ho 〜 lly ni 〜 ght . 

クリスマスを目前にひかえ， FEN ではいろいろなア 
ーテイストによるクリスマスソングを流していたの 


だが，これはあまりに斬新だった。私は驚きのあま 
り声を失い，呆然とし，そして爆笑した。 （ IMT ) 
►あなたも，早目に買った年賀ハガキが机の上に残 
って年の暮れを迎えたことってあるでしよう。でも 
って隣には，1战矣に出る XI j や新ファミコンソフト 
や少年チヤンピオンなどの読みたい本が山積みにな 
っていたりするわけだ。現在1987年12月21日（月）天 
気靖れ九段の夜は寒く，編集後記にて最後のコー 
ヒーをすするわけである。 （ K . S .) 

►その日僕は急いでいた。午後7時までに編集室に 
着かなければ祝一¥氏提唱の酒池肉林パーティに遅 
れてしまうのだ。新宿で反対方向の電車に乗るとい 
うトラブルもあったが，なんとか5分® a でたどり 
ついた。そこで僕を待っていたものは「 I 日_」の 
貼り紙と出張校正で誰もいないマシン室だった。一 
気に疲れが出たのは言うまでもない 0 ( K 0) 

►►いきなりですが高橋留美子の恒等式：面堂終太郎 
= 九能帯刀，面堂了子 = 黒バラの小太刀，コタツネ 
コ + 竜之介の親父 = パンダ親父，しのぶ = 天道あか 
ね^テンちゃん 二 響良牙，あたる+ラム+竜之介 = 
早乙女乱馬。また，四谷さん=%之介の親父，ーノ 
;賴のおばさん = コタツネコ，響子さん=天道かすみ 
なども成立しています。 （ M ) 

►とはいえ， （ K 0) 氏は結局無事に酒池肉林ツアーに 
参加できた。しかし私はぼ一っとしてたら見事に置 
いてきぼりを喰い，そのままぼ一つとしてたら印刷 


所から問い合わせの電話を受け，おかげで宴会真最 
中の_長を 社名 • 実名っ きで 2 度も呼び出しても 
らう ハメに 陥り，こ の 次からは仮名を使うよう言い 
渡されてしまった。 え 一ん。 （よ） 

►先日きたのじゅんこ画伯の個展にいきました。女 
史の絵を見た I 氏い わく 「あなたの趣味は間違ってい 
ます」。 しかし，その場にいあわせた4人のう ち 3人は 
墙とメルヘン j の購読 経験があったのです。彼の 
常識は 日々 覆される。 それに， X ’ mas の夜にコーラ 
ンを 聞く I 氏の趣味よりは マシだと 思いません か。 

(所詮横冶は田舎だと思う中野区民の U ) 
►先日， スタッフ 数人と ジンギスカンのバイキング 
に行った。 2 時間 という制限 付きデスマッチを泉大介 
氏はず一と同じ ペースで 食べ続け，「さすが泉さん j 
と 回りからへんな 誉められ方をしていた。その 間 私 
は 隣で，いずれは 彼の 連載を「ダイエット体操 1*2* 
3」に改めなければいけないときがやってくるのでは， 
と真剣に考えていたのです。ところでバナーは福岡 
県の 平田省 吾 君に贈ります。 おめでとう。 （ N ) 

►今奉の ク リスマスツリーはなん といっても渋谷の 
西武百貨店。 B 館と新しく OPEN した LOFT (東京 ネ 
夕ですまない）の間の坂道をトコトコ 登って行く と， 
建物の陰から巨大なツリーが目に飛び込んで くる。 
感動だあ〜。ところで M 氏によると，戦争だってク 
リスマスにはお休みするそうで， 編集 室は 戦場 以下 
であるらしい。 では，よい お年を…イジイジ （ T ) 
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とあるパブレストランでメニューを開いたと 
き，一瞬それがプルダウンメニューに見えてし 
まった。飲み物のブロックを指でなぞれば，次 
次とその部分の表示が反転し，レモンティーの 
ところで指を離せばそれが選択される……など 
という妄想が頭をよぎったほどである。これも 
職業病といえばそれまでだが，同席していた若 
い建築家は「世界の見え方がだんだんそうなっ 
てくるんですよ」と言っていた。 

同じ肉眼で見える世界といっても，それは日 
常生活の中で形成され変化していくものだ。 

たとえば家というものについて。お父さんが 
25年のローンを組んで購入した八王子の一軒家 
に住む小学生に，自分の家の絵を描けといえば, 
きっと正面から見た建物の姿をイメージし，太 
陽と雲と電信柱を一緒に描くだろう。あるいは, 
ろくに暖房も効かない築15年の木造アパートに 
住む25歳のプログラマの場合なら，部屋の間取 
りとテレビとコタツの位置関係が彼の住まいに 
対するイメージのすべてであるかもしれない。 

また土地観について。道路地図を頼りに自宅 
と目的地の間を往き来する自家用車のドライバ 
—にとっての東京は，名のある通りと両サイド 
の景観によって認知されている。タクシーの運 
転手ならば交差点の標識がマッビングの基本で 
ある（だから，半分眠ってうつ向いたままでも 
前の車のテールランプを追って運転できる？）。 
一方，電車やバスを利用する際には，実際の方 
向や距離よりも駅と駅との位置関係がわかれば 
用は足りる。だから，地下鉄やバスの路線図は 
かなりデフォルメされたパターン情報として提 
供されることが多い。こうして，都市に住む人 
人の地理感覚はどんなマッビング方式を重視す 
るかで変わってくるのである。 

さて，知らないうちに世界の見え方を支配し 
ているのは，なんといってもカメラで撮られた 
映像だろう。小さい頃からテレビや映画などに 
視力をつぎ込んできた人と，そうでない人とで 
は世界の見え方が違ってきて当然だ。作られた 
映像は2つの視点を同時に持っている。ひとつ 
はカメラの目，もうひとつは貴方自身の目であ 
る。そしてカメラの視点は貴方の目とは別の意 
志によって移動し，それを貴方の目が追ってい 
るのである。私は最近，映像の内容によって， 
自分の視点で（客観的に）見るか，カメラの視 
点に任せるか（感情移入？）を適当に切り換え 
ながら見ているような気もしている。 

そういえば何かのパーティで友人が「夢の中 
に自分が出てくることはないか？ j なんて話を 
持ち出した。「尤_っ j なんて声を上げながら 
も意外と思い当たるフシはある。よくあると意 
見が一致したのは，自分と自分の視点がいつの 
まにか分離してしまうケース0たとえば，小高 
い丘の上に立って夕陽をあびるシーンがあると 
しよう。そこに立っているのは貴方自身なのだ 
が，どういうわけだか「あなたの目はあなたの 
体を離れ j 自分の姿を見るようになる。う一む, 
夢の話はあぶないからよそう。ちょっと昔は力 
ラーで夢を見ると言っただけで「き j で始まる 
放送禁止用語が飛んできたものだ。 

ともかく，世界の見え方は変わりつつある。 
アウトランもア フターバーナー も視点は自分よ 
り後ろにある。迫りくる景色とその中の自分を 
同時に見るのが最近のリアリズムらしい。 （ T ) 


1988年3月号2月18日（木)発売 

特集 SOUND プロクラミンク入門 

PSGS FM 音源の活用/実践 MML 
Music Data 組曲「イース」ほか 
XI /turbo MIDI インタフェイスボードの製作 

XB 的00未公開 IOCS コールの解析 
S - OS オリジナルコンパイラ SLANG 


バックナンバー常備店 


東京 


神奈川 


神保町 

三省堂神田本店 5 F 
03(233)3312 

// 

書泉フックマート BI 
03(294)001 1 

// 

害泉グランデ 5 F 

03(295)001 1 

八重洲 

八重洲 ブックセンター 3 F 
03(281)1811 

新宿 

紀伊国屋軎店本店 
03(354)0131 

局田馬場 

未来堂書店 

03(200)9185 

渋谷 

大盛堂書店 

03(463)051 1 

池袋 

西武百貨店 MF ブックセンター 
03(981)01 11 

/ノ 

西武百貨店 9 F 

コンビュ_夕 • フォーラム 

03(981)01 11 

町田 

久美堂東急ハンズ店 
0427(28)2783 

横 浜 

有隣堂横浜駅西口店 
045(314)9726 

// 

有隣堂 ルミネ 店 

045(453)081 1 


神奈川 

藤沢 

有隣堂藤沢店 

0466(26) 1411 


厚木 

有隣堂厚木店 

0462(23)41 11 


平塚 

文教堂四の宮店 
0463(54)2880 

干葉 

柏 

新星堂カルチェ 5 

0471 (64)8551 


船橋 

西武百貨店 1 0 F ブックセンター 
0474 (25)01 11 


// 

芳林堂書店津田沼店 

0474 (78)3737 


千葉 

多田屋千葉セントラルプラザ店 
0472(24) 1333 

埼玉 

川越 

黒田害店 

0492(25)3138 


川口 

岩渕害店 

0482(52)2190 

茨城 

水戸 

川又窨店駅前店 
0292(31)0102 

大阪 

都島区 

駸々堂京橋店 

06(353)2413 

京都 

中京区 

オーム社窨店 

075(221)0280 

薆知 

名古屋 

バソコン 2 上前津店 
052(251)8334 

長野 

飯田 

平安堂飯田店 

0265(24)4545 

北海道 

室闌 

室蘭工業大学生協 
0143(44)6060 


定期購鋳のお知らせ 

定期購読の申し込みをお受けしています。 
本誌が手に入りにくい地区にお住まいの方， 
毎月購読していただいている方，入手確実な 
定期購読への加入をお勧めします。 
バックナンバー在庫状況 
1986年 10, II ，12, 1987年 1，2, 3, 4, 5, 6, 7, 8,9， 
10, II ，12, 1988年 I までの在庫がございます。 
バックナンバーのご注文はお近くの 書店 か 


らできますが，どうしても入手しにくい場合, 
直接弊社の出版営業宛てにお問い合わせくだ 
さい （ S 03 261 409$) 〇 
海外送付ご希望の方へ 
本誌の海外発送代理店，日本 IPS (株）にお 
申し込みください。なお，購読料金は郵送方 
法，地域によって異なりますので，下記宛必 
ずお問い合わせください。 

日本 IPS 株式会社 

〒101東京都千代田区飯田橋 3-11-6 
25 03 (238) 0700 


2月号 

■ I 988年2月1日発行定価 540円 ■発行 人 孫正義■編集 人笹口幸男 
■発売元（株）日本ソフ ト バンク 
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Xis/J- 
X turbo 


s 式験に出备 




ふ節 


2227の美味しい 
j 遽遽機能をもりもりと料理 


試験に出る 

mBISBBS 四 BD9EIBB 

祝一平著 

已5判定価2,800円 


内容 

第〇章きっと完全無欠な1/◦マップ 
第1章 CRTC でどすこいである 
第2章 PCG は二度おいしいのである 
第3章漢字名野出亜留 
第4章サブ CPU のおかげなのである 
第5章 CTC は律儀なのである 
第6章 SIO でマウスである 
第7章通信だってするのである 
第8章 DMA はへビー級である 
第9章ディスクを回すのである 
第10章 PSG は基本である 
第] I 章 FA / I 音源ナ八卜厶ジーク 
第12章カラーイメージボードで取り込むのである 
第13章テープもやってしま5のである 
第14章 Z の機能はおいしいのである 

特別付錄 XI 処理技術者試験 




Oh ! MZ(1985 年6月号〜1987年8月号）に連載されたあ 
の祝一平氏の「試験に出る^7」がついに1冊の本とし 
て完成しました。本書では X1/Xlturbo シリーズのハード 
ウェアをくまなく探検，筆者独自の解析術と豊富なオリ 
ジナル プログラムで 数々の機能を料理していきます。連 
載時の内容に XUurboZ の機能（第14章）を加筆，その他 
の章についても全面的に新情報を取り入れて再編集いた 
しました。さらに巻末には付録として「XI処理技術者 
試験』も収録しています。また，現在 Oh! X掲載のミュ 
ージックプ ログラムで 活用されている FM 音源用 MML は 
XIユーザーの必須アイテムと言えるでしよう。 


発行 


ISOFT ： 

IbamkI 株式会社日本ソフトバンク出版事業部 
亍102東京都千代田区九段南 2-3-26 003(261)4095 









ハードウエアのフルコ- 


絶賛発売中 




その筋な S 


% \早园 





















特集 NEC 、 富士通、シャープぼか、徹底取材! 

パ-ソナルコンビユ-夕が 

令•ジャパニーズパソコンの源流を 
CIIq (T つくった男たち•弓 I き継ぐものた 

mjB 7 ちの戦略•世界の潮流はいま 




㈱ 日本ソフトバンク出版事業部 

〒102東京都千代田区九段南 2-3-26 
003-261-4095 


E 月号好評発売中500円 


THE コンピュータ時代を読むトレンド • マガジン 

COMPUTER 
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夕 

情 

報 

力: 
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器 

だ 


■ 


KEYMAN U - s - A 

鼻のビジネス 

ソフトを牛耳る男 

口—タス•ティべ口 r 於ノ^ t * iv ノ於ノ 

ップメント会長ぐ v <4 #^v v 二」 

田原総一朗のコンビュ—夕•ルポ 

f RON で制覇"へあと 

2年の仕掛け 東 大助教授 坂村健 

「シし I フー 

•NEWS 
• 事件の中の著作権 
•ヒット商品開発スト—リ— 

•TREND 
WATCHING 
• 八ィテク考現学 
• 巳巳 S 自由自在セ///ナ— 
•八—ドウエア階層の構図 
•情報ネットワ—ク 
❿電子文具操縦マニュアル 
•コンビュ—夕時評 
• 卜—ク縦横無尽 
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通信中の 
ホスト名。 


1 


通信画面 

匾 （80 X 25 行） 
エディタ画面 
■にもなる0 






現時刻と 
経過時間。 


: 7つのアイコン 
マウスクリックで 
機能実行。 


I ガイダンス領域 

:アップ/ダウンロード中の表示や実行中止など。 


， プルダウン X 
/ メニュ-やチャイルドウ、 

，インドウによるファイル選択 t 
， などマウスで簡単に操作できま本 ' 
基本操作はV • Shell や日本語ワープ 
□に準じてますので、 X680 〇〇ユーザ 
一ならすぐに使いこなせます。さら 
&に、ユーザーが組み替え可能なア J 
K イコンを用意して、操作のス/ 
\ピード.アップを実現し/ 

V ました 。メ 


XLink はターミナル • ソフトであり 
ながらホストにもなるのです。 
ホスト*モードにしておけば、掛っ 
てきた電話を取り通信を行なろこと 
ができます。アスキー • ファイルは 
もちろんのこと、バイナリー • ファ 
イルの送受信も〇 K/。 

安全対策のために、パスワード•チ 
エック やリード • ライトの ディ レク 
トリも指定できます。 


/複数\ 

/の通信先、 


/へ指定時刻、 

/に自動的に通\ 

/信できます。早朝 Y 
/のホスト局が離して\ 

/ いない時に自動アクセ \ 

/スすれば、朝起きたときに\ 

/はあなた宛のメールがディスク\ 

/の中に入っています。もちろん A 
/スタンバイ状態は電源オフ、通信時\ 
! 刻になったら才一卜•パワ—オン/' 


r - H ブルダウンメニューが表示される。 


|クリックで 
!日 「 eak 送信。 


シャープ X 的的0用パソコン通信ター S ナルソフト 


XLink 

(クロスリンク） 


マウスによる簡単操作 


PIRO-68K 



ホスト•モード 


自動アクセス 




マクロキー表示領域 

マウスでクリックすると入力される。 



開発元/発売元 本 社/〒 610-03 京都府綴軎郡田辺町河原平田 23-16 

丨 TEL .07746-3-1131^ FAX .07746-3- 1130 

ISvs ： l)Onl — /vOlr-r 一 福岡出張所/〒 812 福岡市博多区中呉服町 6 - i 善導ビル 213 
ノノ W \ J - TEL .092-27 卜307蘭 FAX .092-27 卜1022 



























三次元グラフィックスソフトウェア 



XI turbo シリーズ5インチ 2 D 




C G 作成：野末郁乃さん(東京) 



美し<、 
わかりやす<、 
正確に。 

卜 U フオニーの 
モツトーです。 


九州 


く白黒プリンタ出力〉 


トリフォニーシステムは三次元処理を行なう 「3 D モ I 
手描き用「ペイント j の2種類のソフトウェアから 
成り立っています> 

3D モデラー 

3□モデラーはコンピュータグラフィックスの基本的な表示モデルであ| 
る、ワイアーフレーム•サーフィスモデル(単色) • レンダリングモデル(カラー）| 
の3種類をサポートします^立体は rotate (回転体作成)、 sweep 湎厚 
み付け)などの立体構成コマンドにより簡単に作成できます。作成した立 
体には、 shade コマンドによって美しい陰影(シエード)を付けてレンダ 
リングすることが可能です。 



ペイント 

ペイントは3□で作成された画像に修正を加えた 
り、着色したりすることができます。勿論、すべ 
て手描きで画像を作成することも可能です。バッ 
クグラウンドモードの採用により、透明感•光沢 
なども表現できる高度な描画機能を持っています。 


ト リフオニーの 機能概要 


解像度： モノラル （MOXdOO (■•••_•; 解像度） 

モノラん640 X 200 (岛•低解哚度） 

ケ体モード M 〇 X 200 ( 商.低解像度） 

必要機器： マウス .2 ドライブ （】M B タイプにも対応） 
対応機器： 立体 映像セット カラーイメージボード i/n 

(1 のモードで使用） 

対応プリンタ： CZ -8 PCl /2( カラー/白思） . CZ -8 PK 3/5/6 


シェード （挖影 f、j •け）、 スクウェア•サークル •口ーテー ト 
(回転体）•スウイーブ（暉み付け）•ハイド（隠面処瑰) • 

ハードコピー•ヘルフ。その他フ アイ ノレ アクセス コマンド 

等レンダリング機能 （ jii 人 2500 ポイントまたは 500 ポリ 

ゴン） 

ペイントの機能：セット•フォアグラウンド•パ、ックグラウンドモードによるブ 
ラシ*ライン.ボックス.ボックスフル.グラデーシヨンボ 


CZ -8 PN 1- CZ -8 PD 2/3- CZ -800 P - PCPR 201 ッ クス•コピーな どの ファンクション、フィル •エッジ •拡 

マニュアル： 約200ページ 大縮小*_像入力 (turboZ 以外は カラーィメージボ 

3 □の機能： iljfiiWv I ••面 N •側而 W 衣示、拡人縮小紅•移勋 ー ド要）カナ/漢字入力 

など冲:標変換機能、 パースオンオフ、 グリッド オンオフ、 


■「トリフォニー j は全国の有名パソコンショップなどでお求め下さい。通馒販売をご希望の壩合は現金*留または郵便振替で当社までお申し込みください。 


%Armat 


® アーマット 

亍 227横浜市緑区荏田町 473-5 
TEL : 045-911- 7427 


くトリフォニー開発に利用されたソフトウェア〉 

(1) Z 80アセンブラ開発セット MR—ASM.MR —ID 12,800 円 

(2) BDS C ユーティリティパッケージ 10,000円 

⑴は有名パソコンショップで、 （2) は通信販売でお求めください 
(郵便振替横浜 5-30518) 抑アーマット 

※なお、ト リフォニーの 税明会を予定しています> 詳細はお問い合せください。 

















































自作派のあなたガ 

バソコン通信は B B S だけではありません。 




_■■■ SUPER DEVICE MONITOR "T" by loom 
SECTOR LIMIT=8H9FF (2559) 力 - ソルの位 g=$01055 

DEVICE：SECTOR NO. 漢字モー • ド ON 

500 ; 

- DEv'ICE=0-- ‘ Sector no.=16 TO16 0 DW= 0 . UB= 255 

$fidr. =^0 +1 ^2 + 5 +4 +5 ^6 +7 +8 +9 + B +C + E +F Sam/ CHARACTER 

： 01000=018A BF 8E 48 75 42 4153 49 43 20 20 55 79 * 9D / . 漢字 Hu 明 S!C Sy 

： 01010=75 20 00 90 00 00 00 00 85 941515 42 00 02 00 ' A8 / s .备 …※ ..B". 

： 01028=04 89 B9 8C 50 20 20 20 20 20 95 CF 8ft B7 44 49 ' H / .音 Ull 変換 D 1 

： 01050=43 20 01 05 00 F0 00 00 85 941515 42 00 0B 00 1 E5 / C ... ※.联 

： 01040=04 83 86 815B 85 55 815B 20 95 CF 8A B? 44 49 * EF / .ユ-ザー変換 DI 

： 01050=43 20 02 02 03 S0 00 00 85 9415 15 42 00.11 00 * EB / C ...※.※. 义 ... 

： 01060=02 83 86 815B 85 55 815B 20 95 CF 8fl B? 55 ち 4 • 89 / . ユーザー踅換 UT 

： 01070=59 20 D1 03 00 00 03 0 & 85 941515 42 00 17 00 1 E? / Y 乙 .IB … 

••01080=02 44 45 56 49 45 45 20 44 55 4D 50 20 20 42 61'F.B / .DEVICE DUMP Ba 

： 01090=73 20 7B 02 00 00 00 00 FF 221618 04 00 18 00 ' 70 / s p.....». 

： .010ft8=00 44 45 56 49 45 45 20 44 55 4D 50 26 50 42 61 1 IF / .DEVICE DUMP&PBa 

： 010B0=73 20 02 00 00 00 00 FF 84 50 14 59 00 4fi 00 * A6 / s ， . 

： 010=00 4F 4E 45 4F 4D 23 20 20 20 20 20 20 20 20 20 1 BC / .ONCOM 

:010D0=20 20 62 00 00 00 00 00 FF 951414 25 00 4H 00 1 CE / b UK. 

： 010E0=00 4F 4E 54 49 4D 45 20 20 20 20 20 20 20 20 20 * EC / .ONTIME 

： 010F0=29 20 95 00 00 00 00 00 84 95141613 00 4C 00 ' 77 / ※•… 

Sam =85 3F 8C FB Cft 6E 2E E4 74 BD 9C -5fl El F5 22 61 / All Sam=5DF5 


'... 

SUPER DEVICE MONITOR “ T . •の実行例 


いま流行のパソコン通信はカタカナだけか，あるい 
は漢字の混じっだ文章と簡単なグラフィクスだけだと 
思っていませんか。新発売の 『 SUPER-DEVIC 
E-MONITOR“T ”』 を使えば，パソコン通信で機 
械語のソフトや，クラフィクスのバイナリィ•データ 
を，特殊なデータ圧縮法により，セクター単位に最高 
通常の3 2倍(理論値)の高速でアクセスが出来ます。 
これから発売予定の他機種用の 『 SUPER-DEVI 
CE-MONITOR 』 シリーズとの互換性を考えて， 
Super MZ が使える総てのボーレートに対 ¢5 し， 
ディバイス • エディターとしての機能や操作性なども 
各種ディバイスのデータを，瞬間的にセクター単位に 
表示，書き替え，検索，転送などが出来る事で，今ま 
で大好評発売していだ『スーバー修理屋さん』の最上位 
バージヨンですので安心してお使い戴けます。 


SUPER DEVICE MONITOR “T” 


mz ■匿国®©全シリーズ u 


13,000円 


ゲーム派のあなたガ 

知っていますか？便利なソフトの整理箱 


テープ版のソフトを簡単に専用データ • ディスクに 
収容して，ディスク版の様に扱い易<する “EXTR 
A • HYPER ” の版がバージョンアップされ 
て，“ ウイ* グ•マ*”など2〇〇 Kbyts を超える大容 
量プ□グラムを含めて17〇種 (I11Z 版は26種)以上 
のテープ版プログラムが扱える様になりましだ。 
“EXTRA • HYPER ” が新しくなると， 2 D の 
データ • ディスクが狭く感じますね。だから，同梱の 
“DATA • DISK • GENERATOR ” tlllZ 
版では既にお馴染み， 2 D /2 DD 共用の “ NEW - 
DATA - DISK - GENERATOR ” にパージ 

ョンアッブガ 

2 DD の データ • ディスクは ターボ ill / Z , CZ - 
52〇 F など， 2 DD のディスクが扱えるドライフな 
らどの機撞でも使うことが出来ます。 

EXTRA-HYPER + a 

シリーズ 5 " • 3 " 

■11Z ■習圉00 (2000モード） 3.5" 

^ SZ 7( マニア. タイプ）. mz ■麵 ( M ) は要 G-RAM 各14,000円 



^7で 2 DD のデータ.ディスクを使用した EXTRA HYPER の実行例。 
画面中のソフトは同梱ではありません。 


お求めは全国の有名マイコンショップでどうぞ0 
通信販売をご希望の方は当社へ直接、商品名•機種名•メディア名 
住所•氏名•電話番号を明記の上、現金書留にてお申し込みくださ 
い。（送料無料） 

や. 

株式会社 BLUE SKY 
〒411静岡県三島市加茂 16-4 
s 0559-72 -6710 











BASIC HOUSE 
22-9811 


I ® 


至矢板 


> 足銀本店 


r 


日光 


至栃木 


至大谷 


至小山 


計 S| 

33-1994 


東武宇都宮 



酵觸創業記念特別限定大特価通信販売 


全国どこでも発送可長期クレジット OK 送料全国均一¥1,000宅配便にて限日配送 


1 .. 


■ J 


FM 音源ボード 
CZ-8BS1 

⑯ ¥19,000 

カラーイメージボード 
CZ-8BV2 

⑱ ¥29,800 

ビジネス PR068K 
CZ-212BS 

⑱ ¥58,000 

ミ ユージ ック PR068K 
CZ-213MS 

⑱ ¥17,000 

サウンド PR068K 
CZ-214MS 

⑯ ¥14,000 


株式会社計測技研 

本社営業部マイコンショップ販売部 

宇都宮市竹林町 503— 1 
TEL.0286 22-981 1 FAX.0286-25 3970 

開発技術部宇都宮市桜 3 丁目 2 -17 
TE し .0286-33- 1994 

お申し込み•お問い合せは 

^ 0286 - 22-981 m 



U . UMB 才 1 J ジナルセツト 
SHARPING 日000 スーパーコブラセツト 


CZ -600 C (本体キーポード） ¥369.000 

CZ -600 D (カラーディスプレー） ¥129,800 

CZ -6 ST 1 (チルトスタンド） ¥5.800 

KGB-68IMB (增設メモリ） ¥32,000 

B 6-6301 (BASIC 拡張関数） ¥9.800 

B 6-6303 (マイコン エディター） ¥4,800 

B 6-6304 (ディスクキャッシャー） ¥6,800 


定価合計 ¥558,000 

■ •1.1、山11_ 大•特•価 


長期クレジット 
1〜60回超低金利/ 


信用と実績を誇る1 XA SHARP 

un / XiC #^ XY 68000 W * 


我々と ユーザーで 

SYSSOOO の良い/トドウ i ア、ソフトウ: n アの世界を創ることが至上命令だ// 







- i いハ\'ャ 


本体 CZ600C 定価¥369,000 
CRT CZ600D 定価 ¥129,800 


ちょっと便利なユーティリティーシリーズ 


BASIC 拡張関数 

CP/M68K 

ICON EDITER 

DISK CACHER 

パッケージ 

(お幸け力< い一)い） 

エミュレーター 

マイコンメンテナンス 

キャッシュ•メモリ•ディスク 

B6-6301 

巳 6-6302 

B6-6303 

B6-6304 

定価¥9,800 

定価 ¥19,800 

定価¥4,800 

定価¥6,800 

■1 厂 

? 

B6-6305 

? 

B6-6306 

? 

B6-6307 

? 

B6-6308 

近日発売予定 

近日発売予定 

近日発売予定 

近日発売予定 

根性同梱本格ソフトシリーズ 

シミュレーシヨンゲーム アニメーシヨンツール 

本格的通信ソフト 

タイ トル 末定 

タイトル未定 |厂 

タイトル未定 1 

近日発売予定 

近日発売予定 

近日発売予定 

八ードウ エアー シリーズ 1 

IMB 増設 RAM ポード 

高級アナログ/デジタル 

高級パラレル I/O 

高級デジタル/アナログ 

本体内蔵用 

変換ボード 

ボード 

変換ボード 


12Bit 16 チャンネル 


12 Bit 4 チヤンネル 

KGB-X681MB 

高速 A/D コンバータ 

多機能高性能 

D/A コンバータ 

定価 ¥32,000 

近日発売予定 

近日発売予定 

近日発売予定 


大通り 




































































►現金一括でお申込みの方 

籲商品名（商品番号）及び、住所、氏名、電話番号、ご覧の雑 
誌名をご記入の上、代金を現金窨留でお送り下さい。 
•拫込をご希望の方(夂必ずお拫込前にお電話又はおハガキで、 
お知らせ下さい。 

く紐行振込〉協和銀行•久里浜支店当座 N 0.2945 
く郵便振譬〉横治 9-421 77 
►クレジットでお申込みの方 
癱電話かハガキでお申込み下さい0 

クレジット申し込み用紙をお送り致しますので、ご記入 
の上、当社へお送り下さい。 


申込害 

• 商品名 ( 商品番号 ) 
•支払回数 
籲お名前 
書生年月日 
♦ ご住所、電話番号 
籲お動め先 
名祢、住所、電話番号 


東京 受付センター 

003(252)2608 

大阪受付センター 

006(363)1605 


sharp ^ 68000 





• CZ-881C 

NEW-2 BASIC 皆 iiaturxi 
lurbo 2 が虫 tfxK つた • 糞芒に， 
顧 » の ■ ビツトマシンだ， 

• CZ-880D 
CZ-6ST1 


■ CZ-870C_ 

大佐 Q1M パイ 
•ns 柄 ？, m 

抑，以说 ス 


卜 5* 下 DD2 基内雇 
;H 事 ROM 
システム•ユーザー 


.CZ- 8700 

大審 «MM バイ h5"FDI 
I JISM2 木灌 ; N 本 ROM 

_ •システム.ユ. 

_ M 窗 》IK 

& HndH « CZ -870 D 

§«■ プレイモード切 Wfllttt 
« 又た 1 リディスプレイ 


X ^ J ~7^ r ^(> dcl : W 


• CZ-822C 

ミニフ〇ッビーディスクドラ 
イブ2ドライブ内飆 ••« 屣 
搏点し必 U# プ a セス b ビ 
デオ（こ M れる初のマルチ 
ビジュアル碘+»載.. 

CZ-820D 

14型カラーディスプレイテ 
レビ- 



C 雇品番婷166 1 —括払钃格特別偭格 1 

24明 

mb 19,060 n • 18400円 x 23b 

l 36 B 

Mai 3,440円 12 S 00 n x 35 a . 


C 番埽164丨 一括仏攝格特別価格、 

( iS 品：号090 (- 括-括仏低格178.000円、 

(BS 番号086 I -? S 4 A ®« 128.000円) 

S 4 n 

» ab 11 ,660 ft 11 ,600 r x S 3 o 

E 4 @ 

w 回10,460円-日.600円 x 23 e 

24回 

w 回7,1 B 0 r B , S 00 r x 23 s 

(3 日 a 

»na 9,240円 • 8.100 n x 35 a J 

[3 Bs 

8,940円- 6,000円 x 35 s > 

^6® 

we 6.940 ft 4.300円 x 35 回」 


SHARR IHZ - 


； harr ^ y /7 twin 


日本語ワープロミニ書 


• MZ-2861 

働陕ワープ〇«肽と MS DOS V £ 

3.， VW 準 MM して肪しい貪 MM 
|爽螯寅 U. 

• MZ-1D26 

デジタル.アナ a グ•の14 | 


Srfte 


_ « CZ -830 C 胃, 

と X»wU» の tw»nU»wln«>in«, 麵 自勖カラープリンタ、大型液晶 — v , 

r J he シス f ム*■内難し .X シリー… 表示を採用， M •> 

I ズ etui 嫌を m 《入 n «. :新しい表現力を持った/、•ーソナ 

— pn 

cz -6 STi チルトス ，〆 ド. 

- 1 W 準価格203.60 OR 標準価格128.000 


♦ WD-270F 

自勖カラープリン 
表示を採用 t 
新しい表現力を持ったパーソナ 
プ a.. 


«準®格417.800円 


► WD-520F 

J A 1辞 ■»«£.. 

' 鮮明32ドット印字、プ a 仕様の 
インチ CRT ワープ □.. 


標準価格 128.000 


商品番号124丨 一格払価格335.000円 

24回 

姻17,050円1 6.300 円 x 23回 

(36 回 

雛113,050円11.400円 x 35回 


( 番号165 | —括}ム鑷格特別価格） 

( 商品番号 170 | —括払価格 90,000円 ) 

[ 商品番号 171 | —括払価格 90,000円1 

24 a 

mb 10,260円. 8,100円 x 23 回 

24回 

初回6,400円4,300円 x 23 回 

24回 

初回6,400円4,300円 x 23 回 

、38 曲 

mq 7.140 ft 5,700円 x 35 回 

、36回 

初回5,700円3,000円 x 35 回ノ 

、36回 

初回5,700円3,000円 x 35 回ノ 




^： JL / rJt 7£7 


シリ ズ用周辺機器 


カラービデオプリンタ 


ミニフロッピ-テ:(スクユニット (2 D ) 


熱転写カラー漢字プリンタ 


• CZ-6PV1 

ド、•ソコンやビデオ機器に対応。 
bmm (485 X 480ドット)で再現 
する、昇華性染料熱転写方式 
を採用,、 

標準価格198.000円 


• CZ -502 F 

両面倍密度、 

Iドライブ 320K パイト対応の 

.〆< フォーマンスタイブ 
ーフIイス、 

僧号ケーブルは间捆です j 

■標準価格99.800円 



• CZ -8 PC 2 

アートワークも、文章作成も、 
美しくあざやかに， 

JIS 第2水灞澳字 ROM を 

樣灞装儂. 

標準価格69,800円 



( 商品番号149 | 一括払価格158,000円 ) 

( 商品番号150丨一括払価格 78,000円 ) 

1 rS 品番号091| —括払価格 55,000円 ) 

24回 

初回7,760円7,700円 x 23回 

12回 

♦刀回7,700円 7-100 円 X 11 回 

6回 

初回9,800円9,700円 x 5回 

、36回 

初回8,840 r 5,300円 x 35回 v 

回 

初回3,860円3,800円 x 23回」 

1120 

初回5,500円5,000円 x 11回ン 


襍聿僅格316.000円 


& 番 9 172 丨 一 ftUBMft 198.000 円 

S4« 

mbIO.BBOpi 9,6Q0n x 23n 

138 〇 

ub 8.040 n*B,700n x 3Sa 


FM 電源ボード 

CZ -8 BS 1 

¥23,800 特価 ¥20,000 

カラーイメージボード 

CZ -8 BV 2 

¥39,800 特価 ¥32,000 

立体映像セット 

CZ - 8 BR 1 

¥29.800 特価 ¥24,000 

テ v スクユニット 

CZ -503 F 

1?9.800 特価 ¥39,000 

データレコーダ 

CZ -8 R し 1 

¥^.8〇〇 特価 ¥20,000 

XI twin 増設 FDD 

CZ -53 F 

9,800 特価 ¥18,000 

24ピン漢字プリンタ （80 桁） 
CZ -8 PK 7 

? f 22 厕 特価 ¥100,000 

24ピン漢字プリンタ（136桁） 
CZ -8 PK 8 

? f 52 ,。。。 特価 ¥125,000 

24ピン漢字プリンタ （80 桁） 
CZ -8 PK 9 

9.800 特価 ¥74,000 


プオリジナルソフトウェア 


turbo Z*s STAFF 
CZ -137 SF 

¥19.800 特偭 ¥18,000 


ビジネス PR 068 K 
CZ -212 BS 

諸〇〇〇特価¥58,000 


C コンパイラ PRO 68 K 

CZ -211 し S 

??9.8〇〇特価 ¥34,000 


コスモステーション 

CZ -136 SF 

諸 sea 特価¥ 9,000 


ミュージュク PR 068 K 
CZ -213 MS 

iTsm 特価 ¥17,000 


Z*S PRO 68 K 

$1.000 特価 ¥49,000 


ミュートピア 

CZ -139 SF 

2.800 特価 ¥12,000 


サウンド PR 068 K 
CZ -214 MS 

ff 5 脚特価 ¥14,000 


ビジィレス AD 68 K 

5?8.000特価 ¥83,000 



大処分市（台数限定） 


CZ-801C 
定価¥119.800 特価 ¥15.000 
■ パソコン XI D CZ-802C 

定価 ¥198.000 特価 ¥16,000 
■ パソコン X1F CZ-811C 

定価 ¥89.800 特価 ¥18.000 
■プロッタプリンタ CZ-8PP2 

定価 ¥54.800 特価 ¥8.000 
■澳字プリンタ CZ-8PK2 

定価¥134.800特価 ¥12.000 
■コンクト FDD(2D) CZ-300F 
定価 ¥79.800 特価 ¥9.000 

■パーソナルテロツパ C2-8DT 
定価 ¥89.800 特価 ¥6,000 


①^全保証 ff^OK 
©全国無料配送 日曜配送可能 
『払回数は ^ z m 3 rn^ 6m 


④低金和クレジツト 実質 年率12.50〜23.75% 
⑮ FAX でも注文 0 K FAX : 0468(48)3273 

® その他広告以外の商品も取扱っております。お気軽にお問合せ下さい。 


お問合せテレフォン S 0468(48)3290 T / 


年中無休 AM 10 時〜 PM 10 時 


通信販売のお申込み方法 


電話でのお申込みは 


ハガキでのお申込みは 


株式会社 メティアショップ八イランド 〒239 神奈川県横須賀市ハイランド 3-9- 


安心と價頼の 
誌上ショッピング 


メディアシヨップ|爲だ謀/ 


神奈川県横項背市 

ハイラント 3-9-6 

r 239 ㈱ メディアショップ 

〒 ハイランド 

「I Oh! X 係 


► 当社は X - 6 的 00 の販亮 B 定店です 4 





















































































































• 

全商品保証書付(メーカー保証） 

• 

中古パソコン高額下取 

• 

お支払い方法自由(均等、ボーナス払い等)' 



営業時間 


当店は X 68000 の認定店です）どんなことでも安心してこ相談ください0 

★ X 68000 をお買上げのお客様にもれなくテレホンカードとゲームソフト(スペースハリア-)をプレゼント中/ 

0001 


SIB81 

• CZ-600CE (本体+キーポード) . 

參 CZ-600DE (カラーディスプレイテレビ). • 

• CZ-6ST1E (チルトスタンド) . 

•ブランクデイスケット (2 HD . 10枚）••… 


基本セツト 


VI セツト 


• ¥369,000 
•¥129,800 
¥ 5,800 
¥ 13.000 


■定価合 



¥517,600 


QTEL にて 
お問い合せください。 


XIBBOOOl 

參 CZ-600CE (本体+キーポード） . ¥369,000 

參 CZ-600DE (カラーディスプレイテレビ) ..…¥129,800 

• CZ^8PC 2( 熱転写カラー漢字プリンター）.. ¥ 69.800 

•CZ-6TV1 (カラーイメージ ユニット) . ¥ 69,800 

• CZ-6ST1E (チルトスタンド > . ¥ 5,800 

鲁ブランクデイスケット (2 HD . 10枚） . ¥13,000 


ク IJ エイト特価 


¥657,200 


グラフイツクワークセツト 


• CZ*600CE ( 本体 + キーポー K). ¥369,000 

• CZ400DE (カラーデ r スプレイテレビ) . ¥129,800 

•CZ-6PV1 (カラ-ビデオプリンター) . ¥198,000 

• Z ，s STAFF PR068K (グラフィッグソール) ¥ 58,000 

• CZ-6ST1E (チルトスタンド) . ¥ 5,800 

•ブランクデイスケット (2HD.10 枚) . ¥ 」 3,000 

■定価合計 . ¥773,600 


クし!エイト特価 


均等払い 

ボーナス 

¥19,420X36 回 

¥35,000 x 6 回 

¥15,300x48® 

¥30,000 x 8 回 

¥12,640X60 回 

¥25,000X10® 


■定価合計 . 

UB8000\ 


•CZ-600CE (本体+キーボード) . ¥ 369.000 

• CZ~600DE (カラーデ r スプ t イテレビ) . ¥129,800 

• CZ-8PC2( 熱 転写カラ-* 漢字 ブリンター) .… ¥ 69300 

• SOUND PRO68K (音色作成ツール) …¥ 15,800 

• MUSIC PRO68K (楽譜入カツール) … ¥ 18,800 

• CZ-6ST1E (チルトスタンド) . ¥ 5,800 

• ブランクデ f スケット （2 HDM 0 枚) . ¥ 13,000 


クレジット均等払い（頭金なし） 


¥22,970 X 24 回 


¥16,130 x 36® 


¥12,710x48® 


ク IJ エイト特価 


■定価合計 


¥622,000 


均等払い 

ボーナス 

¥15,500x36 回 

¥30,000 x 6 回 

¥12,220X48® 

¥25,000 x 8 回 

¥10,090x60 回 

¥ 20 , 000 x 10 ® 


が出た !I 


基本セツ 




基本セツ 


_CZ*830CBK (本体 + キ-ボート) . ¥ 99500 

籲 CZ"830DBK(^ -ディスプレイテレビ) . ¥ 98,000 

■定価合計 .¥197OT 


QTEL にて 
お問い合せください 


•CZ>881CBK (本体 +キ-ボード) . ¥179 朋〇 

•CZ>880DBK (珩-ディスプレイテレヒ) . ¥ 109.800 

•ブランクデ{スケット (15 インチ. 2 hd ). ¥10,000 

■定価合計 . ¥299,600 


mmm 

クリエ仆特価 


帕 品大パ-ぬセ H !! 

(期間：’88/彳月22日(金)〜31日(日)) 

•中古パソコン本体、ソフト付特価品あり。 
•周辺機器お買得品コーナー設置。 

❿新品ゲームソフト大特売。 


シリーズ 用周辺機器お買い得セール 




型番 

品 名 

定価 

特価 

CZ-503F 

シ洲.ディス外ライブは 

¥49.800 


CZ-8BS1 

ステレオ FM 音源 ボード 

¥23,800 

ク 

CZ-8BR1 

立体映像セット 

¥29.800 

| 1 

CZ-8BV2 

カラーイメージボード 

¥39.800 


CZ-8PC2 

熱転写 カラー 漠字 プリン^一 

¥69,800 

丁 

CZ-NM2 

ターボ 用 マウス 

¥13.800 

•ノ 

CZ-8EB3 

拡張 I/O ボックス 

¥33.800 

t 

CZ-131SF 

モデムターミナル 

¥25.800 


CZ-6VT1 

カラーイメージユニット 

¥69,800 

Mdb 

CZ-8BM2 

RS-232C マウスポード 

¥19.800 

TV 

CZ-8EP 

拡張 I/O ポート 

¥11,800 

価 

CZ-8TM2 

モデムユニット 

¥49,800 





クレジット均等払い ( 頭金なし ) 


¥10,780 x 24 回 


¥ 7,570 X 36 回 


¥ 5,970 X 48 回 


高価下取差額リスト ますはぉ電話て 


^7用 ビジネスソフト、ゲームソフト a 富に在庫あり、ご来店を。 
•送料はご注文の際お問い合せください。 


下取機種 

差額金 

新機種 

CZ-822C 

¥270,000 

► CZ-600CE 

CZ-800C 

¥285,000 

CZ-856C 

¥245.000 

CZ-804C 

¥175,000 

► CZ-880C 

CZ-801C 

¥170,000 

PC-8801mkIISR/30 

¥115,000 

CZ-801C 

¥120,000 

► CZ-870C 

CZ-850C 

¥105,000 

MZ- 2500 傲 ) 

¥125,000 


▲上記以外でも下取交換致します。ご相談ください。 


パソコン専門ショップ 


総合お問合せ先 sQ 3-486_6541 代) 


LC 7/- OT / TVF 渋谷庚港 


籲渋谷店 sr 〇3 4 86 -6 541(代) 


〒150:東京都渋谷区渋谷 1-12-7 三和渋谷ビル 
振込銀行:協和銀行渋谷支店® No 239313 


春横浜店 ©045-314-4 777(代) 振込銀行:三和銀行横浜駅前支店® Na 310852 



























































































































































■ ズレ B • 展示■大齡 


売り切れの際は 
ご容赦下さい。 


シャ-プ CZ - B 11 CR 蠤 ¥ r = : 

14 台限り ギ 19,000 mai 

シャ-プ CZ -820 C 爲¥69,8004 

E 台限り ¥ 37 r 000 ei 22 a 

シャ-プ CZ - B 22 C 

本体 

定価 ¥118,000蜂 

3 台限り ¥ 6 ^ r 000 Baal 

シャ-プ CZ - BE 0 D 

モニター 

定価 ¥79,800蛉 

5 台限り ¥31000 Eam 

シャ-プ CZ -8 B 0 G 

本体 

定価 ¥218,000蟀 

e 台限り ^ f 05 r 000 Bam 

シャ-プ CZ -880 DBK 

モニター 

定価 ¥109,800蜂 

E 台限り 到 5,000 B 2123 

シャ-プ CU -14 AG 2 

モニター 

定価 ¥84,800岭 

10 台限り ¥ 4 ^ r 000 

シャ-プ MZ _2531 

本体 

定価 ¥199,800峰 

E 台限り ¥ 93 r 000 E 23 D 

シャ-プ MZ -1 D 26 

モニター 

定価 ¥89,800岭 

£台限り ¥ 55 r 000 

シャ-プ MZ -2861 

本体 

定価 ¥328,000岭 

1 台限り rOOO 輪*如 






ツクモオリジナル 5 インチ 2D ドライブ 

TS - FDmkii 


• TS-FO MKI 】 にケーブル及び！ WW . 

二れだけでディスクシステムが使用 、 v ,。 

• CZ -503 FO ドライブ）、 CZ -502 F (2 ドライブ〉间等&です。 


特別価格 1 


2 t •ライフ羊 UOAJUU 
送料各 ¥ t , 000 

色は黑とベージュのどちらかをご推定下さい。 


► CZ-880C- 
>CZ-880D- 


•¥218,000 
•¥108,000 


合計定価 ¥326,000 

限定特価 ¥ 218,000 


Jm Z-BASIC 

(CZ-141SF) 
XI turbo シリーズ対応 （ 64KB メ 
モリー付 ）。 turbo Z をお持ちの 
方は turbo Z II に変身しちゃい 

^ tJ ：/ 特価販売中/ 


プ MZ -1 P 17 


プリンター（ケーブル付） 
定価 ¥79,800畤 


3台限り 料0,000 


シャ-プ CZ - BPD 3 3台限！3 琴29,000 


シャ-プ CZ -8 PC 2 .，字ニンタ-1台限り ¥55^00 ES 2 S 


シャ-プ CZ -503 F ^ジ^上ーディスク2台限り ¥39 r 000 ES 2 D 


シャ-プ CZ -502 F 


5*2 ドライブ 2D 


シャ-プ CZ -520 F 


1台限り ¥7^ r 000 E 2 SD 


3台限り歹夕芝,タクク ES 2 D 


アイワ PV - A 1 S 00 MKI 


1200/300ポーモデム 
定価 ¥26,800畤 


¥22^00 


ァィヮ PV - AS 400 ポーモデム ¥42^00 


オムロン MD -1200 E 蠲ぷ。『‘モデム ¥/ 9^00 


オムロン MD - S 400 A 


MNP 摞準搭載、エラーフリーモデム 
定価 ¥59,800岭 


プロたる者、 何事 もメモを忘れ 
ません。あ/うつかり…なんて 
許されないのです。あたりまえ 

のことをあたりまえにする- 

これがプロのあたりまえノ実践/ 
メモ 魔 入門〃の手引き付0あな 
たもこれでプロの仲間入りしま 
し上ラ0 


汐クモ全 S 総決算/ 

U 22 a スタート 

削業40周年の最後を記念して、この一年の 
感謝，こめてのツクモ全店、在庫一掃大棚 

3ら疋〇 売り切れの際はご容敎ください。 

尚、お窀姑でのお取0 K きご予約はいたしかねます。 


¥49^00 


ツクモ創業祭 

2/S 〜14 
特製 

「あたりまえ」 

セツト （非売品） 

ブレゼント/ 


XX B 日000買うならわばりツクモ 



• CZ -600 C (本体+キーボード） •• 

• CZ -600 DI 


特価輝 


……¥369,000 

ビ） 

800 


おすすめメニュー< 


拳圃像入力*ビデオ編集には- 

CZ -6 VT 1 

カラーイメージユニット 

特価販売中 

* メモリは多い方か-使いやすい 

CZ -6 BE 1 

IMB 增 IfiRAM ポード 

特価販兜中 

參これを使えば計算が速い/ 

CZ -6 BP 1 

»«演算プ〇セッサ 

特価販売中 

•ハードディスクがお求めやすく 
なりました 

20MB 八ードディスク 
特偭 ¥79,000 
40MB 八ードデイスク 
特価¥»备800 


參これであなたもプロイラスト 

Z’s STAFF PRO 68 K 

特湎 ¥49,000 

♦統仓型スプッド*:卜 

Kamikaze (神風） 

特価 ¥57»000 

• 通信ソフトならこれが一番.〆 

X Link PRO 68 K 

特領 ¥16,800 

•プログラムを姐める人は必需品.〆 

C Compiler PRO 68 K 

発売中/ • 


ツクモは、販売 K 定店です0 

ツクモでは X 68000 をお買い上げの方は「 X 68 〇〇〇つ一しん」（不定期刊）お送りします。 
X ファミリーをはじめ、シャープのことなら「クマ」にお任せ。7号店 2 F のシャープ専門フ 
ロアーは、お友達の知らない情報がキャッチできる（かも）。「ツクモで買わないとソンだよ。」 



〒101-91東京都千代田区神田郵便局私軎箱135号 
( f ) AM 10 時〜 PM 7 時 ㊣ 毎週木曜日•及び1/20 
誠に勝手ながら1/31は襴知しのため、 PM 6: 00閉店となります。 

5 号 店 803-251 0531 
7 号 店 803-253-4199 
ニユーセンター店 S03-251 0987 


ti+n 罨機 


株式 

会社 














































































7i Model 30 


'ife ； 


ssn ； Model30 治コ-ス 


CZ -822 C _■ 


•¥118,000 C 


CZ -8 BS 1 咖 * ポ-ド】… ¥ 23,800 CZ -820 DB 【 m ブト州.¥ 79,800 CZ -822 CB 【傅)……¥118,000 CU -14 G 【脈げ…レ-).¥ 49,800 
AN -58 C 2,980 CZ -8 BS 1 I が FMrt 1 …¥ 23,800 AN - 580•コン，‘-*-】…¥ 2,980 


HE システム搭載•コン^クトな 1 C 力ードシステム 


tujin /;Y コ-ス 


CZ -830 CB 祕. 


•¥99,800 


CZ -820 DBexW _|--¥79,800 CZ -830 CB _ • 
バックアップキット . ¥ 3,400 AN 580ンパ 


tuuin [j コース 


.¥99,800 
•¥ 2,980 


¥3.200 x ism ©なし⑱なし 


フレ d ムト秦 

今、ワールドインアオヤマ 
にて X -1 シリーズ X 68000 を 
お買上げの方にもれなく 



1•オリジナルファイフ、 
フロッピーホルダー 
2.グリーティングカード 
(カートは X-1G はのぞく） 
プレゼント 

だからここが違ろガ 

以前にワールドインアオヤ 
マにて) <- 丨シリーズコース. 
X 68000 コースを御注文いただ 
きましたお客様に限り上記の 
いずれかをプレゼントいたし 
ます。御希望のお客様に会員 
ダイヤルにてお客様のお名前 
だけをお伝え下さるか、おハ 
ガキにお名前とお電話番号、 
r フロッビーホルダー希望」と 
ご記入の上、お申し込み下さ 
い。大至急お届け致します。 
(尚、送料実費のみご 負担 下さい。） 
おハガキ宛先〒け0東京都 
豊島区 東池袋卜 28-6 ワール 
ドインアオヤマお客様相談室 
会貝サービス係 


Model 30 コース 


: Z -820 D 【デパブレ-】….¥ 79,800 


アオヤマではハードとお客様のお好きなソフトを合せて御購入出来るシステムを取っておりますので合せて御相談下さい0 



本社 東京都豊島区要町 3-38-1 〒171 池袋店東京都 豊島区 東池袋 1-28-6 〒170 



V に祕"I 


• I映るメデ{ァコ- 


^liLllJ T V に 


•い吹るメディァコー 


fc x-i turboz 及び zn をコースでお買い上げいただいた方全員にもれなく八イテク年賀状. 42®^ をブレゼント/ 

リアルな映像と音が創造力をかきたてる。 

ZH 登場0 



はしやぎすぎないのが 
立派1 




—恶— じ，メ 

I 二 i _ コース 


トスタジオ .Turbo Z”ZHi 

メインメモリ 128K バイト実装 NEW Z-BASIC 搭載 // 

コ-ス 2 


CZ- 880 CBW 
CZ -880 DB 心 


„ _ ーコ-ス 

CZ -880 CB 關……¥218,000 CZ -881 CB 關…… ¥179.800 CZ -881 CB ㈣ ……¥179,800 
-¥218,000 CZ -880 DB(*s が-卽レ-) ¥109,800 CZ -880 DE 旧卜⑽レ-】 ¥109,800 CZ -880 DB 出レ-， ¥109. 800 
-•¥109,800 CZ -6 ST 1 B (♦相ンド】 ••¥ 5,800 CZ -6 STlBcn ..¥ 5,800 CZ -6 ST 1 B (チ相川"¥ 5.800 
CZ -141 SP 2 •鼠*««圃¥ 18,800バックアップキット . ¥ 4,800 CZ -8 PK 7 °* • ¥ 122,000 



現金特価 


定価合計 ¥ 183. 000 


lUOBL 圆 BCTDQm QQB& 圓 [ | 





Model 1 


司 : i 


コース 


CZ -820 CE _ ……¥ 69,800 
AN -58 C 【的ンパ-，- 1—¥ 2,980 


定価合計 ¥72,780畸¥%, 抑// I 

¥3.000 xiON 

©なし⑩なし 

¥4,700 x 6 H 

® なし ㉚ なし 

¥9,200 x 炯 

©なし⑩なし 


tfelUT V I： n'l Mi Ml 


smc Model 


コニス 


¥ 69.800 CZ-822CB_- 


•¥118.000 



.200 峰現金特価 I 

¥4,600 

© l . snnit ㉚ なし 

¥5,900^ i . si"i 

©なし⑩なし 

¥ 7,600 x 

㊣ なし ㉚ なし 

¥1 1.000 ^ -mm 

㊣ なし⑩なし 


ワープロ店東京都豊, 


定価合計 ¥ 102. 780 


¥4,100 x：«；M 


¥6,000 x2iH 


® なし⑱なし 


©なし ㉚ なし 


¥ 3,300 x : 刪 


©なし ㉖ なし 


¥5,100 xi«H 

©なし ㉚ なし 

¥7,500^ i-jh 

® なし⑩なし 



定価合計 ¥ 417 . 40 (^ 現金特価 


¥ 5,900 

( g なし @1 「》U 

¥8,400 x 刪 

® なし⑩なし 

¥9,700 、训 "I 

© I . S 0 DI ) ⑩なし 

¥15.600xJiH 

® な 1 ⑩なし 


〒170 


•む映るメディア：: 


^liLlllT V に |im"J 




tuuin Lg コ-ス ^ tuuin [}) コ-ス 

CZ-830CB i 料] .¥99,800 CZ-830CBi^) .¥99,800 

CZ -820 DB 離浩ート… ¥79,800 CZ -830 DBl '^- l -¥98,000 
CZ -8 BSllitn .•… ¥23,800 バックアップキット •……¥ 3.4 


部網! 

WfTFIMIM 

¥3,600 x r - , i"i 

® なし⑯2乃 

¥4,800 x : «；| H | 

©なし⑱なし 

¥6,900 

® なし ㊃ なし 


定価合計¥201.200時 

現金特価 

¥3.900- IJM 

母なし⑱ n . i II hi 

¥4,700, a ; l"l 

©なし @ 


*r \ I映るメディア= 


む|吹るメディア：: 



CZ-870CB_ ……¥168,000 
CZ-870DB げ阳レ_】....¥ 109,800 




够なし ㉚ な I 
©なし ㉚ なし 


•初のマルチビジュアル端子搭載3.タテ•ヨコ両用タイプ 
. ジョイカード標準装備 4. 先進機能にもうれしい対応 



CZ-6ST1B け *… 川 …¥ 5,800 


¥6,400 x 3« i»i 


¥5,000 x 侧 


¥9,300 x 2 iii>i 


¥ 17,700 xi 2 M 


m 綱 i:i:i 


® なし⑱なし 


©なし⑯なし 


® なし⑱なし 


©なし ㉚ なし 


定価合計¥120.980_¥7/，如/? I 

¥ 3,400場” 

©なし⑱なし 

¥ 6,400 x i 2 i»i 

©なし⑩なし 

¥12,300 x 6 n 

©な1 ㉖ なし 


定価合計 ¥352,400蜂め?/ 

¥ 7,000 X 36 H 

©なし⑯なし 

¥ 5,400 x ikn 

©なし⑯なし 

¥ 10,100 xjiH 

©なし⑯なし 

¥19,100 xl 2 N 

©なし⑱なし 


ブランクディスケット卿細¥17,000 


定価合計¥184,800岭¥细 ，说 W I 

¥3,200 x 36 N 

©なし ㊃ なし 

¥4,700 x 24 M 

® なし⑱なし 

¥8,900 xi 2 H 

㊣ なし⑱なし 


CZ- 8220 体】 . ¥118,000 

バックアップキット【デ州¥ 3,400 


定価合計 ¥ 201.2004 現金特価 I 

¥ 3,600 刪 

@なし⑱なし 

¥5,200 x 241") 

® なし⑱なし 

¥ 6,700 x i«m 

©なし⑱なし 


定価合計¥222,600岭¥び汉说 W 

¥4,200 ^36 N 

©なし@なし 

¥6,000 x 24 W 

® なし⑱なし 

¥11,400 x 12151 

©なし⑱な 1 



定価合計¥173.4004¥你如 I 

¥ 3,300 xi 3 i"i 

©なし⑱なし 

¥ 4,100 xi>i 

@なし⑯なし 

¥ 7,900 x «h 

® なし⑱なし 




品 

製 

新 



どちらから始めるか、 • • 

どこから楽しむか。 •• 

も-つ遊び心はトップギア。 










































































































































































































及 


今、 H 6 S 000 C コースをお買い上げいただいた方全員にもれなく 

16ビット最速の68000だから … 


ちょっと触れてみた I 


イテク年賀状」をプレゼン 
特典いっぱいの X 68000 

アルカノイドプレゼント 


KSGBOOO 


1コ¬ 


ス 



CZ -6000— w >"¥369,000 
CZ -600 DI ぱ 二 价1 …¥129,800 
CZ -6 STl _ m “..¥ 5,800 


定価合計¥504,600 蜂 現金大特価 

¥ 7,200，1 

©なし⑯ 15 乃 

¥11,900，1 

©なし⑯なし 

¥12,800 >24 M 

©なし® 


XK6B000 


IS コ - 


ス 


CZ -600 C (料+-ボィ)••¥369,000 
CZ -600 D 腐 U …¥ 129,800 
CZ -6 ST 1 E ーント) ••¥ 5,800 
CZ -6 VT 1 69,800 


5 65.536 色同時表示の自然色グラフィックス 
6 ステレオた；芯 FM 音眉 & ADPCM 
7 ハイホシシ 3 ンのグラディウスも盆塌（同梱） 



科邵 i! l 

¥ 7.600 ， 1 "1 

@なし ㉚ 邪 " 

V10,900 x isi»i 

㊣ なし⑱なし 

¥13,400wi 

©な L 骑⑽ 


I 大容*メモリ制御にした 68000 を塔 II 

2 2M バイトの大容 a メモリ 

3 !$自のフレンドリー OS 搭鉸 

4 JIS 第1,第2水41,奠字 ROM の igfc 

今、 X 68000 をお寅上げのぉ客様に- 
•オリジナル X メンバーズカード電卓プレゼント籲「それゆけ XI 」 1 年間無料購読 _“ X 6800 GEXE クラブ”に入会 


シンプルさの中にも華やかさを持った XK 60000 


X680 □□ ソフト S 周辺機器 


下記周辺機器は現金特価をお電話にてお問い 
合せ下さい。本体と合せてお申込みの壜合汐レ 


タイトル 

足価 

販光価格 

,^ | y へ卜 

型 番 

商 苗 ぞ 

定価 

販充価格 

Kamikaze 

¥68.000 

現金特価 

統合型スプレッドシート 

CZ-6VT1 

カラーイメージユニット 

¥ 69.800 

現金特価 

サウンド PRO 68K 

¥15.800 

現金特価 

音色データ作成ツール 

CZ-6BE1 

1MB 增投 RAM ボード 

¥ 35.000 

現金特価 

スペースハリア 

¥ 6.800 

6.330 

美しい*速 3D グラフィックス 

CZ-6BE2 

2MB 增 KRAM ボード 

¥ 79.800 

说金料価 

Z5 STAFF PRO 68K 

¥58.000 

現金特価 

高速応用グラフィックス 

CZ-6BE4 

4MB 增投 RAM ポード 

¥138.000 

現金特価 

ミュージック PRO 68K 

¥18.800 

現金特価 

音源機能をフルに楝働 

CZ-6EB1 

拡强 I/O ボックス 

¥ 88.000 

現金特価 

ゼビウス 

¥ 8.800 

8.190 

専用ジョイスティック付 

CZ-6BG1 

GP-1B ボード 

¥ 59.800 

現金特価 

.レリクス 

¥ 7.200 

6.700 

アクションロールプレイング 

CZ-6BU1 

ユニバーサル1/0ボード 

¥ 39.800 

現金特価 


X-l Twin/X-1 TurboZ 用機器 


i " 番 

商品名 

標準価格 

現金特価 

C 2-53 F 

X-1 Twin 用 5項 設トライフ 

Y 19.800 

現金特価 

C 2 I 41 SF 

NEW Z BASIC 64 KRAMW 

Y 18.800 

現金特価 

C 2-8 PK 9 

24 トノト，奚字フリ ン ター 

Y 89.800 

現金特価 

新製品 X-1 シリーズ周辺機器 ± 

jTTQnSU] 


型番 1 

商品名 

標準価格 

現金特価 

CZ-8BV2 | 

カラーイメージボード 

¥ 39.800 

¥32.800 

CZ-8BS1 

ステレオタイプ FM 音*カード 

¥ 23.800 

現金特価 

CZ-8TM1 

モデム ュ ニット 

¥ 29.800 

現金特価 

CZ-8BM2 

RS-232C マウスボード 

¥ 19.800 

現金特価 

CZ-8RL1 

データレコーダ 

¥ 24.800 

¥19.800 

CU-14GB 

14型カラーディスプレー 

¥ 49.800 

¥29.800 

X-1 用 

ジョイカード 延長 コード付 

¥ 3.200 

¥ 2,900 

CZ-8BR1 

立体映像セット 

¥ 29.800 

現金特価 

X -1 用 

X-lturbo マウス 

¥ 13.800 

¥ 6.500 

CZ-8PK2 

18ドット漢字プリンター 

¥134.800 

¥29.800 

CZ-502F 

320K パイトデュアルフロッピー 

¥ 99.800 

現金特価 

AN-58C 

X-1G 用 RF コンバータ 

¥ 2.900 

現金特価 

CZ-8VC 

RF コンバーター 

¥ 15.800 

¥13.800 

CU14F/G 用 

スモークドフイルター 

¥ 9.800 

¥ 5.980 


I ’通 

CZ 8 PC 2 


龜 


第2水準漢字ロムがついて 
さらにコストもお得 

24ドット熱転写プリンター 
CZ-8PC1 .¥69.800 

XIシリ-ずケープル f.l 


| 定価合計 ¥69.80(HY 54.800 1 

¥3.300«18N 

©なし ㉚ なし 

¥4.900xi2H 

⑱なし诫なし 


限定販売 


CZ -8 PK 2 


18ドット漢字プリンター 
CZ.8PK2 .¥134.800 

(X ! F G Uiftio に播找で， i す J ケープ n4| 


定価合計 ¥134.800 峙 


¥3.200xlU|"| ⑥なし袖な L 
"V5.200 x6M |^) なし诚なし 1 


CU14G/FI をお使いの方の眠を守ります, 


買い替え大作戦 


下取檐種 

M 入機種 

差 額 

下取機獼 

講入檐種 

1 « « , 

X-1C 

XKL/C30 

i ¥ 64.000 1 

X-1G30( 本体） 

■(本体？ 

i ¥ 64.000 f 

X-1F10 

l¥ 59.000 / 

X-1G30( 本体 ) 

^7〜把ど(本体) 

\y 84.000 / 

X-1G10 

(本体） 

\V 58.000 / 

PC-9801U2 

PC -9801 

\v 168.000 / 

FM-new7 


V 62.500 / 

PC- 98011 JV2 

UV 21 

Y 108.000# 

X-1 ターボ 11 セット 


V 122.0001 

PC-9801U2 

PC-9801 

VM 21 

\ 198.00(/ 

X-1G30( 本体） 


Al 60.00〇/ 

PC-9801F2 

Al58.00f 

PC-8801FR30 

セット 

¥136.00/ 

PC-9801VF2 

¥138.0® 

PC-8801FH30 

¥ b 4.001 

PC-8801SR30 


¥ m.oiQ 

PC-8801 

PC-8801 

Ffi 

¥ 116.0#) 

PC-8801FH30 


v ll8.dD0 

PC-8801SR30 

v x.cpo 

PC-8801 MH 

PC-9801 

VX 21 

¥ \kioo 

PC-8801MR 

¥ 51100 

PC-9801F2 

¥ 18|Q00 

PC-8001/11SR 


¥ 13 JoO 

PC-9801VF2 

¥ 16^)00 

PC-8801/1I30 

PC880I 

¥11八00 

PC-9801VM2 


; U? 

PC-8801SR30 

¥ 8B.®0 

PC-9801 VM21 



PC-8801 MR 


¥ lO.oV) 

PC-9801U2 

P 匚 -2BEV 

STD 

¥jfc3.5(3b 

X-1F10 ( 本体） 

I 2 Z 7 twin ( 本体） 

¥ #73.8C» 

PC-9801F2 

¥143.501 

X-1 GK) •( 本体.、 

XSZ 7 twin ( 本体） 

V# 72.801 

PC-9801VF2 

^123. 5〇1 

CZ-822C + CZ-820D 


i y 314,0001 

PC-9801F2 


*252.0001 

CZ-870C + C2870D 

XI 68000 

1 f 283.00 0\ 

PC-9801VF2 

P 匚 -E 日 EV 

H 20 

1 232.0001 

PC-8801SR30 


PC-9801 VM2 

卜 160.000 \ 

PC -8801 MR 

セット 

#¥ 305.000 \ 

PC- 9801 VM21 

f ¥ 152.000 \ 

PC- 8801 FH30 

f ¥ 300.000 \ 

PC-9801VX21 

1 

『¥132.000 ' 

PC-8801 MH 


I ¥ 285.000 } 

PC-8801SR30 

PC -2 BBV 

STD 

¥163.500 

CU-14FA1 

CU-14AD 

¥ 45.000 

PC-8801FR30 

¥165.500 

KD-854 

KD-863S 

¥ 67.000 

PC-8801 MR 

¥158.500 


A©yflMA 

FOR THE EVOLUTION OF YOURLIFE 

お問い合せは 987 7771 


x-i シリーズシステムソフト 


» a =6 

機種 名 

(a « 

現金特価 

コスモステーション 

CZ-136SF(2D.5.FD 版) 

¥ 9.800 

¥ 9,200 

モデムターミナル 

CZ-133SF(2D*5TD 版) 

¥25.800 

¥ 13.800 

turbo ターミナノレ 

CZ-131SF(2D-5"FDK5) 

¥ 8.800 

¥ 8.100 

ランゲージマスター (CP MS) 

CZ-128SF(2D.5FD 版） 

¥ 9.800 

¥ 9.200 

turbo CP/M (漢字版） 

CZ-130SF 如. 5TD 版) 

¥14.800 

¥13,600 

ミュートビア 

CZ-139SF(2D-5TDKg) 

¥12.800 

¥11.700 

シ 

'J 

X 

FORTRAN 

CZ-115LF(2D.5TD 版） 

¥13.800 

¥12.600 

C 

CZ-n6LF<2D.5TD 版) 

¥13.800 

¥12.600 

turbo LOGO (漢字版） 

CZ-117SF(2D.5'FD 版） 

¥18.800 

¥17.000 

COBOL 

CZ-118LF(2D-5'FD({S) 

¥13.800 

¥12.600 

PROLOG 

CZ-119LF(2D.5TD 版) 

¥13.800 

¥12.600 

LISP 

CZ-120LF(2D-5'FDKS) 

¥13.800 

¥12.600 

AP し 

CZ-126LF 

¥13.800 

¥12.600 


x 6 OT ) でアルカノイトノ 


V ) 




お得: 


■ビス 


I 「初めて j はバソコンの基本です） 

初めての方でも、ぜひ一度訪ねて下さい。最新 
1商品からグレードアップされた中古まで、豊富 
な在庫の中から、経験豊かなスタッフが基本か 
ら応用まで適切なアドバイスを致します。_ 

I 激安金利に簡単クレジット 

商品が決まったら、お支払い計画は係員にお任せ下 
さい。月々の金額からボーナス設定までお客様にぴっ 
I たりのオリジナルコースをお作りします)口ータスクレジ 
ットはワールドインアオヤマとクレジット会社とのオリ 
I ジナルプランニングにより、大幅な手数料ダウンが実 
現したものです。_ _ 

|アフターサービスも万全 

もしご使用中、機種に異常や疑問を感じられた 
|場合、どんな小さなことでもご質問下さい。専 
[_ 門のスタッフが適確に診断、_お答え致します。_ 

|見て、触れて、納得して下さい 

ショールームでは、お客様に一切声をかけない 
こともサービスの一つと思っております。お客 
様ご自身でじっくりとお選び下さい。_ 

I クーンとお得な下取システム 

今お持ちの機種を高額下取。僅かなご予算で上位 
機種、新品にシステムアッズ差額をクレジットでもお 
[_ 受けしておりますので尚一層お徳です。_ 

|うれしい代引システム 

商品の到着をご確認頂きその場で直接お支払い 
|下さい。日.祭日も OK 。 日付、時間の指定も 
1お受けします。（離島の方は代引できませんので 
ご了承下さい。）_ 

| VIP カード「以£»勿 tfj 

商品お買上の皆様に及カードをお渡し致し 
ます。次回からお電話あるいは店頭でお名前だけおっ 
しやって 下さい0全てのデータが登録されていますので、 
買換やシステムアップ時に会員価格でご提供等、特 
[典一杯の弓蛍ぃ力-ドてす-_ 

|もしも初期不良があったら 

お買上当初より異常がみられる場合、1週間以 
内にお電話下さい。お荷物をお宅迄ひきとりに 
参ります。当社にて再チ X ック後別商品と交換 
1させて頂きます。 


AV 事業部東京都豊應区東池袋1 一28 — 6〒170 


株式会社ワールドインアオヤマ 









































































































































































































PMOCom パソコン 


ム 

局 

の 

限 

定 

お 

買 

得 

品 


〔 2,000 文字ディスプレー〕 

CU-14G 

NEC. SHARP, 富士通 . 接玫。:能 


Q 


CU-1 扎 【 B.EK8 ビン RGB ディスブ U-) 

49.800 


PC-1501 
CE-150 

【 ..• r~B 

: m o a a 00 o _ 

i 

_ _ _ _ a a a _ _ m a _ u a 

tammmmmttma 壽癔 

説得力がちかう 

ポケットコンビューター 

0 由にて， 66儀の■ノフ t キーグラフや 
E1«J て紀11て，*グラフィ/クフリンター 
l»t/H r 内* IJ 

K 15()1 64.8004 

CE150| d”. ，’ ド 49.80 o y も棚 y 


SHARP 


"SSJJ'iMMTMxi^L 


この t ノト 

に CZI4IS 
F を 11 ける 
と turboZII 
になります 

VZI 8.000 • VI20.000 
10 9.800 »V 79.000 

セ ノト合 ttv347.i]oo» ¥ 198,000 



SHARP 


この t 

CCZI4IS 
F を付ける 
と turbcZH 
になります 
CZ 8801151 y 218.000 • VI 20.000 
CZ880DB...—.V 10 9.800 •¥ 79.000 
セット金針 V 347.000 酴 ¥198,000 



SHARP 

CU -14 FA 2 



I NKOlib 2000 Z トアチ"ダデ< 龙プレー r- ブ办 

NEC MMOi KK SR MH KH MM KA MAlllc 
x-/w- 

定価 Y 54.800 . yj も (WW 


NEC f 辞刪 

PC - 8001 /II SR 



PC-8001 IISR 【料） ¥89.800 
定価 ¥89.800 ■♦¥ 瓜卵〇 


^ XTJ プリンタ • 
CZ - 8PK2 i ヶーフル w 

CZ-8PK2mr^M" ¥ 134.800 
定価合計 ¥134.800 峰 ¥ 撕 

X 〗• 〆 リース全ての本馎に播时可蚱 


ilipi 一二 

<MSX^7^> ^ 

HC-90tl2HK.3SK^^ttJ 

定価合計 ¥168.00(H¥ 瓜 (WW 


f ノふ，:,， 


^o/ii 


SMARP 

ISZ 7 ブ，ノンター^^ 

CZ - 8PD3 9’ ドットフ’リンター 

定価合計 ¥54.80(H ¥/ あ及伽 

8 PD 3 ブリンターは 8 PK 2 と兴なる為に 
漢卞出力は出来 I せん。 


麵 

定価合計 ¥32.800 岭 ¥24,WW 


灃射式シヨイハット付 . 拄立 10 キーを搭數 

FS-Almk2- ¥29,800 

発光紀念価格 ¥28,800 


FS-AIF. 

発売 K 念価格 


^o/4i 

¥54.800 

¥ 48,800 


篇士通 

rM77j^ll4uJEX 

-jtXW/AO セ y 卜 Y2I7.000 
FM-77AV40EX y 168.000 

FM TVIjl ¥138.000 

セット合計 y 306.003 • ¥200,000 



SHARP 

〔 2.000 文字テ V スプレー〕 
NEC 、 SHARP 、 富士通、接枝可能 



CZ-H70CH !♦•»).¥168.000 

C7-870DB ( デ〇ブレー :…¥ 109.800 

セット合計 ¥277.80(H¥ 148,000 


CU14FA1 [8.21 ヒン KGB デイスアレ -: 

定価 ¥54.800 峙： |^ あ说 W? 


中古及ひ新品にかかわづす .x I シリース及ひ X68000 をコースてお霣上けいたたさ 1 したお客 « 全 R にもれなくフロ ノ匕ーホルター • クリーティンクカートをプレゼント ' 


NEC 


PC-TV352 〔新品同樺 )… 
CZ-600D(BI 


6001シ U —ズ本体 


PC-6001MKI1 [家庭用 TV に〇 | 接可能〕 . 

PC-6001MKII SR[RF モジユーレーター付） . 

PC*6601[i5> • ライブ付、家庭用 TV に瘋接可能 〕" 
PC-6601SRU5K ライブ付 . 家®用 TV に B 接可能 〕- 


• V 84.800 - Y I JJHHt 
■ Y 89.000 ► Y 20.0 iHf 
•Y 143.000-* Y 25.0 (Hf 
■VI 55.000 ► Y : UUHKt 


8001シリーズ本体 


PC-8001MKII.Y 123.000 ► Y I2,_ 

PC- 8001 MK11 SR.Y 108,000 ► Y 14JHH) 

PC- 8001 MKIISR ( 新品〕 .Y10 8.000 ► Y 





(tMH> 

12JUH) 

7 •侧 

り .500 

MHHt 
OJUMt 
7 州 tO 


•Y 12.800- Y 
••Yl 98.00 0- Y 
•Y1 88.000 ► V 
•Y1 28.000 ► V 
•Y 12.800 -V 
•Y 12.800 -V 
' 12.800 -V 
-Y 19.800 -V 

J NEC 本体に接 ft でさるティスプレーを紹介 
»2000 文字デイスプレー（デジタル） 

PC KD20I. ¥ 59.800- ) ULOOO 

PC KD25IK.Y 59.800 ► Y 20.000 

PC-KD351 Y 998.000 ► > 2(t.OOO 

CU 14G£.Y 49.800 ► Y 20M00 

CU14FA1 [ 新品同樺） .Y 54.800- V 2 f )MOO 

CU UFA? 【アナ a ク ?000 文？ NEC«E • ヶ - フル flUJi 品 ； Y 54.800 -V : ti.lHMt 
CU UGB [ 新品阎 «: . ぺ . c：> Y 2”: 議， 

Y 43 300 ► Y 2^.1100 

CU UG 及ひ CUUFAUJNEC.SHARP • 畜士 li 他の本谇に墦枝てさ i す 

•2000 文字ディスプレーテレビ 

PC-TV151 Y 94.800 ► V rJJHH) 

CZ-811D.Y 89.800- > : 

CZ-82CX ( 新品同椹〕 .Y 89.800 -V V2M00 

•4050 文字デジタルディスプレー 

Y 118.0 00- V 12.000 
• Y 99.800 ► Y 4H.000 
PC 8853NtO ?lt / チ RGB, VI 68.000 •> 4UMOO 

•4050 文字アナログディスプレー 


) 【 BUa 彼】 ( 新品同 !!} . 

參その他 

PC-6041 〔 2000 文字モノクロ） .Y 36.800** Y HJtOO 

PC.60M43 〔 15 色ディスブレー ；! .Y 65.800 -V UUHH) 

PC-8851(4050 文字グ 1 トンディスプレー） .Y 58.800 ► Y 20.0 (Ht 

大特他品に間しましては.お電 » にてお問い合せ下さい O03-987-7771 

お使いの本体に合うディスプレーをお気》にお問い合せ下さい 


TF20(5 • フロッピーディスク n システムディスク . ケーフメ咐） Y1 42.000 ► Y : i tJHH/ 
K-305( 両面倍密ディアルフ a ノビー） YI 28.000 ► Y : iHJHHt 

PC-803 卜 2W(5 • フロッピ - ディスク）（システムディスク . ケ - ブ 48.000 ► VW 金大衿 ® 
PC-80S3U5 • フ a ッピーディスク ）（ システムディスク • ケープ M 寸） Y 168.000 ► Y tHJHH) 


I 88017 x ア中 

現金大杇通品に間し i して話にてわ間い合せ下 a い O03-987-7771 


E2SB 

PCPR401 [ ザーマルプリンター 】_ 


Y 228.000 ► Y 2 UHM) 
Y 266.00 0- Y 2fUtOO 
•Y1 68.00 0- Y : U, 000 
Y 275.000 ► Y .ViJHHf 

Y 275.00 0- Y 59.(MMt 
Y 275.00 0- Y (AiJHHt 
y? 58.000 ►v m(m 


: -KD551 - 
C-KD651K 


PCKD852 


' 99.800 ► y ^0.000 


PC-KD854 .Y 89.800 ► Y 52JMHt 

PC-KD854 [ 新品） …… ^^ 89.800 ► y 5 ： i, 000 

PC-KD862( アナロク TO8 〕 .Y 99.800- V OHJHHt 

PC_K0862 [ アナ a 沖 G8] 〔新品同梅 ] … ¥ 99.800 -V 70AHH) 

CU-14AD 〔アナロ外 GB ビデオボード対応〕（新品同 «)• ¥ 84.800- 

•4050 文字アナ a グ、デジタルディスプレー 

CMT-146U アナロク KG8). V 89.800- Y IS.fHHt 

CMT-146U アナ aMB) [ 新品同裼） … Y 89.800 -y 52.0(H) 

CU14AG2 [ アナ Q ク .Y 84,800 ► V '47AHH) 

CU14A4 【アナ a ク WBJ 〔新品间 《1 .Y 89.800 -V 49JUH) 

•4050 文字 2000 文字デジタルディスプレーテレビ 

CZ 8700[ 新品同 《].Y 108.000 -y M.O(H) 

•4050 文字 2000 文字アナログディスプレーテレビ 

PC-TV351.Y 129.800** Y 7HJHNI 

PC-TV453N [ ビデオボード対応）【新品间榷〕 ¥ 138.000► L ㈣ ， I 細 


PC-8801 

PC-880U , 興 字ロム付） . 

PC- 明 01 1110 . 

PC • 明 01II 30(5 ドライフ 2 徵缵设 ) 

PC-8801 II 30(5 • ドライブ 2 機增投 ) . 

PC-8801 1130(5 • ドライブ 2 機標準装備 ]" 

PC • 明 01115 只 30[5_ ドライブ 2 機增投 ）- 
PC-8801 1 げ咖ぼトライブ 1 機襟灌装儂） YI 48.000 7:i.itOO 

PC-8801 IIFR30[5 • ドライブ 1 機增设） VI78.000 •- Y H5JHMI 

PC-8801 UFR30[5 • ドライブ 2 機懞準装儂） Y 178.000- Y HHAHH) 

PC-8801FH20.Y 138.000*- Y 

PC-8801FH201 新品同抝 .Y 138.000 ► V 92.00 (t 

PC-8801FH30.Y 168.000 ► V WAHHi 

PC-8801 FH30 [ 新品同 》Jj VI68.00 0- 

PC-8801 FA.Y 168.000- Y/ 20,000 

PC-8801 IIMR 【 lM/< イトドライブ 2 镟標瀑装«〕 . V238.000 ► Y 

PC-880IMH ¥208.000 ► Y IWUHHl 

PC-8801MH [ 新品同枝】 .V 208.00 0- \12UHH) 

PC 棚 IMA. ¥198.000- Y/ HUfOO 

PC-88VA. Y 298.00 0 ► K / TtUHH) 


9801シリーズ本体 


256K 增投ラムポード 【 10NH: 対応 H 新品】 Y 39.800 

256K 增投ラムポート -[10 データ ][ 新品） ¥14.8001 

512K«f 投ラムポートて 1 0 データ】（新品） . V 20.000' 

1MB RAM ディスク [RAM^ ィスクソフト付） [ 新品 ) .Y 45.0001 

15M8RAM^ ィスク [RAM^ ィスクソフト付）（新品） .Y 58.5001 

PC-9801E[*a ム付 ) . V245.00 0' 

PC-9801U2.Y 298.00 0' 

PC-9801UV2.Y 318.00 0' 

PC-9801UV21.¥318.000' 

PC-9801F2(5 • ドライブ 2 機樣準装 « ).Y 398,000 

PC-9801m,(1M パイトドライブ 2 機樣準装儂】 Y 415.000 

PC-9801VF2[5T ライブ 2 檐讎準装 «) Y 348.000 

PC-9801Vm*(5 • ドライブ 2 褫 _ 摩 * 僅〕 .Y 415.000 

PC-90OlVm21.Y 390.000 

PC-90OlVm21 [ 本体】【 « 品同様〕 V 390.000' 

PC-90O1VX2.Y 433.00 0' 

PC-S80WX2U 本体 ) .v 433.0 00- 

PC-S801V1UU 本体 ] . V 630.000- 

LTmodel 1(I 



RP-80F T II[ シリアルブリンター） . 

GP-500M 〔シリアルブリンター】 . 

PC-8826( カラープロッタープリンター） 

PC-PR103( インパックトラインドットプリンター〕 . 

PC-PR104 [ 日本 « プリンタ ー J 
G10XPJ[PC-8822 対応） [ 新品同樺） 

PC-6022 [ シリアルプリンター〕 

•ドット漠字プリンター 
RP80F TUK[16 漢字プリンター） 

GP-550M[16* 字プリンター :) . 

•熱転写漢字プリンター 

PC-PR406M[24 熱転写プリンター） . 

PT-PR406M(»fo D o). 

PCPR101TL(2 仆ット 1(K ンチ】 

PC-PR101TL ( 新品） . 

AP-80EX PC[24 ドット）〔新品同様 ] . 

PC-PR406(24 魍転写 1 字プリンター） 

PC-8825(24 熱転写プリンター ) 

TR 24CL[24 カテ - 写プリンターケーブル付】（新品） 
•24 ドット 10 インチ漢字プリンター 

PC-PR101. 

PC-PRI01F 【第 Z 水 : la ム付】（新品 ) . 

PC*PR101F2 【 «2 木準漢 a ム付】 f 新品两様 ] 
fW- 9700[ カラープリンター】（新品同榷 ] 

VP-800(PC セノ ト n 第 2 水 4D ム付 KSifiJ. 

•24 ドット 15 インチ漢字プリンター 

PC-PR201 . .. 

rw- 940 0S [ 新品同様〕 . 

hW-9400. 

PC-PR201H. 

PC-PR201H2 【カラープリンター） . 

PC-PR201H2( カラープリンター）（新品同 ») 

PC PR201V2(15 カラープリンター】【新品限定 8 台 ] . 

PC-PR201F . 

PC.PR201F2[*2 水車 * a ム付 〕. . 

fW-9950( カラープリンター〕 . 

NM 995011 [15 カラープリンター K 新品限定 5 台） . 

VP130K ( カートリッジ，ケーブル付） . 

VP135K [ カートリッヂ . ケープル付】【新品限定品） 

參その他 

PC-IN502( イメージスキャナ〕 . 

PC-IN503( イメージスキャナ）〔新品同格） 

PC-lf603H [ イメージスキャナ〕 [ 新品同 «1 


Y 39.800 -V / ふ _ 

Y 89.000 •- V 

Y 49.800 ►► "JMW 
Y 148.000 ► K : iHAUHt 

Y 89.800 ► Y 2：UHtO 

¥ 99.800 : WJMtO 

Y 99.800- > : i2AHH) 

Y 29.800- Y / 1.000 

Y 129.000- Y : Ut._ 

Y 119.800** Y 2UMHt 


Y 59.800- 

Y 59.800-' 

Y 79 800- 

Y 79.800- 

Y 69.800 ► 

Y 99.800- 1 
Y1 76.000 ►' 

Y 73.700- 


: ivjm 

4()AHMt 

4HAMM 

49MHt 

ifum 

tHJHHt 
: UUHPO 
IUHH) 


iMSfcfigg 

HDD-20S[EPSON 20M ] [新品同 
SP-5Z0 【ュ - ス 20MK 新品同 U 卜 
HD- 4020 【ICM 20Mj t 新品同《】 


Y 238.000 -V 5H.OOO 
vi58 000- > MAHM 

Y1 38.000 ► Y 92.000 
VI63.00 0- YIHUMMI 
- y 124 000** > り HJMW 

V298.000 -K 7HAHH) 
V310.000 ► V" 川 ,""" 
¥310.000- Y HHAMH) 
¥288.000 ► Yllttjm 
¥245.000- K/.iT.WW 
¥245.000 ► YKt'KiHUi 
Y 298.00 0- \215.(HH) 
¥188.000- Y 
VI 58.000•- V 96,0 (Mt 
¥245.000 ► Y125JMM) 
¥245.000- \ 165.000 
¥177.000- V 7H.OOO 

¥177.000- v uum 

•Y 99.800 -V 67 脚 
Y 149.800- Y11 5.0 (HI 
¥165.000- V /26.WW 

• ¥ 198.000 州 i win 

•¥118,000- Y 74.8(H) 

- V 230 00 0- YI . V)MOO 


SHARP 


PC -98 LTrrv 


1 [ 新品同梅） 


Y 238.00 0- YI 76,0 U(t 




本社東京都鳌島区要町 3-38-1 亍171 


池袋店東京都豊島区東池袋 1-28-6 亍170 


ワープロ店東京都豊島区池袋パールシティー〒170 












































































































































































INfORMAIION 


fl©YAMA 

J FOR THE EVOLUTION OF YOURLIFE 


1 ま f 編下卽 ™ 

小さななせ.？これば 


これは？と思ったら…どんどんお電話下さい 


マでは皆様からのお電話をお待ち I / C おリます。その他 
メーカーの/ぐノコンとの比較、接«方法など、お客梅の 
小さななぜ？これは？といったご質問にも視切にお答え致 U す 


1 


1 


お支払方法 

❶うれしい代引システム 

面倒なお彳辰込みの手間がはぶけます商品の到漪をこ確認 m きその場て直 
接お支払い下さい日•祭日の配送も OK 日付、時間の指定もお受けします 
(離岛の方は代引できませんのでご了承下さい） 

❷もちろんクレジットで/クレジットカードも〇 K / 

ご都合に合わせてお支払い金額.回数を設定てきます預金なし月々3.000 
円よりあとは係員にご相談下さいお客格にひったりのコースをお選ひ致しま 
す右のクレジットカードをお持ちの方お支払いは1回ネムいですお申し込みの 
際 I カード名 2 会員 No. 3 有効期限をご連絡下さい 

カートてお申し込みの塌合.販売価格か変わりますのてお電 I 舌にてお問い合せ下さい 

クーンとお得な下取りシステム 

今お持ちの機種を当社にて高額下取わずかなこ予算で上位機棬、新品にシステムアッフ差額をクレ 
ジットてもお受けしておりますので尚一層お徳てす買換えをグーンとお徳にした下取システムはユーザー 
の皆様にきっと满足いただけるはすてす 



中古パソコンを価格だけで選んではいませんか7 

ワールドインアオヤマの中古は他店にはマネのできない程多岐にわたる厳しいチェックをパ 
スした特選品揃いです。企業よりの消耗品は一切扱っておりません。勿論、全商品マニュア 
ル • ケーブル付ですので新品購入と同じ気分でお求めになれます。私共の自慢は価格だけで 
はありません。 


パソコンの 買 取り、査定、注文 


03 - 98 7-7771 

不要になったパソコン高く買取ります。 
電話1本で査定し買取ります。近郊の方 
なら池袋店に直接お持ち下さい。代金は 
その日の受け取り。 

※ワールドインアオヤマでは、即金にて 
¥500.000円までお支払いさせていただきます。 
•今す ぐ 注文はこのダイヤルへ 

パソコンの下 取0•買取り 

03 - 986-6103 

今お持ちのパソコンを下取りに出したり、 
買取りに出す場合のシステムや送り方を 
この電話にて説明しております。_ 

中古商品在靡センター問い合わせ 

03 - 986-6104 

その日の在庫のリストが全てわか0ます。 
在庫は毎日変わりますのでお気軽にお問 
い合せ下さい。注文センターはあなたか 


らの電話をお待ちいたしております。 


電話受付時間 


籲月 Ml 日〜金曜日10:00〜28:00 
籲土 •日曜日•祭日10:30〜19:00 


SHARP 


画 

MZ-1500. 

MZ. 2200 〔 DR1 寸〕 . 

MZ2500 30 . 

MZ-2500V2 【 MZ-2531 〕 [ 新品 〕 • 

MZ2861( 本体） . 

CZ-600CU 6800 0} 【本体） 



CU14A4(4050. アナ a グデジタル RGB 〕 〔新品同様〕 


CU14FM〔2000 文字カラ -]( 新品 « 定品 〕…… 

MZ-1022〔4050 文字ディスプレー〕 . 

MZ-1026(4050 文字ディスプレー〕 [ 新 *« 窆品〕 • 


x-U 本体、ディスブレー , 


ラム ） •_ 


X-lTurbolI ( 本体〕 . 

X.lTurbo II 〔ディスプレー〕 


CZ-B70C[X-lT u rboHl 〕 （本体〕（新品 II] 椹〕.… 
CZ-8700(X-I Turbo III ： 〔ティスフレー〕 ( 新品罔 ?*) 

CZ-870C 〔 X-lTurbolll 〕 〔本体〕 . 

CZ. 8700 (X-lTurboHI 〕 （ディスプレー ] . 

CZ-880D 【 X-lTurboZ 〕 【ディスプレー 〕… 

X-1F 10 〔 CZ811 本体） . 

X-1F 10 【 CZ-811 本体〕（新品 ] 

X-1F[CZ811 デイスプレー〕 . 


•¥ 89,800 ►y 23MM) 
• V 147.800-y 10.000 
•¥ 199.800 ►y 62.000 
¥ 199.800 

¥328.000 - y 258,000 
¥369.000- 


V 89.800 -y 49M00 

V 54.80 0 ► y 

•V 99.800 ►¥ 4'J.OOU 

V 89.800- ^ 69,800 

¥1 55.000 5X000 

VI 78.000 

¥119.800- ^ (tOAHH) 

•y 168.000- y mmm 

¥109.800- Y (tHAHH) 
•Y1 68.00 0- Y Ummtf 
V10 9.800 ► Y OUHHt 
¥109.800- Y 7HAHH) 

V 89.800 •- V i(“m 

V 89.800 I6M00 

•Y 89.800 ► Y 37 細 


x .: F [ CZ -811 D ディスプレー〕：新古垠定品 ] . V 89.800•- Y 39SOO 

X -1 F 20( CZ 812 本体】 .Y 139.800** Y 56^00 

CZ.800C [ 本体 .G ラム付】 .Y1 55.000 ► f 16.000 

CZ-801C 【 X-1C 本体） .Y 119.800 ► V 16,000 

CZ.803C [ 本体） . VII9.800 ► Y KtM(H) 

CZ-802C 〔 X-1D 本体〕： lii 品间 《: .Y1 98.000 ► Y 19.000 

CZ-8200[X-1G 用ディスブレーテレビ） .Y 79.800 ► Y .VJM(H) 

CZ. 8200 [X-1G 用ディスプレーテレビ〕〔新品〕 .Y 79.800- V 12,800 

CZ-820C[X_lGModeil0 本体） .Y 69.800** V 23MOO 

CZ-820C(X-lGMo<JeUO 〕 〔新品间搛） .Y 69.800 2UI(H> 

CZ-822C(X-lGModel30 本体） .Y 118,000** \ MUMtO 

C2-822C 【 X-lGModel30 本体 K 新品 ] .Y11 8.000•- Y 0<JJiOO 

CZ-830C[X-|Twm) [ 本体） v 99.800- ¥ MMOO 

CZ-830C 【 X-|Twin 】 （本体）【斷品】 ¥ 99.800 0 現金珥通 

C2-880C [ 本体〕 . V218.000 ► V lOOJHH) 

C2-380C(x-l TurboZ) [ 本体】 【 ?SS 品： . ¥218.000 ¥120.000 

X.1 TurboZc / h 【 CZ-880CB+CZ-880DBn 新品刚 * 】 ¥347.800- Y198.000 
X68000 セット 【 CZ-600C + CZ600D 〕 . ¥498.800- > : m.(HM) 

CZ-8VC(X-1 用 RF モジューレーター〕 . V 15.800 -y / 1.000 

CZ .8 VC [ X.l 用 RT モジューレーター〕〔新品〕 . V 15.800- ¥ 13.800 

CZ-8KR 〔瀆字 a ム〕 [ 新品〕 .Y 38.000 -K 15.900 

CZ- 明し 1 〔データーレコーダー〕 .Y 24.800 ► Y HJtOO 

CZ-8RL1 〔データーレコーダー】【新品〕 . V 24.800 ►y 19MO 

CZ-300F〔3 フ Q ッビーディスク〕 .Y 59.800 28.000 

CZ-503F 〔 5 シング ( レディスク〕 .Y 49.800 ► ¥ 37.800 

CZ-502F 【 5 デュアルディスク〕 .Y 99.800 ► ¥ 5tU)00 

ディスクに U1 兄ケープルシステムディスク付 

CZ-88V1 ( カラ _ イメ _ ジポード〕 . V 39.800 ► ¥ 25.000 

CZ-88S1(FM 音 J ポード） . V 23.800 -V 10,000 

CZ.8EP [拡 «10 ポート）【新品 ) . V 11.800 -V V.«W> 

CZ-8EB3(K»! 0 ボックス】（新 * 】 ………………133.800 ► >现食特優 


CZ-139SF 〔作曲•編集が楽しめ 4 ミュージックグ Ji イタ ) 【新品 ）¥12.800 ►y 11.700 
豪 CZ-139SF は FM 音月ボードが必要となります 

VI23.800 ► Y 20.000 

CZ8PP2 〔プロッタプリンター ) . V 54.800 ► Y 9.800 

CZ-8PP2 [ 新品〕 .Y 54.800 ►y / 2.000 

C2-8PC1 〔 24 熱転写プリンター〕 .Y 69.800 4S.000 

MZ-1P14 〔 MZ 対応シリアルプリンター〕 . V -54.800► Y 28.000 

MZ-1P17 〔 24 熱転写漢字プリンター〕 . V 79.800 ►V 37.000 

MZ-1P17[24 熱転写 * 字プリンター , ケーブ M 寸） [ 断品 〕 Y 79.800 ►r 42.800 

C2-8PK2 〔 18 瀾字プリンター〕 . VI34.800 ► ^ 19.800 

C2-8PK2( 18 瀆字プリンター）（新品】 . ¥ 1 34.800- nn glTH 

Kiwa 

PC 1246DB (新品同 ft) Y 

PC 1248DB ( 新品同樺） .Y 

PC-1360 〔新品〕 . V 

PC-1360K [ 新品〕 .. V 

PC-1500. V 

PC-1501 〔ポケ • ノトコンピュータ〕 [ 新 ft). V 

PC-1600K ( 新品〕 .Y 


7.900 ► ¥ 6.2(H) 

n . coo -^' 

29.800 23.000 
36.800 -r 29.000 
59.800 17.000 

64.800 ► Y I9MOO 

69.800 ► Y 55.000 



FUJITSU 


圆 

FW-7.VI 26.000 18,000 

FW-NEW7 .Y 99.800 ► Y 20,000 

FM-77L2.VI 93.000 59.000 

FW-77L4. ¥238.000- y 62.000 

™-7702 ¥ 228.000- K 54.000 

™_77AV1 .¥128.000-K 59.000 

™*77AV2.¥158.000- ^ 69.000 

FM-77AV20EX [ 本体 ] VI 28.000 -K 

FM-77AV40EX [ 本体） ¥168.000- ¥I20.(HH) 

CU14FA1[2000 文字カラー)[新品阎 樺) .Y S 4.800 ► Y 2'UIOO 

MB-27343[2000 文字カラーディスプレー） .V 67,800 26.000 

C2-820D[2000 文字デジタルテレビ , ケーカ M 寸】 ¥ 79,800 ► ^ は 000 

CU14FA 〔 2000 文字カラーディスプレー〕【ケーブル付 ） .. . V 49.800 ► Y 29.000 
OJ14FA[2000 文字カラ - ディスブト） （ 21P ケ - 力咐 ） (fft) ¥ 49,800 -y ： i ： i.000 

J^fSSSBESM 

MB- 27611 .VI 28.000 ► Y 58,000 

N*•27603[ シングルディスク〕 .V 440.000 ► ¥ 52.000 

MB- 27631 〔 15• ディスク〕 .V 85.000 ► ^ 58,000 

LFD550FM 【 5 • ディ スク .IF ケープル付 j 【新&】 … V 98.000 ► ¥ 68.800 

KJbOrm 

SP-800F 〔セイコー社 . シリアルプリンター） ^^ 64.800•- \ 28.000 

GP-500F 〔セイコー社 . シリアルプリンター） ^^ 49.800 ► Y18.000 

GP550F[ 16 ドットプリンター】 VII9.800 -y 20,000 

MB 27409 [シリアルプリンター ) . ¥ 79.800 ► V 30.000 

搬 7502 . V 12.800 -y 7,200 

27502 (irfl). V 12.800 9.800 

MB 27501 . V 12.800 -y 6.000 

pHc-DRn [新 a).v 12.800 9.200 


EPSON •日立乇〇问丫乇丁八闩 


PC-286V-STD 〔本体〕 .v 298.00 0- Y 220.000 

PC-286V-H20 【本体】 .v 443.000 ► Y.VWJMM) 


盼 20S 〔 rt)3.5 インチ 20MB. l/Rr- ブル付）〔新品） 

HC-20 〔ハント • ヘルド . DR 付〕 . 

FF-80 [ プリンター ) . 

TF-20 [ フロッピーディスク） . 

HR-5 〔 80 サ ー 7 ルブリンター〕 . 

LFD550 [ フ □ ッビーディスク〕 . 

FT80[80 ケ外ットプリンタ-〕 . 

MP80[80 ケ ;? ドントプリンター 〕 • 

AP80K(80 ケタ熱転写プリンター】 . 

〔〇ム+ケーブル +第 2 水ム付〕 

(H0XU1 〔シリアルブリンター〕 . 


VI98.0 00- \ 

VI63.800 ► V 30,000 
Y1 49.800 15.000 
VI42.000 ► V : iS.000 

V 49,800 ► V HUm 
•Y1 48.000 ► Y : itt.000 
■V 89.000** Y 15.000 
■V 89.000 ► Y 15.000 

V 80300 -K 35.000 

V 74.900 ► Y HJHH) 


MSX 


HC-95 〔 128K ドライブ 2 綦イ寸】〔新品阎格】 (MSX »〕 V 198.000- Y1 22.000 

«0-90[128»< ドライブ 1 碁付）〔新品 [*1«1 〕〔啲ズ 1 〕 VI 68000 •- Y 78,000 

FS-4700F[128K トラづ 1 基付】〔ワープ □. パソコン ) 【斷品闻欉 ]¥158000** V 78.500 
FS 460 0F[128K ドライプ 1 基付 ): ワ - プ Q ハ VX/) ( 新品同亂 ……¥138000 ► Y W.fUH) 

CF1200 [ ナショナル , RF.16K). V 58800•- > リ 

CF2700 [ ナシ 3 ナル , RF 、 32K). V 59 800 *■ V / li.iHHt 

CF 3000[ ナショナル .RF.64K 〕 . V 79800 ► K I ').000 

fs-pwi[msx 用プリンタ - 〕 [ 新品 is ) 糨卜 、 49800*- y : mm 

FS.FD*1 〔 MSX 用 35 ディスクユニット〕〔新品间袖〕 Y 44800- V UMX) 

«6-020 叫 1^( 用 3 5 ディスクユニット） [ 新品 (111«) ¥ 44800 ► V 35JtOO 

HC-30 [ ビクタ - .RF.32K) [ 新品） Y 34800- Y n.HOU 

HC-60 [ ビクター . RF.32K 〕 [ 新品 ] Y 64800- Y IftMOO 

HC-30( ビクタ -' RF.32K) Y 34800 - V l：UtOU 

«-55(SONY.RF. 16K) … Y 54800- Y 9MOO 

HB-10KS0NY. RF.16K) . V 46800- V •J.HOO 

HB-20US0NY.RF.16K).Y 79.800 -V 9JtOO 

PHC-33(+f>3- RF.DR.64K) Y 59.800 --V 24.000 

™.X[RF, 16K). V 49800 ► v ^M(H) 

WH21 〔日立 32KRF 〕 . Y 49.800 ► Y l ： i.UOO 

HX -100 [ 東芝 . RF .16 K 〕 V 67800 10.000 

FS - A 1 [ナショナル MSX ,128 K ) … … Y 29800 ► \ JIMOU 

FS-A1 〔ナショナル MSX,128K )〔 新品间様品） .V 29,800 ►K J：UlOO 

FS-Almk? 【ナショナル MSbIZSk) 【析古品 1.V 29.800 ► V 21,900 

FS-A1F 【ナシ 3 ナル MSX,3 5FDD 内藏〕 ¥ 59 800 ► V PUUHt 

PHC-23[MSX,128K.2 スロット） [ 新品〕〔 « 定品】 j 32.800 ► Y 24.000 

HB-FI [SONYMSX, 128KJ. V 32.800- Y n.UOtt 

HB-F1/1I 【 SCNYMSX, 夕-ホ打)【新品间 HU. V 29 300- Y 26M00 

HB-F1XD 【 S0NYMSX,3 &FDD 内鼠 ) 【新品间拽 ) V 54 8000 Y UtJlOO 

グラフぐ； / クエディター [ 耳圓楽 -3 5 IDO ソフト〕【新 &«)(*) ¥12800V 9.000 
NGAII【MSX 用モデム） V 14800- V IUUH) 

リンクスソフト 【 MSX 用 ROM) V 5.000- 1 見金特 ® 


全商品一年間の 
総合保険付 

パソコン君は、とってもデリケート。取り扱いは 
注意が必要です。けれどもろっかりコーヒーをこ 
ほしてしまったら…/そんな時でも大丈夫/ワー 
ルドインアオヤマは東京海上火災保険と提携し、 
全ての製品を一年間保険付で販売しています。商 
品が火災 • 爆発 • 破曲損 • 盗難 • 水濡れ等の様な 
損害を受けた場合には、保険金が支払われます。 


AV 事業部東京都豊島区東池袋1 -28 — 6〒170 


株式会社ワールドインアオヤマ 



















































































































































^ agoPgg 文節変換もできる 
QiiliS 待望の 

昼識を実現。 

DoncfonncicaKai C^JC3E3E312SJ j 

PC-1360K (漢字 対応 ) ¥36.800 PC-1360 沩ナ対応 ) ¥29.800 

* 8 K バイト RAM カード CE -2 丨 2 M <丨枚〉棵準装備。 

拡張 RAM カード(オプション） 

籲表示も印字も見やすい漢字対佑 ( JIS 第1水準 •+ 人名)*使！ ■ ，やすい文節変 
換入力ん•式。 ( PC -1360 K のみ） #RAM カード2スロット装 iii 人 G 4 K バイト 
まで拡張吋能。*#24桁 X 4 行 （150 X 32 ドット)の兄やすいワ仆'ディスプレイ ( PC - 
1 360 K の漢字は9桁 X 2 行) 0 •シリアルインターフェイス装備。#プログラム編圯 
機能 ( RENUM、DELETERS 度な漢字 BASIC 搭躲 ( PC -1360 K のみ)。 

• B 5 サイズの•体化が阂れる7色カラードットプリンタ CE - 1 40 PK ( 別;；^接絞 
で漢字はもちろん、グラフや W 形も、7色カラーで兄やすく衣％。 

♦ 別売の CE-2H32M2 枚装着時 

•PO1360 ¥29,800^¥19 S Q00 

•PC-1360K ¥36,800 今 ¥32,800 

•PC- 250 0S ¥85,000 今 ¥53,800 


アセンブラに便利な 
論理演算槪能装備 

8.2K パイト RAMaUe 実装 

CASL 突破のための受験対応機。 

PC-1445 ¥17.800( ハードカバーつき） 

•悄報処邱技術名试験に出靼される CASL のアセンブ^シミュレータ機能を 
装備。空攔穴坪め問超をそのまま人力能な空欄命令を搭故.•クイックコマ 
ンド人カガ式。■メニュー選択もす V - くできる4モジュール構成の CASL 梭能。 

• n 進論理演铎機能，符号•ワード M 指定機能.独 、 Y _1 G 進キー採 IH でアセン 
ブラ作業の効串化を龙视。籲周辺機器と接続できるインターフェイス装 

•PC-1425 ¥26,800 今 ¥23,800 

•PC-1445 ¥17,800 今 ¥15,800 

• PC-1475 ¥26,800^> ¥19,800 



カラーブロッタプリンタやフロッピーとの一体化も可能 

JIS 第•水惟の漢卞機能を装猫。本体内蔵 RAM16K バイトに加え，■の 
ブ a グラムモジュール CE -1600 M < RAM 32 K バ仆 )2 {W を2つの拡张 Mi スロット 
にセットすれば.般人 80 K バイトのメモリエリアが確保 "f 能。また.内逋の RS - 
232 C インターフェイスを介してハ V コンとのデータ交換が"【能。 

•テキスト表示： 4行表示モード26桁 X 4 行 ( ANK ).2 行表示モード9桁 x 2 行 
(漢字） *19 桁 x 2 行 (ANK く半角文字》、グラフィック表示： 156 x 32 ドットの液晶 
表示拳 JIS 第一水準漢字 ROM を装備•プログラムモジュール CE -1600 M (別 
売)を2個装着 l/C RAM 最大 80 K パイトまで拡張可能 • RS -232 C インターフェ 
イス、光 SIO インターフェイス装備•アナログ入カポート装備 

•PC-1600K ¥69,800 今 ¥58,800 

•CE-1600P ¥69,800 今 ¥58,800 

•CE-152 ¥19,800^ ¥15,100 

• CE-1 600 M ¥32,000 今 ¥22,000 

• CE-1600L 、 1601L 、 1602U603L 

各 ¥6,800今 ¥5,300 

•CE-1605L ¥4,800^ ¥3,600 


RS-232CI/F の接統例 


漢字対応•大容置•通價機能 

カラープロッタプリンタやフロッピーとの一体化も可能。 
PC-1600K ¥69.800( ソフトヶースつき） 

4 色カラープロッタプリンタ CE-1600P ¥69.800 
ポケットデ f スクドライブ (2.5 インチ） CE-1600F ¥39.800 
ポケットテ V スク（ 1 〇枚 I 姐） CE-1650F ¥9.800 
プ d グラムモジュール (32K パイト RAM) CE-1600M ¥32.000 

■表示に印字に見やすい漢字対応 (JIS 第I水準） 

漢字の茳训いずれかの統みを人力し変換できる中•漢 
変換 Jj •式。 別壳の文節及 5 換«丹モジュール CE - H 550 
M を装矜すれば文節変換も" f 能です。 

■最大 80 K パイトまでの拡張性. 

実務に強い高速処理。 

標準次装の 16 K バイト RAM に加え、プログラムモジュ 
ール CE _1600 M (32 K バ仆 RAM > を2個まで内蔵可 
能。また、処理速度は約 2.5 倍（当社 PC - 1500シリーズ 
比}のスピードアップを実現しました。 

■4 色カラープロッタプリンタ、フロッピーとの 
一体化も実現。 

A 4 サイズに9枰の文字サイズと <1色（黑•界令•赤)で、 

ち密なグラフィックや澳字 t 衣视する CE -1600 PJV 而 
64 K バ仆の A ： 容 M メモリと商速ァクセスを誇る CE - 
160 OF との•体化も可能。 

■コミュニケーションの輪を拡げる通信機能0 

RS -232 CI / F . 光 SIO を榡咿装備。ハツ コンとの データ送受仿な どが "f 能です。 
また、 ft 禅センサ ー t 抟絞 したシステムにも 対応できるアナ n グ人カポートを装備。 
♦PC-I500 シリーズの豊富なプ □ グラム (BASIC のみ）や周辺機器が使用可能です。（一 
部修正が必要なプログラム、使用できない周辺機器があります。） 


ボケコン総合カタログ並びに特価表差し上げま1■。切手70円を 
同封の上当社へお申込みください。 

■PCH600K システム図 （ PG- 彳 600K 霉用阳迅柵器） 



よ<わかるフンガ入門書 
「ボケコンまんが塾」つき。 

费しみやすい手鞋な入門機。 

匪… nil ■一 ■HliilMi r . ¥7.900 

ItMi ® へ n 仙 - ： . い:ベで K.'n.k.AM 
d. 織， 

ィ能： 

BSBSPB SSPdfl ^ ^ iEi 実務に威力を発揮する 

10 K バィト RAM 。 

BESSS^^SRiH PC-1248DB ¥11.000 

HMMiMBJ ? 腿漏 孤" r 能： 

* 名前 i 6 文字 • 電話番号 i 6 桁，但し、表 
計算 ， BASIC ブログラム使用時ば上圮 
人数より少なぐります。 

(PC-I248DB には「ボケコンマンガ塾」はついていません） 

* PC-1246DB/1248DB は従来機 PC-1246S/1 248 より BASIC 命令の数が少 
なくなっています。 

•PC-1246DB ¥7,900^¥5,980 

•PC-1248DB ¥11,000 今 ¥9,800 

广媒】:_ BASIC を 

E) _ a Q..C3 EL_Q a a a C3 知らなくても使える / 

0 s.MMle.Q 0 q a o a o ビジネスシミュレーションソフト内蔵 

p-0 a 0 @ a a Q^pjo a O D PC-1262 ¥24,800 

l^! 3 _®EL©.. 0 S QJC^) a B a a ( ハ - ドカパーっき） ’ 

• iH 穿式を記愤させるだけで 0 K 。 あとはコンピュータが問いかけてくれる、ビジ 
ネスシミュレーションソフトを 内;*•プログラムでつまったら 、コンピュータが 教え 
てくれる、3つのヘルプ機能採(①コマンド、ステートメントの使用例が確認 
できる BASIC リファレンスガイド②アルファベット小文字など特殊キャラクタが 
探せるキャラクタコード③エラー個所とその内容がすぐわかるエラーメッセージ 
衣ボ機能） 

•PC-1262 ¥24,800 今 ¥21,800 

有効桁 20 桁の 倍精度 BASIC 採用。 
使いやすい折りたたみタイプ。 

8.4K パイト RAM 本体内蔵 
I ※拡張 RAM カード ( オプション〉 

I PC-1280 ¥24.800 

•ぬ;梢度演铒、戈務針算力を発 
I 神:する倍 m 度 BASIC 採川。 • Ji い数 
I M データの衣示、プ a グラムの人力や 
|確認がスムーズな24桁2行衣ポ。•沿 
1人 MK バイトまで拡張能•な RAM 力 
-ド方 A 。 ラムファイル機能も装備。# 
I ポケットデ f スクに対芯。•次:務に役立つ 
■ 3桁 K 切 1 )、任,®設定の九め機能格* L 
»1#機能。•ローマ字—カナ変 
,換機能。*別充の CE -2 H 6 4 M 装*時 

•PC-1280 ¥24,800 今 ¥21,800 

•CE-120P ¥24,800 今 ¥21,800 

(PC-1 280用一体型プリンタ） 

mCE-130T ¥17,800^>¥14 9 800 

/ PC- 1360/ I360K/ 1475/1425 \ 

12500 S/ 用 RS-232C コンバータノ 
※ CE- 158、 130T 又は PC-1600K お買い上げの方にボケコン 
通信ガイドブックプレゼント 




MBIT 

アイビット電子株式会社 

〒192東京都八王子市北野町 560-5 


广 0426_45_3001~3 

FAX-0426_44_6002 

镰営業時間 :10:00 〜 19:00 
爆電話受付： 20:00 迄可 
• 定休日：日曜日 ( 祭日営業 ) 


イ言用をモットー 


全通販 
国僵売 

北海逍から沖縄まで 


★送 n はご m 义の際にお i ! u い介わせドさい。 

★褐故の商品は、すべて靳品、歸.•です。 

★拟敉の商 , v ，は充分 m , ca てありますが.ご n : 义の阶 
は、化冲:の確•ぶの丨.、祝命ノ:-切または、鍋わ拟込で 
お中し込みドさい。令的品クレジットでも扱っております 
★ お中し込みの際は必ず屯,沾拆ひを叫, hi してドさい. 
★ irtiiV し品切れの節はご界敉卜さい。 


富士銀行八王子支店（普）1752505 


ビジネス&サイエンス^{ールドを I 、っきに拡げる。 


PC -1501 ¥64,800 (ソフトケースつき） 

•自由に設定できる6個のソフトウェアキー （18 種類が使用可能） 

#ミニグラ:? イッ ク表示が可能。 

システムアップのための充実したオプション群 
■グラフや図形まで記録する4色カラーグラフィックプリンタ、 CE -150 
¥49,800(カセットインターフェイス機能内蔵）■バッテリーバックア 
ップ型プログラムモジュール、 CE -161 ¥50,000 ( RAM 16 K バイト)、 
CE -159¥35, 000 ( RAM 8 K バイト)在庫僅少■専用カセット レコーダ 
CE - 152¥19,800 ■ RS -232 C インターフェイス 、 C E -158 ¥ 39,800 
(パラレル I / F 内蔵)在庫僅少 


隱 

せ .‘“ i 

1 a LJ LJ CJ CJ ta m m(Si 

1 oaaanaoaoamQaGQCDta 

1 ： aaoaaanaa mcsna e o 

1 aasaoiaanii mao 31313 

1 月屮 □*= ■ 叫男 1 ^ コ囚 ° 恩風 13 1 

n 



• PC-1501 ¥64,800^ ¥19,800 

• CE-150 ¥49,800 今 ¥10,000 

• CE-161 ¥50,000 今 ¥10,000 

• CE-158 ¥39,800 今 ¥34,800 


0234562 S20 



023456720 







































































































他にもカラーモ ニ ター ¥1 8,000より各種在庫あります> 


隱 JjQ-lip 

/ •シャープ CZ -820 DTV 付•シャープ CU -14 I 

.77^3 ^¥44,800 (=_ 


•シャープ CU-15M1 
定価 ¥9^9. 8004 | 

特価 ¥78,800 


M 


•; -プ CU-14C|l 
(14 型） 

2000/4000自動切換 
定価¥108.000り 

特価 ¥59,800 



iV/ 


niec pq-i 

14型〉； 


特価¥39,800 特価¥89,6 



►シャープ CZ 87 OD - TV 付’ HpK * •シャー:モニター M +12 P 2 

(M 型〉 （白） （1 禅）モノク〇 ? 

2加0/4000自動 切換 •シャープ CLf 14 GE( 14 型） 4050文字 

定価¥109,80む{> ■定価¥ 49 .宇00今 定価¥39, 800— 

特価¥85,000 特価¥2分，石00 特価 


60 M 43 ♦シャープ fc ： Z -600 D ( lS 型）♦シヤ4■プ CZ 880 D : •シャーブ MZ -1 D 10, 

(14 型〉 ； TV 付； TV 付 04型）! 2思?/ 2S2 050 文字 

定価¥65,800呤 定価¥1129,0004 定価$109,800■ル ^ Laz 人 一-！ハハ 

- 800 特価 ¥87,8(X) 特価 ¥27,000 

菅士通 fm - av 2 用 
■L 拳 シャープ CU-14FA 
⑴型） 

(14 型）（々ラー4050/ カラ-2000文字 

アナログ デジタル RGB ) アナログ RGB 

隹価 ¥89.8(|〇呤 奉価 ¥49.800 

=彳 _¥49,8GG 麵29,800 

(XI用アダプター. ¥4,000) _ 


^SS^SP 二 ；-—':* 




參シャ ープ MZ- 1 D26 • NEC PC-TV352 

走価¥ 89 . 8 〇0— （彳5型） 

特価¥69,800 ^^ ¥,15 - 00 ^ 

I 特価 ¥79,800 

~i - n - 


• シャープ Cl |- 14 AD ( 14型） 
ド*>|トビッチ0.辛1〇 
—2 卿砸デ □L ナルス:ギャシ 
定価¥84,8010呤 

特価¥6ァ,800 


•シャー:^ CZ - 300れ3々><1)； 

定価¥ 79 .000 >特価 ¥13,000 

丨ベーシック - W 301 イ y タフエース:^ 一丨 
セット 合計 4 101,600 ぅ¥20,000 
(3 インチゲ—ムソフト7枚セット-‘3 

ズ幸機種 A4Z 2000/2200/80「 . 

700 に 使用可。 

フロッピー スク參3 イ Y チ両面倍： 

ドライブ形球 • シングドライブ(增參により 2 ド 
ライブ可能:！記愴容® • 320 バイトライブ 
- feia &5®-®«250 Kb ii /^ 

• 3 ィンチ生デ< スク 1 枚 480円 


ズバ U お買得セツト/ 


10 B /4500/ 

法度 



•シ 1 ，ープ X1G(CZ-822CB) ®X1 ターボ Z 

•シャープ 14型 カラー （CU-14GB) 參〗5型 カラー 

合奸 ¥167,800が 合 ft ¥347.8004 

特価 ¥98_000 特価 ¥198,000 


Z(C2-880C) 

—TV；(CZ-600D) 
,800が 


關織才■プン 


1月!!4日 


IB 油 IGt ■ル鼸! 


オーブン記念 BIG セール期間中にお買し、上げの方に特別値引き他、粗品進呈いたします。期間1月24日〜1月30日 


本誌発売時には、下記価格表より、さらにお求めやすい価格に変更さ tl てしヽる*合があ D ます〇 


本体 

• シャープ CZ - 600 C . ¥ 369,000呤新年大特価/ 

• シャープ CZ -822 C き; 一 付).. . 特価 ¥ 99 ， 800 

_ シャープ CZ -881 C(xi ターボ か..…新発売！ ¥ 179,800 
• シャープ CZ -830 C ⑺ツィン)… ……新発売！ ¥ 99 ， 800 
1B ビットパソコン 「MZ 書院 j 

•シャープ MZ -286 卜”.•…¥ 328,0004新年大特価/ 

•シャープ CZ -811 C * . ¥89,800今 ¥34. 800 

•シャープ CZ -802 C ( R ). 特価 ¥25,000 

•シャープ CZ -803 C . .… • ¥ 119,800^¥ 29,800 

• シャープ CZ -820 C .. ¥ 69,800 ^¥39,800 

參シャープ CZ -870 C . ¥ 168,000呤 ¥128,000 

• シャープ CZ -880 C • (在庫限り)¥ 218,000呤 ¥ 120，000 
• シャープ MZ *2521 -¥ 198 , 000 呤 ¥ 85 ， 000 
•シャープ MZ - 552 V . …………¥ 388,0004 ¥65,000 
•シャーフ％6541(在庫処分品）¥ 650,000吟 ¥ 170,000 

• NEC PC -9801 VX 4 . ¥ 693 ,000 今 ¥ 380,000 

• NEC PC 98 XA 2 . ¥ 695,000呤¥ 170,000 

• NEC - PC -8801 mkllMR ……¥ 238,000今 ¥ 128 , 000 
•NEC PC - 9801 UV 2 レ.…，¥ 390,000今アイビット価格 

• NEC PC -<6601. 特価 ¥19,800 

•富士通 FM 77 AV 1 . ¥ 128,000今 ¥65,000 

•富士通 FM 77 AV 2* ……158,000今 ¥75,000 

籲富士通 PM 77 AV 20-2“. ¥ 168,000今 ¥89,800 

拳エプソン PC -286 V $丁0へ¥298,000呤新年大特価/ 


拡張機器他 

•シャープ CZ-141SP(I 思ポ-ド） •• ¥ 18,800今 ¥16,000 
•シャープ CZ-8N 川ジョイカード).•…¥ 1,700^ ¥1,500 

•シャープ CZ-8EB-3(xi 拡張 I/O ボックス） . ¥28,000 

春シャープ CZ-8EP(xi 拡張ポート) -¥11,800 今¥10,000 
• シャープ MZ-1U01 (2000用拡張） • ¥ 37,000 今（在庫切れ） 
參シャープ MZ- 1 U02 (3500用拡張). • ¥ 20 , 000 今 ¥ 7 ， 000 
• シャープ MZ -1 1)03(700 用拡張) • ¥ 35,000 今 ¥ 15,000 
• シャープ MZ -1 1)05(5500 用拡張） .. ¥ 丨 2,000 H> ¥8 , 500 
• シャープ MZ- 1 U09(2500 用拡張）…¥ 9,000 今 ¥7 , 200 

• シャープ1 R01+1R02X2. ¥ 55,000今 ¥ 18,000 

•シャープ MZ -1 E 24232 C カード.，¥ 丨 9,800 今¥ 16,800 
•シャープ CZ -8 BK 3( 菜諮^)…¥ 13,800 今¥11,700 
參シャープ CZ -8 BK 4( 籮雜き M ) …… ¥6,800 今¥5,700 

•シャープ MZ -1 T 02 . ¥ 19,800 今 ¥8,500 

• シャープ MZ -1 M 03 ( 勢 1 セッサ _). ¥ 69 , 000 今 ¥35，000 


• シャープ CZ-8VC ぼ冗？ター)…¥ 15,800今 ¥ 13，400 
參シャープ MZ-8BI04(GPIB 力一灼-¥45,000今 ¥18,000 
•シャープ MZ-1R09(5») ……¥ 35,000呤 ¥25,000 
• シャープ MZ-1 R10(^ O m ) …¥ 30,0004 ¥ 12，000 


•シヤ - 


.¥80,000 今 ¥40,000 


• シャープ MZ-1R18( ふ •.…¥ 18,000 今 ¥12,000 
• シャープ MZ-1R19 ( ぽ吳字 ROM ). ¥ 35 , 000 今 ¥ 15 ， 000 
參 シャープ MZ-1R23 ( 漢字 ROM)... ¥ 1 9,800 今 ¥ 12,000 
• シャープ MZ-1R24 ( 辞書 ROM)... ¥ 22,000 今 ¥12,000 
• シャープ MZ-1R26A (索 .. ¥ 1 5 , 000 H> ¥ 12 ， 800 
• シャープ MZ-1 R27A (泛癸 抑…) •• ¥ 1 3 , 000 呤 ¥ 10 ， 000 
參 シャープ MZ-1R28A ( 爲 f 2 恐 m)... ¥ 1 3,000 今 ¥ 10 , 000 
• シャープ MZ-1 R29 (；^ 泥 J .…¥ 32 , 000 今 ¥ 15 ， 000 
• シャープ MZ-1R37( はぽ ? ィ ル )…¥ 35,80 〇今 ¥29,800 
參 シャープ MZ-1T03 データレコーダー ¥ 12,000 今 ¥8,500 
參シャープ CZ-8BGR(xi 夕ーボ用 )…¥ 14,800 今 ¥4,000 

籲シャープ CZ -8 BS 1 (ステレオ fm 音源ポード) . ¥ 19,500 

•シャープ CZ-6PV (努^ター)…¥ 198,000^ ¥168,000 

• シャープ CZ-52F(xi F 增設) . ¥ 34,800今 ¥22,000 

•シャープ MZ - 2000 /2200/80 B /700 用 (？ などん— スヵー ド） 

. ¥18,000 

• シャープ MZ -1 E 15( ふ?^ィス) .¥ 35 , 000今 ¥ 28 , 000 
•シャープ XI 、 MZ 用マウス . 特価¥4,800 

ブリン ター 

MZ- 2500 ，X1 シリーズ 

參 NECPC-PR201F2. ¥108,000 

•シャープ MZ -1 P 27( 水平プリン外.¥ 268,000今 ¥214,400 
參シャープ MZ -1 P 28( 飾ブリン外 . ¥ 148,000呤¥ 118 , 400 
• シャープ MZ -1 P 29032 桁プリンタ).¥ 168,000今 ¥134,400 
•シャープ MZ -1 X 29( 光学マゥス)……¥ 13,800呤 ¥11,000 

•シャーフ。 MZ -1 P 17($ H 苦プリンタ） 

. ¥85,800吟 ¥42,000 

• シャープ MZ -1 P 09( は咒君）…¥ 47 , 600呤 ¥ 15 , 000 
• シャープ MZ -6 PllQTJ 2_1^: シート) •¥ 95 , 000 H > ¥35 ， 000 

•シャープ CZ -8 PP 2 ⑶ポ 4). ¥ 54,800今 ¥9,800 

• シャープ CZ -8 PK 2( 漢字) . ¥ 134 , 800呤 ¥ 39 ， 800 

• シャープ CZ -8 PD 2. 特価 ¥ 29 , 500 

• シャープ CZ -8 PD 3. ¥ 59 , 800今 ¥ 19 ， 800 

•シャープ MZ -1 P 10 (漢字プリンタ-). ¥ 245,000 今¥95,000 
參 シャープ CZ -8 PC 2( 焚!^) ……¥ 69,800 今 ¥57,500 
L«NEG PC - PR 405.01 (2 水準漢字〉…¥ 23し800今 ¥8,9001 


• 日立 MP-1053( 茂 f タンター）¥ 315 , 000 今 ¥ 158 ， 000 

フロッピーディスク 

\m シャープ CZ .503 晻.“ム年戏.加 i 

• シャープ匸2-502卩(5，，2〇乂2)(;^1ケレ兑-*ス)……¥75,000 

參 シャープ MZ-1 F07(:J：$7 ぶース) . 入荷予定有/ 

•ラウンドシステム LDS -5 UV ( UV 2 デ<スク） 

. ¥78,000今 ¥65,000 

ソフト 

• シャープ MZ -2 Z 013(^ ig os ) .…¥ 25,000今 ¥21,000 
• シャープ MZ -2 Z 017(|^, C3 ) … • ¥ 20,000今 ¥ 17 , 000 
•シャープ MZ -2 Z 032( i ^ BASIC )〜 ¥ 12,000今 ¥6,000 
• シャープ MZ -8 BD 02(80 BF 、 dos ) …¥ 50,000今 ¥ 15,000 
• シャープ MZ - 2000 CP / M デジタルリサーチ* …¥35,000 
• シャープ MZ -80 B CP / M デジタルリサーチ••… ¥35,000 
春シャープ……¥ 50,000今 ¥42,500 

•シャープ MZ-1Z-005 . ¥ 25,000 今 ¥21,500 

•シャープ MZ-1Z010 (織/ GP 、 IB ) … ¥9,500 今¥8,500 

16ヒットボードキット 

•MZ-1M01+ 漢字 ROM . 


. ¥18,000 

SHARP ポケツトコンピュータ 

• PC -150 U 本体） ... ¥ 64 r 80 Q ^¥ 19,800 

參 CE -150( ヵラ第^1ック).•: . ¥ 49,800呤 ¥ 10.000 

參シプ CE ;，52( データレコ:■ダ)...¥ 19,80 (H ¥9,800 
•シャー ^ CEi 〗27( マイクロレコ—グ) • ¥ 19,8004 ¥6,300 
•シャープ PA 7000(電子メモ帳)… • ¥ 19,8004¥17,800 
その他周辺機器、起特価.グ例えば、 

• プロダラムモジゴ—ル ( ee 161)“ ¥ 51310 oa 今 1 ¥10，000 
ボケコン総合カタログ並びに特価表を差し上げます。 

^200を同封の上、当社へお申込みください。 



MBIT 

アイビット電子株式会社 

〒192東京都八王子市北野町 560-5 


C0426-45-3001^3 

FAX.0426-44-6002 

_営業時間:10:00〜19:00 
爆電話受付：20:00迄可 
•定休日：日曜日(祭日営業) 


イ言用をモットー 


、品をより安く、迅速にお届けします. 


★送料はご沈义の陬にお問い0わせドさい,， 

★柑故の商品は.すべて新品、保趾外付きです> 

★褐躲の商品は充分 HJ 益してありますが、ご注文の隞 
は、在?取の確此のI .、たは.錤行报込で 
お中し込みドさい。令商品クレジットでも扱っております> 
★お中し込みの陬は必ず池站褓*心を叫, Ui してドさい。 
★商 iVK»V,yj れの節はご W 攸ドさい。 

富士銀行八王子支店（普）1752505 


全通販 
国憧売 

北海道から沖縄まで 


※掲載されている商品は全て新品保証付きで1"。 



























































































































COMPUTER 
BANK 


/ 娜 安心と信頼のシステムで新時代を切り開く 


11 ついにベールが剝された/" 

68000 CPU 搭載。ひとつひとつのスペックに新鮮な 
驚きがある。未体験の機能美が 
創造力を刺激する。 



这68000 

注文 NO . A -87 - 


☆ご注文 NOd __ 

''未来派16ビッ ト機 X 68000 フィーバーがやって来る/" 

SHARP CZ-600C (マウス•トラックホール） V 369 000 

ツエ .£~'£ P 0D ¥129:800 

口 計標準価格 - ¥ jl 88 re 0 tr 

¥ 5,000 x 48 回〔ボーナス〕¥ 28,000 x 8 回 

l 2 '¥7,500 x 42 回〔ボーナス〕 ¥21,000>< 7 回 
3 ¥ 9,600 X 48 回〔ボーナス〕無し 

1当社は、 X 680 D 0 の販売認定店です》丨 


今買うと、 

X フロッピーホルダーと 
純正5インチ 2 HD 
ブランクテ: f スゲット 
10枚プレゼント/ 


«眭突あふれるハイコンハクト段1十32ヒットへの柊 n かスムースに行える科来性を見14した68000 CP 
U を li 用メインメモリ (3 .大容ハイトを摞暴换儂（*大 I2M ハイト)し.クロックも I0MHZ とハイスヒー 
卜てす又アート心をらせるクラフィックスは. 65.536色を鏝大 512x512 モート•て同時発色の上.新開 
発スフライト 1C 伶用て烛密てスムースな動さの本格 C G か*しめますステレオタイフの8オクターフ 8* 
和音 FMS 源を採用し，い R2 チャンネルの才■•ティオ出力を使えは.タイナミックなシンセサイサーサウン 
卜の世界か拡かりますもちろん JIS 第丨•第2水蕈肩字は樺*实装日本«処《«能6強力てす 


亡ご注文 NO. S -48 

''表計算•グラフ作成•データ 
ベース機能を一体化し、豊富な 
表現力と関数群を備え、高速 
処理、マウス対応で初心者の 
方から プロフェッショナルの 方 
まで、幅広〈ご使用になれます。〃 


サムシンググッド 


(X 68000 用統合型スフレッドシート） ¥68,000 


① ¥3,300><18回 


②¥4,900 >12叵 


W マルチアーテイストマシン" 


☆ご注文 NQ_ A -114 .NEW Z - BASIC ( CZ -8 FB 03) の搭載で4096色マルチモー K 

''話題の NEW Z - BASIC 搭載の強カマシン X-lturboZn * 64 色 2 画面合成、8重和音 FM 音源、、ビデオデジタイズ機能な 

SHARP CZ -88 ICBK VI 79.800 どをフルサポートされています- 

SHARP CZ-830DBK ( ヵラーディス - ノレィ了 \/> Y 98.000 •内部は、さらに バンク RAM を 64 K パ イトを 追加し、 5 I 2 KB バン 

合計標車価格- ¥2^heetr 


クメモリを棵準でサホートされました- 

複雑な入力も簡単に操作できるマウスを標準装備 

大容置、 IM バイトディスクドライブ2基内蔵. 


(I ¥ 4,500 x 36 回〔ボーナス〕¥ I7,000x 6 回 
2 ¥ 7,000 x 24 回〔ボーナス〕 ¥20, OOOX 4 回 
⑶ ¥1 〇 ,300 x 24回〔ポーナス〕無し 

◎ X - lturboZn 発売記念特別プレゼント付期 W 1月18日〜2丑1〇日」 

今！(うと dB ソフトスーハー春望ビジネス（ワーフ□ソフト） ¥29. 800とXフロッヒーホルダーと純正5インチ 2HD ブランクテイスケット10枚の3点をフレゼント/ 


twirTHE システム 
(PCEngine) 



☆ご注文 NO . A -115 

、、twincom コンピュータ X - ltwin 〃 

SHARP CZ -830 CBK ¥ 99.800 

. SHARP CZ-820DB (カラーディスフレイ TV ) ¥ 79.800 

搭載で楽しさ合計標準価格- 

2倍- 膠▲獅 

0 ¥3,500 X 24回〔ボーナス〕¥ I 3 ,OOOX 4回 
⑵ ¥5,000 x 18回〔ボーナス〕¥ I 4 ,OOOX 3回 
③ ¥7,300 x 18回〔ポーナス〕無し 



(X I ターボ用ワープロソフト 5’2 HD ) 

現金特別価格 一 


¥29.800 

¥9.800 


[ 今買うと X フロッピーホルダーと純正5インチ 2 D ブランクディスケット丨〇枚プレゼント/ , 




どこよりも 

右得な 下取機種 下取差額 

育雨 E) X-IF model 20 . + ¥197 t 000 

固ア X-lturbo model 30 +¥182,000 

返 0 伽 FM-77L2. + ¥187,000 

実施中 / PC-880 IMKDSR model 30+ 57,000 




下取機種 下取差額 

X-IF model 20 . + Y 94,600 

X-lturbo model 30 . + ¥79,600 

FM-77L2. + ¥84,600 

PC-8801 MKD model 30 +¥54,600 


、ソコンのあいたを埋 


•HE ■システム (PC Engine) を内蔵してケーム櫬と厂 
めたニューモデル Joy 力ードも摞準装儀 
•HE システムモート _*X-I モート•又，同時に両方を勛作可能 
•S インチ .320K バイトディスクドライブを I 基搭敝， スーハー インホーズ機 
能内蔵 


MZ -1 P 17 


t!5i3iaoK3g3L 


☆ご注文 NO. B -62 

H 24 ドット熱転写カラー漢字プリンタ w 

kai 以 waiaaxMitiiiHKl 

sharp MZ-IP 1 7+ケープル ^8& r ^0 CT 

現金特別価格 - ¥42.800 




① ¥3,800 x 12回 


② ¥7,400 x 6 回 


わか 


るほど I プソ 


、一•ノチルリーフロ 


Word Dcini も 


\贩 


A 4 サイズの小さなボディに本格スペックを搭載して行動するワープロ、 
Note 誕生。印刷は、会社や自宅のプリンタを利用してブリントアウト/ 
ワードバンクは、携帯しやすぐビジネスのフットワークは軽快です。 



人ご注文 NO. A-IOO 

M 通勤、移動の時間が慂味をもつ、マガジンサイズワープロ〃 

Epson ワード バンク- Note (フラック•レット.ダークフルー） '»!6&r80Cr 


1 ¥ 3,000 x 12回〔ボーナス〕¥ 12,000 X 2回 

2 ¥ 7,000 x 6回〔ポーナス〕¥ I 6,000 X | 回 

3 ¥ 3,400 x 18回〔ボーナス〕無し 

參八4サイズで厚さは 28mm、 貢さはわずか 1.2kg のコンパクト设計。*使用可能プリンタは、エプソンの24 
ビン漢字プリンタと NEC の PC-PR201 系統に接統できます。參液晶ディスプレイは40字 X 5行を表示0 
• 文章一括カナ/ローマ字漢字変換•後追い一括変換•辞窨約13万牾（第2水準含む）•英文ワープ a 
機能標準装備。•時計•アラーム•通信•住所録•スケジュールなどの高機能を集約0 


とこよ D ちお得な 

簡函 TFSIS © 遄=渺実施中/ 


-ドバンク- Note をご購入の場合 


下取 機種 

PC-820I. 

HC-40. 

HC-88. 

PC-880I + 漢字 ROM •… 
PC-880IMKD model30- 


下取差額 

+ ¥32,800 
+ ¥41,800 
+ ¥37,800 
+ ¥38,800 
^ ¥10,800 


その他の商品も取り扱つておりますのでお気軽にお電話下さい, 



U. 巳.クラブ制度_ 

当社で商品をお買い上げの方全員に、 C . B . クラブ 
カードを無料でお送り致します,，この力ードをお 
持ちの方なら次の買い換え時や、周辺機器の購入 
時に会買特別価格でご購入になれます。 

会員専用ホットライン》03(797) 1444 


_ 


シヨール ■ 


〇中古バソコン展示即売中/ 

〇レンタル • リース用 PC -9801 展示中/ 
〇ビジネスソフトのデモ実施中/ 


話題の新製品が全国どこで I 羅で買えるク§3 





















































































SHARP 

CDZ-811C E ( x-1 f モデル i o ) 
V 89,800 1 6,800 
X -1 F モデル 10 ディスプレイセツト 
(本体 + CU - I 4 GE ) 

¥139,600 岭 ¥46,600 



SHARP 

CZ -820 G 巳 （ x-ig モデル 1〇) 

¥ 69,800 峙 K 24,800 w 品同机 
X -1 G モデル 10 RF コン八一タセツト 

(本体+ AN -58 C ) 

¥ 72,780_ Y 27 y 600 
x - iG モテル 1 〇テイスブレイセツト 
(本体 + CU - I 4 GB ) 

¥119,600 岭 Y 54,600 


■ Model 30 I 


CZ -822 CB ( X -1 G モデル 30) 

¥118,000岭 ¥ 69 , 800 劝品向け 

X-1G モデル 30 

デイスブレイセツト(本体 + CU -1 4 GB ) 
¥167,800岭 y 99,600 
X-1G モテル 30 
TV デ<スブレイセツト(本体 +CZ-8M0B) 
¥197,8004 ¥ 109,600 





SHARP 

CZ-870C 巳激 1 。商梯」 

( X - lturboffl ) 

¥168,000 峰 ¥ 79 f 800 
X-lturboID セツト 

( CZ -870 CB + CZ -870 DB ) 
¥276,000 岭 ¥ 145,800 


SHARP 


X - ltu「boZ セツト 

( CZ -880 CB + CZ -880 DB ) 極上特選品 
¥ 327,800_ ¥198,000 


[ 1 

CZ -820 DE . BCZ -8 PK 2 漸 

(1 4 インチ 2000 字 RGBTV ) (| 0 インチ漢字プリンタ） 

¥ 79,800峰 ¥42,800 ¥ 134,800岭 ¥24,800 


^ f 水べ.へ' '斗 . ■' ..い...『-.，、，〜で、 .• 

^叫 


MZ -1 P 17( E •巳） 

(色、グレー•ブラック） 

(80 桁カラー漢字サーマルブリンタ） 

¥76,600蜂 ¥42,800ME 

( XI 用ケーブル付） 
¥76,600疇 Y 46 y 800 W ^\ 
( MZ 2500用ケーブル付） 


SHARP 

本体•ティスプレイ 

MZ - 2000 ( G ラム3ページ付） . ¥273,000岭¥ 25,000 

MZ -2200. ¥128,000岭ゲ 18,000, 

MZ -252 KMZ -2500/30). ¥ 198,000岭ゲ 68,000 

CZ -80 IC ( X - IC ). ¥ 119,800岭ゲ 15,000 

C ?-803 C ( X - ICs ).¥ 119, 8004竽 1 5,000 

CZ -804 C ( X - ICk ) .¥ 139,800 岭デ 18,000 

CZ -8 UCCX - IF / I 0). V 89,800峰 f 15,000 

CZ -80 ID (1 4 インチ2000字 RGBTV ). V 99,800岭ゲ 30,000 

CZ -820 D ( E / B ) (14 インチ 2000 字 RGBTV ) . V 79,800 岭ゲ 39 y 800 

MZ - ID 22( I 4 インチ4050字カラー) . ¥ 108,000岭ゲ 45,000 

CU - I 2 P 1(12 インチ 4050 字カラー） fHH ] . V 118,000 45,000 

〇11-14ド厶（アナログ21ピン） . ¥ 49,800岭ゲ 22,000 

プリンタ 

CZ -8 IP (80 衍カラープロッタプリンタ） . ¥ 34,800岭ゲ 10,000 

CZ -8 PK 2( I 0 インチ 9 ドット漢字フリンタ） . V 134,800 19,800 

MZ - IP 07(80 桁ドットブリンタ） . ¥ 79,800岭ゲ 22,000 

MZ - IPI 4(80 桁ドットブリンタ) . V 54,800岭ゲ 18,000 

CZ -8 PK 4(80 桁漢字プリンタ）國 . ¥ 158,000岭ゲ 49,800 

〇 Z -8 PC 1(80 桁カラー漢字熱転写プリンタ）……¥ 69,800岭ギ 35,000 
MZ - IPI 7(80 桁カラー漢字熱転写プリンタ)……¥ 79,800岭尹 32,000 
その他 

MZ - IV 0 I (イメージスキャナ•ファクシミリ•コヒー) . ¥278,000# ¥148 y 000 


•- v 19,800 6,500 
•- V 158,00 55,000 
- v 7,000岭 y 3,000 
•- V 21 , 8004 y 12,000 
•- V 79,000蜂 y 20,000 
• ¥129,800峰¥ 55,000 
* X - 1シリーズ特選極上品コーナ_ * 

X-IF モデル I 0( CZ - 8 " CE ,» 2 電 tt カセ/トレコータ内 a) J 品(§ 】 《 ¥ 89,800 岭ゲ 16,800 

X-IG モデル IO(C2-820CB.*3*tt カセットレニーダ内 蘆) J 品同せ ¥ 69,800 <4 ゲ 24,800 
XHG モデル 30(CZ-822CE,5*2C.FDDx2,*?ahm[^§5j¥ 118,000蟀 f 69,800 
* デイスプレイ特選極上品コーナー* 


MZ-IT02 (MZ- 2200 専用データレコーダ ) • _ 

fyiZ - IF 07(5 インチ 2 D 2 ドライブ） . 

MZ - IS 05( ディスプレイスタンド） . 

MZ -1 X 22( モデムユニット） . 

CZ -300 F (コンパクトフロッピィ S タイプ） 
CZ _50 IF (5 インチ2ドライブ) . 


X-I ターボ ID ( CZ -870 CB . 5 インチ 2 HDx 2 漢字 Q ム付）. 
MD - I 2 PI ( 12 インチ 4050字 グリーン） I 新高商 毪1 • • 

〇リ-14〇巳（14インチ2000字デジタルカラー〉 | 新品| . 

CU -14 FA ( 14インチ2000字アナ a ク'カラー〉 _ 品] •• 


. ¥ 168,000 岭ゲ 

• V 39,800 峙ゲ 

• V 49,800 蜂ゲ 
•V 49,800 岭ゲ 

CLH4A4(i4 ィ W4050 字アナロクテジタルカラ -)1 ||画 . V 89,800 岭ゲ 

* 特選極上品コーナー* 

CZ—8PP2(S) ( カラーフ □ ッタフリンタ） . V 54,800 岭 f 

CZ-8VC(X-I 用 RF ビデオコンバータ）「新基 ] . V 15,800 峙ゲ 

〇 Z-8PK2O0 インチ 9 ドット漢字フリンタ ..…¥ 134,800 岭ゲ 
MZ-IP09(MZ-i50tw ラーフロッタフリンタ） ! 醒 • ¥ 47,600 岭 y 
MZ-IPI7(E.B) ( 部誇とブぶサーマルフリンタ ) 「新。口 n j ¥ 76,600 岭ゲ 
MZ-IPI7(E.B>®|fo|^niT レフリン ” 「新基 I ¥ 76,600 岭ゲ 
CZ-8PP3(I0 インチ 9 ドットフリンタ）「新 !^ . ¥ 59,800 岭ゲ 


79.800 

29.800 


29.800 

49.800 

15,000 

13.800 

24.800 
25,000 

42.800 

46.800 

19.800 


m 


ir 


C . B •サポートホットライン 
« 03 ( 797 ) 1234 

当社でコンピュータをお買い上げいただいた 
お客様に万一、トラブルが発生した場合、この 
ホットラインで親切に対応いたします。 


£9 


C . B . レスキューシステム 

お客様のお手元でトラブルが発生した場合、当 
社より引取りにお伺い致します。万一、お買い 
になつた機械が故障しても安心です。 


〇掲載の商品はいずれも限定品ですので今すぐお電話下さい c 


★電話1本で高額買取り、即現金お支払い/ ★ 


•コンピュータバンクではあなたの不要になった 
パソコンを電話1本で査定し買取ります。 

• どんな問い合わせにも親切に対応いたします。 

▼本社注文デスク 

003 ( 797)1221 


株式会社パシフィックコンピュータバンク 

〒150東京都渋谷区渋谷 1-6-8 井上ビル 
営業時間 / AM 9:30 〜 IP M 9 :301年中無休 


|全商品保証付 6ヶ月の保証期間だから安心です。 


クレ ジツ トで OK カレッジクレジットも取扱ぃます。 

全国無料配送 全国どこでも配達料はいただきません。 


可 留守の多ぃ方でも安心です。 

高額 下取り 少ない予算で買いかえもラクラク。 


高額買 取り 電話〗本で即、現金お支払ぃ。 

ft 金弓 1®：^ シスラ 1 ■ム 商品到着時の代金支払いで0 K 。 


ボーナスー括払い 商品は即お手元へ、お支払しヽはボーナス時に。 


超優良中古パソコンが電話一本で買える" 


003(797) 

ISSI 


































































































©©©© 全国どこでも送料無料ですぐにお届けいだします > 


メ _Jl シヨ 1 2/ 


■シンブルで使いやすいパソコンラック•テスク•チェアー 


バソコンラック S チェアーセット 
ラック寸法 186001 m 3 段棚 

Vr *ボ_ドの H さを変えることにより、 
|| ディスフレイ台とフ ij ンタ台 

とに 使い分けられます。 

ト メーカー 播準価格 合 8 t 44.000円 

セット麵23,000円 

« " •シートカラー①_色②茶色 


VSSi 


pgf 


ノ^^7ジズテ公デ^! 

J^Il>Z]^ER-1200 

j&p 特価29,800円’ 


^Sl 


l^gl 


M 

サンワ dR -106 | 

メーカー 標準偭格， J 



m 


パソコンチゴアー 
3淑•ミ鼸1^95 


幅120 Ox 高さ650〜1180奥行75〇_ 


J&P 特^ I9T 80013 • 


DSF -992 L 
上『特(155,000円 

幅120 0 %X 高さ 670〜119 0 %x 奥行 800% 

電源コンせント、フックエンド付 


) ： -<^-U395 

キャス ^^ 

6,80 0円 









cnse^i^NEw 




aa 


ナショナル WCH 4511 TV フイ ルター (14 インチ用） 

ノイスフィルター 集中 スイッチ付 栗 レ E フィルター NEW 14 

J&P 特価6,980円 J&P 特価9,600円 


V 

エレ: 



PBTil 


；450 

j&p 特価3,300円 

原稿か見やす<場所を 
とりません。 








5インチケース 3.5 インチケー 

100 枚収納可 80 枚収納可 

J&P 特価2,000円 J&P 特価2,000円 


10インチブリンタスタンド 

J&P 価格3,400円 

※フ 1 J ンタ別売 


MS -3 Q 0 

J&P 特価3,500円 

デイスフレイの角度を 
自由に調整できます。 




■各種切轚器 



1台のフ 1 j ンタと 
2台の/ r ノコンを 
切替えます。 
パソコン切替器 

J & P ® 格9,800円 



pgg 


KSW D 
8ピン RGB 、 

クリーン鏞子付 


J&P 価格9,800円 




KSW C 


MeMj 

BmS 




ディスプレイ切替器 
パソコン1一し J 力5 -J 
パソコン 2_^ K 7 リー：/1 


モデム、 IRS 232 C 切替器 


/又ソコン 


1台の/ V ノコン.で 

2台の RS -232 C 

«器が使えます。 


モデム1 
モデム2 

KSW M 

j&p 価格12,800円 



X -1 ブリンタ切替器 


X - 1 {怒為 


KSW - X 1 


X -1 で2台のブ iJ ンタを 
切替えて使えます。 


J & P 価格 

12,800円 


■電子手帳 

シャープ PA - 7000 
J&P 特偭 17»800円 

これ1台で、 電卓•電話 
帳 • スケジュール • メモ 
• カレンダー 機能が あり 
ます。別売のモジュール 
を使ラことにより、漢字 
辞書や英和 • 和英の 翻択 
俄としても使えます。学 
生、技術者からビジネス 
フンまで 幅広 <お使いい 
ただけます。 




BH 

Bm 


■プリンタ用紙 



東洋紙業10インチ用紙 
(1000枚連続) 

J&P 特価2,500円 

① 白紙②樣 入り 


砂 



ヒサゴ15インチ 用紙 
(500 枚 連縞) 

J&P 価格2,400円 

① 白紙②棟 入り 












■データレコーダ 




_ 深〕—ダ 


CZ -8 RL 1 

J&P 価格24,800円 


■パソコン通價機器 



JSP HOTLINE 

スタータキツト 

J&P 価格3,000円 


/スタータキツト代金3.000円、 
\は入会金に充当され*す。/ 


J&PHOTOUNE 接病* 
に必要な ID 番号とバスワ 
ード•入会串込膳などが入 
つています。買つだその 
日からアクセス可。 





■ 


■フロツビイ 


i^gn -•* ▲ぐ 


シャーブ CZ -503 F インターフェイス 同梱 

J & P ® 格49,800円 x-1 用 外付タイフ 


シャープ CZ - BPC 2 
J&P 価格69,800円 

10インチカラー 熱 転写 
X -1. X - 68000困 


モデム 
ターミナル 

モデムボード+通信ソフト 
CZ -133 SF 

J&P 価格25,800円 


ターボ‘ターミナル 
シャーフ CZ -131 SF 
X -1 ターポ （ H ) 用 

通倡ソフト 

J&P 価格8,800円 


コスモステーション 
シャーフ CZ -136 SF 
J&P 価格9,800円 

X -1 で/ (ソコン通信の 
ホスト局を開けます。 


VSSH 





アイク 

PV - A 1200 MKH 
J&P 特価24,800円 

300(全二重），^〇〇*：全二重） 

自動発着信機能 • RS -232 C ケーフル付 


キヤリーラボ JET 
ターボターミナル9,800円 

VM -12、 CZ -8 TM 1、 

CZ -8 TM 2、 SR -120 AT 、 
PV - A 1200 等に対応 通信 ソフト 














































































1おところ ® □□□□口 

注文 NQ 

数菫 

金 額 


X 2 - ( ) 


円 


X 2 - ( ) 


円 

TEL ( ) 

合 計 


円 

おなまえ 

お手持ちのパソコン 


様 







ールシヨツピンクのお申し込みは 


渋谷店で承ります。 



アーごあんな 


ン教室 




■ち。% 


機 




ぐプ〇セツサ 
k サブ，イ 


ネスパソコン 


3 ン • ， 


■ホビ 



■ディスケット 腳 

_マクセル 

OMD 3- D (10 枚） 1,900円 

© MD -3- DD (〗0 枚)〗0枚）2,400円 
© MD 2-256 HD (1 0枚） 2,500円 

❹ MF 卜 D (10 枚） 4,500円 

© MF 2- D (10 枚） 4,500円 

©MF 卜 DD (10 枚） 4,500円 

© MF 2- DD (10 枚） 5,000円 

© MF 2-256 HD (1 0枚） 8,300円 


卿 


JSP オリジナル 
MD -2 D (20 枚） 

2,000円 


東京04谷区通玄坂2 丁 B 28 .番4舞（〒150; 

0 ( 03 ) 496-4141 
定休：毎週水曜日 


MD -2 HD (10 枚) 2,100円 


MF -2 DD (10 枚） 

4,000円 



■ KMZ - 2500 オプション〉 


MZ -1 E 26' 

J & P ® 格24,800円 

ポイスコミュニケーシ 
ヨンインターフェイス 




£1 





MZ -1 M 10 


J & P 価格10,000円 


J&P 価格14,500円 MZ -1 M 08 

^「パレット MZ -2~ 


MZ -1 R 28 

j & p 価格22,000円 
MZ 2500用、辞 ^ROM 


■ボケコン I アクセサ LI 一 




OCE -124 J & P 特 iffi 4,000円 
PC -1245 〜1360用カセツト|インターフェイス 
@ CE -202 M ! J&P 特価 16,000円 
PC -135( H 360-145( W 500 用 I 16 KB メモリ 
❸ CE -2 H 32 M J & P 特価 28,000円 
PC -136( H 360 K -1460 用 f 32 KB メモリ 
© CE -2 H 16 M J & P 特価 14,000円 
PC -1360-1360 K .1460 用 /16 K 巳メモ U 


■< x -〗/ ターボ オプション〉 


GS3 WBBBpCTEg m 

没 0 ， 

咅漉ボー K y 


gFSTil 


FM 音源ボード 

シャーフ CZ -8 BS 1 J&P 価格23,800円 

X -1 用8霪和音200音色、ステレオサウンドの FM 音源 


立体映像セツト 

らャーフ CZ -8 巳 R 1 

し) & P 価格 29,800円 

X -1/ X -1 ターボシリースにて 
立体映像か楽しめます。 

立体作画ソフト•立体スコーフ付 


マウス 

シャープ CZ -8 NM 2. 
j&p 価格6,800円 
X -1 ，MZ 用 フウス 



カラーイメージボード 


シャーフ CZ -8 BV 2 

J&P 価格39,800円 

画像を自在に修正- 
加工でさます 
画像処理ツール- 
ブラフイツクソフト 
同梱 



OCZ -8 BK 2 X -1 F 第1水準 ROM 19,800円 
© C 2-8 BK 3 X -1 ターボ第2水 _ROM 13,800円 
© CZ - BBK 4 X -1 夕ーポ2第2水準 ROM 6,800円 


現金書留申込み用紙 













































































































ビックヒットソフト 






©¢1)©© 全国どこでも送料無料ですぐにお届けいだします。 


シ3ツ 


スペース八リァー 


注文 Nq 

X 2-100 

適麻機檯 

X 68000 

ソフト八ウス 

電波新聞 



5 〃HD ¥6,800 

超自然現象と正体不明の敵により、凶想 
な魔生物に占領されたドラゴンランドを救 
ろため君は超能力戦士八リア—となり、腹 
生物たちを倒して平和を呼び戻して欲し 
い/人気抜群の 3 D シューティング‘ゲー 
ム。才 U ジナルの臨欐想をそのまま再現/ 


價長の野望(全国版) 



¥9,800(5如) 
ウルテイマ IV 



¥9,800 (5"2 t » 


注文 No 

X 2-101 

適疝檐檯 

X -1 シ 1 J ーズ 

ソフト八ウス 

光栄 


五十有余の群雄が割拠する 
戦田乱世。今、貴方は下剋 
上の乱世に身を投じ、天下 
統一を果たちなければなら 
ない/数々のドラフを秘め 
た武将たちの壮大な歴史叙 
惆特が今、始まる。 


注文 Nq 

X 2-102 

適応'機種 

X -1 シ |J ーズ 

リフトハウス 

ポ ニー 


人の心に弱さと邪心がある 
限り、いつかこの平和にち 
破周が肪れる》これを回避 
するだめに8つの細を備え 
た聖者ア/ K タールの出現を 
待つのであつた。 


反生命粉！アンド n ギユヌス 


■新作ソフ 


ルクソール ラる星やつら 



¥7,800ぼ 2 D ) 


注文 Nq 

X 2-115 

適跖檐種 

X -1 シ U —ズ 

ソフト八ウス 

日本テレネット 


¥7,800(5,2 d) 


注文 nq | 

1 X 2-116 

適喵概種 

X -1 シ 1 J ース 

ソフト八ウス|日本ファルコム 


¥6,800 (5,2 d ) 


注文 NQ 

X 2-117 

適応掇稽 

X -1 シリーズ 

ソフト八ウス 

7 イク□キヤビン 


* アンド□ギュヌス^その名は 
「 TO 性颺育」を*味する • だがお 
3：えはいつたい何«なのだ〒 
「人閜*?それとも概械*?」「女 
性*?それとも男性*?」「慝漢そ 
れとも* I 世主唯一はっきり 
してし\ることは、お前に吞えられ 
た使命「宇宙 US * ヲ企ム半物 M 
蜃 M ウル在破壞 tz 3_<。 W ： P ン 
ド□ギュヌス〃よ、お前は3：だ自 
分が何害であるか知らなし、 


ゲームは、フレイヤーカ*睹 
星あだるになり、アイテム 
を拾いつつ、迷路をつき進 
むといつた典型的な脱出ア 
ドベンチヤーゲームに始ま 
る。 


スーパーレイドック 



¥6,800(5,2 d ) 


注文 N 0 

X 2-118 

通疝機種 

X -1 シリーズ 

ソフト八ウス 

TaE 


640 X 200 ドットの高解像度 
により、 MSX 2 のレイド 
ックに勝るとも劣らない美 
しいグラフィックを実現/ 
( XI turbo のハイレゾリ 
ユーシヨンにも対晒） 


ギャンブラ-自己中心派 ワールドイングス1的 



¥6,800(5'2 d ) ¥11 ，000(5'2 D ) 


注文 No 

X 2-120 

適疝機欞 

X -1 シ U —ズ 

ソフト八ウス 



注文 No 

X 2-119 

遇疝拽檯 

X -1 シーズ 

ソフト八ウス 

ゲームアーツ 


片山まさゆき朗作のコミック「ぎ 
ゆわんぶらあ自己中心派」の個 
性派キャラクタ邃を相手に▽一 
ジャンを打つのがこのソフトで 
す。12人の相手の中から3人を 
選んで典しいゲームを行ラこと 
ができるのがこのゲームの最大 
の特«でしよラ。 


日本と関係深い某国閫の槪密を 
収められた小型 1C カードガ何者 
かによつて、日本国外に持ち出 
された。この 1C カードを奪回す 
ベ<、日本をスタートに各田_ 
報《からの M 資データをペース 
に推利をしてい < 追跡ゲーム。 


注文 Nq 

タイトル 

ソフト八ウス 

逦师機種 

メディア 

価格 

X 2-103 

ムーンチヤイルド 

H 0 T-B 

MZ - 2500 

3.5 "DD 

¥7.800 

X 2-104 

レ 1 J クス 

ボース デンク 

X -1/ F/T 

5〃2 D 

¥7,500 

X 2-105 

三国志 

光栄 

MZ - 2500 

3.5 〃DD 

¥14,800 

X 2-106 

棋 太平 

S - P-S 

MZ - 2500 

3.5 〃DD 

¥7.000 

X 2-107 

八イドライド II 

T & E ソフト 

MZ -2000/ 

2200 

5 # 2 D 

¥6.800 

X 2-108 

レ 1 」クス 

でんば 

X - 68000 

5 HD 

¥7.200 

X 2-109 

トツブル•ジツフ 

ポース テ: / C 7 

X -1/ F/T 

5,2 D 

¥6,800 

X 2-110 

アルバト□ス 

日本ルネ': /K 

X -1/ F/T 

5^2 D 

¥8.800 

X 2-111 

ザナドウ 

日本ファルコム 

X -1/ F/T 

5 # 2 D 

¥7.800 

X 2-112 

棋 太平 

S - P-S 

X -1/ F/T 

5"2 D 

¥6.500 

X 2-113 

□フンシア 

日本ファルコム 

X -1/ F/T 

5"2 D 

¥6.800 

X 2-114 

ザナドウ•シナリオ II 

日本ファルコと 

X -1/ F/T 

5〃2 D 

¥5.800 


注文 Nq 

タイトル 

ソフト八ウス 

適応機攫 

メディア 

価格 

X 2-121 

ゥィザード 1 J 一 3 

アスキー 

XI ターボ 

5 # 2 D 

¥9.800 

X 2-122 

ドラゴンバスター 

デンパ 

X -1/ F/T 

5 M 2 D 

¥6.200 

X 2-123 

ゼビウス 

デンバ 

X - 68000 

5 HD 

¥6.800 

X 2-124 

ラビリンス 

日本 AVC 

X -1/ F/T 

5 M D 

¥7,800 

X 2-125 

夢幻戦士ヴァ IJ ス 

日本ルネ、 i/h 

X -1/ F/T 

5 # 2 D 

¥7.800 

X 2-126 

大戦略 XI 

システムソフト 

X -1/ F/T 

5"2 D 

¥6.800 

X 2-127 

ジーザス 

1ス 

XI ターボ 

5"2 D 

¥7.800 

X 2-128 

ブ□フェツシヨナル麻雀 

シャノアール 

X -1/ F/T 

= r-V 

¥4.800 

X 2-129 

ガルフォース 

スキッ 7 S ラ;^ 

X -1/ F/T 

5 ガ D 

¥7.800 

X 2-130 

カー▽イン 

マイ 

X -1/ F/T 

5,2 D 

¥7.800 

X 2-131 

九 玉 伝 

テクノソフト 

MZ - 2500 

3.5 "DD 

¥7.800 

X 2-132 

ゥィバーン 

ア JU 5/ スゾ7卜 

MZ - 2500 

3.5 "DD 

¥6.800 

X 2-133 

フ□フェツシヨナル麻省 

シャノアール 

MZ - 2500 

3.5 〃DD 

¥6.800 

X 2-134 

ダ•ビンチ 

HAL 研究所 

XI シリーズ 

5"2 D 

¥6,800 

X 2-135 

簷き狼と白き牝鹿 

光栄 

MZ - 2500 

3.5 "DD 

¥8,800 

X 2-136 

ゥィザード， J - 

SIR-TECH 

MZ -2500 

3.5 〃DD 

¥9.800 

X 2-137 

ディーヴァ 

T&E 

XI シリーズ 

5"2 D 

¥7.800 

X 2-138 

殺人クラブ 

リバーヒル 

MZ - 2500 

3.5 T)D 

¥7.800 

X 2-139 

OGRE 

システム V 7 卜 

X 1/ F/T 

5 ”D 

¥6,800 

X 2-140 

女神転生 

日本ルネ' 

X -1/ F/T 

5,2 D 

¥7.800 

X 2-141 

上 海 

システムソフト 

X -1/ F/T 

5^20 

¥6.500 

X 2-142 

ドルアーガの塔 

デンバ 

MZ - 2500 

3.5 "DD 

¥6.800 

X 2-143 

信長の野望(全国版） 

光栄 

MZ - 2500 

3.5 "DD 

¥9,800 

X 2-144 

魔界復活 

ソフト WING 

XI ターボ 

5"2 D 

¥7.800 


•* ( D は新作ソフトの略です〇圆 
















































































































































をコント□—ル。 


強網印字もでき文靈表現も璧かにします《 
(ユーカラ必要） 



' キ ij 卜 1 J 線 ' 


• 記載以外のソフトのご注文も承ります 
ので、詳し<はお電話にてお問い合わ 

せ下さい。 0(03)496-4141 


お申込み先：東京都渋谷区道玄坂 2 丁目 28 番 4 号 (亍 150) 渋谷店メールショッピング係 


渋谷店で承ります。 



東京都治谷区！ M 玄坂 2 丁目 28 番 4 号（〒丨 50) 

a(03)496-4141 く 水曜定休〉 


TURBO PASCAL 

(Ver3.0) 


適疤搛欞 

MZ -2500 

ソフト八ウス 

MSK 


GRAPHICS 


IS 


(3.5"2 DD ) ¥22,000 

最強•低偭格の Pascal コンバイラーが M 
Z- 2500 でもご利用いだだけます。 


印刷工房 





5〃2 D ) ¥25,800 

デしポード同梱、電話に接続するだけ 
7 V ノコン通信が楽しめます。 


日本語ワープロ「将軍 J 


|適砸機種 

X -1 ターボ 

1 ソフトハウス 

シャーブ. 



(5〃2 D ) ¥34,800 

143 万種にち及ぶ多彩な文字表現。本格的 
データベース、表計算機能搭載。 16 ビッ 
トワープロソフト、データペースソフト 
など MS-DOS 上で動 < ソフトとのデ 
一夕互換。 


適応機種 

X -1 ターボ 

ソフト八ウス 

アスキー 



(5〃2 D ) ¥20,000 

エアブラシを含む 14覆 煩のペン先と 37檯 
類のタイトルバターンを用慧しました。 
▽ウスを使って、多彩な纖篥«能で映像 


適 S 機樓 

X -1 ターボ 

ソフト八ウス 

モーリン 



(5"2 D ) ¥14,000 

24 ドットプリンタ以外でも 24 ドット印字 
を可能にします。 1/4 角、網かけ、科体、 

強 MED 字もでき文■表現も■かにします。 
(ユーカラか必要） 



SU P E R 春望 II モデムターミナル 


適応機種 

X -1 シリーズ 

ソフト八ウス 

シャープ 


通跖檐種 

X -1 ターボ 

ソフト八ウス 

デービー ソフト 


適 S 機種 

MZ -2500 

ソフトハウス 

デービー ソフト 





(3.5" D ) ¥34,800 

24 ドットプ| J ンタ以外でも 24 ドット印字 
を可能にします。 1/4 角、網かけ、斜体、 







(5〃2 D ) ¥34,800 

グラフィックエティタや通信嫌能、カー 
ド型データペースなどが付いだ高檐能ワ 
ープロソフト。 


JET ターボターミナル 


適応機種 

X -1 ターボ 

ソフト八ウス 

エス•ビー•エス 



(5"2D) ¥9,800 

オート□グイン • オートタイヤルに檐能、 
ファイル管理、編集もできる通遇ソフト 
日本語入力も強力。 


••‘ 口 •ヶムソ 


/ 3 ン 

卜 * 零 I 




离性能日本 H ワープロ 



(5"2 D ) ¥19,800 

ご定評をいただいている〈即戰力〉ガ H 度 
な«能 • 操作 性にさらに 應 きをかけ、お 
求めやすい偭格で新登蠲です。 


Ena ユーカラ pop 

東泡ク |J エイト XI 5〃2 D 

¥28,000 

xi 用 pop ライターシステム、ビデオ画面の 
_テ□ツブ作成にも使えます。 

Bana 株価分析システム Vermini 

マイク□ポート 5 # 2 D XI tarbo 

¥19,800 

これから/ r ノコンで投霣を始める方に最適。 

カラー印刷キットばれつと 
MZ -2500 ダイナウェア 3.5"2 DD 

¥18,000 


■ビジレス ill 

0 A テック 5〃2 D XI ターボ 

¥68,000 

あらゆるデータをまとめて処理、しかも闔单なコマンドに 
よつて 1 」 レー シヨナルデータペース®理が可能になります。 


Inkpot (マウス付 ） SUPER 春望 II 


P ところ添□□□□口 

TEL C ) 

注文 No (5 ィィス 3) 

数量 

金 額 

X 2 - ( ) 

本 

円 

X 2 - ( ) 

本 

円 

X 2 - 

本 

円 

おなまえ 

様 

合 計 

本 

円 

お手持の機锺名 



■ X - 68000 ゲームソフト コーナー gm 


〇リターン•オブ•イシター 
SPS 5"2 HD 

¥6,800 

©麻雀狂時代スペシャル 

フイクロネット 5〃2 HD 

¥6,800 

❸ T . D.F 

データウェスト 5〃2 HD 

¥6,800 

❹九玉伝 

テクノソフト 5〃2 HD 

¥7,800 

©ザ•ラスベガス 

日本 デクスター 5〃2 HD 

¥9,800 


I 




Iligbiil 


超离性能•龜 R 雖スプレッドシート 


表現力の累_しさに加えて、編集檐能も 
PRO 仕樣。復雑なカラーチェンジから、 
モサイク変換、ソフトフォーカスまで、 
じつ<りと手の込んだ作品を描<ことが 
可能である。 




hi 

Z^sSTAFF PRO B8K ¥58,000 • 


品卜從ス 


く特長〉 

籲一度に 16® までウインドウをオープンできます。 

* 7ウス完全対 JE の簡単なオペレーション。 

• Kamlkaza (神風)はワープロ以上の表現力を持ちます。 
• 簡单にデータをグラフ化することができます。 

¥68,000•品货みッド） 


右の注文書にご希望商品の注文 No . 
および必要事項ご記入の上、現金 
書留にて dtep 渋谷店までお申し 
込み<ださい。現金受領後、発送 
いたします。 

なお、現金書留以外で申し込まれ 
だ場合は貴任を負いかねます。 


お申し込み方法 


X - 68000対応コーナー 


■ビジネスソフトシリーズ 




メー 



■パ:; " oilrnfc :^ ホ 

109 1 ED IBQ ln 

一 

p _ BI 西 a 

r r 

n fsl_ 箱職 _ T: ; f: 


現金書留申込み用紙 






















































































































翕描へ直結 
撤膝指導// 


情報処理技術者第2種の試 
験は，年2回実施され，受験 
者数も19万人となり，今人気 
抜群の国家資格。 0 A 化時代 
の今日，ソフトウエア開発や 
運用にエキスパートが強く求 
められ，有資格者は大変有利。 

本講座なら効率の良い学習 
と添削指導で短期合格が達成 
できます。今こそチャレンジ/ 


第2種情報処理講座 




門学校 

通信教育部 OhX ①係 

〒101東京都千代田区神田駿河台2 — 9研究社ビル4 F 


受講料総合コース （8 力月）40,000円 
期間受験コース （6 力月）32,000円 


S 03-295-5042 


本講座の5大特色 

ill 入門コース併設で，初心者の方でもや 
さし< マスターできます。 

囹試験合格にフトを絞つだ実戦的才りジ 
ナルテキストで，アセンブラ言語 C AS 
L にも対應〇 

囹プログラミング言語は，実務 • 受験に 
有利なフオートランかコボルのどちらか 
を選択できます。 

01駿台電算べテラン講師陣による受験 （ 14 
回）、総合 （ 16回）におよぶ個人別添削指導 
で，特に合格の決め手になる「プログラ 
ミング j を徹底指導。 

1 S 企業研修の一環として受講される場合 
労働省「生涯能力開発給付金制度」の適 
用が受けられます。 

C 特別壜待受講制度） 

籲学生の方には，特別学割受講制度があ 
ります。 

•企業における集団受講 （3 名以上）の 
場合にも割引制度があります。 


日本語処理シリ- 


新発売 


会計編(全)吴字版) 

財務会計に最適なパソコン用ソフト 


籀の神ミ『鋪 


使用パソコン 


■主な特長- 


IX B 8000 ¥ 64,000 
FMT/TT ¥ 68,000 
PC -880 I ¥ 62,000 


■主な仕様- 


送料¥6〇〇 


•入力は入金 • 出金 • 振替で行ないます。諸□による入力も可能 
です。入力時に科目のチェックを行ないますが、データの修正 • 
削除 • 挿入は過去に対しても自由です。日付によ:る整列も可能な 
ので日付順に入力しな < てもよい。 

籲勘定科目は、130余が基本設定すみです。ユーザが再設定する 
こともできます。 

•帳表出力は、データ（入金 • 出金 • 振替による）が入力してあ 
れば、隨時モニター • フ 1 J ンタに出力します。 

•その他オフシヨンとして、売上編 • 仕入編 • 各種経営分析表を 
予定しています。 

•使用フリンタは、シャーフ、 EPSON 、 NEC 、 ブラザーの漢字 
フ U ンタが可能です。シ 1 J アルドツトプリンタは使用できません。 


勘定科目： 200。基本設定130余。12字まで。 

入 力：入金•出金•振替（複合も可） 

金額表示：残高入力時12桁。 

伝票入力9桁。 

モニター • フ 1 J ンタ12桁。 

摘 要：13字（漢字全角）まで。 

漢字入力：辞書によるカナ変換。 

仕訳数(月）：1,000件。 

出力表：科目名 • コード表。仕訳表。現金出納帳。勘定元帳。 

残高試算表。損益計算書。資産•負債 • 資本計算他。 
•福の神会計編の資料ご希望の方は，切手40円 X 10 枚か60円と40円を 
4枚すつ，又は200円の収入印紙2枚をお送り下さい。 


W 籲衾齡 V 2 (カナ版） 

•福の神会計編のカナノ\ージョンです。«理内容は福の神と同じ 
で、モニタ出力、フ 1 J ンタ出力がカナでされます。 


使用パソコン： APPLE - PC -8001 - PC -8801• FM -7 - FM -77 - 
FM -8. FM -11 EX 

イ而格¥56,〇〇〇送料¥6〇〇 


綜 

ム 

資 

料 

研 

究 

社 



T 

T - 

SOFT 


〒120東京都足立区綾瀬 3-3 -2 

第一星ビル801 TEL (03)628-4940 
郵便振替(東京2-124〇 4) 















































! 一 • ェヌ•ェヌの本 


▼近日発売 


XXB 8000 
3 D グラフイツクス入門 


BNN 第二企画部編 B 5 判/予価2,800円 


CG (^ 世界を広げる基礎からの解説 

数ある16ビットパソコンのなかでも最上位に位置するグラフィックス機能を 
持ったシャープ X 680 ㈤ 。本書は、本格的なコンピュータグラフィックスを 
X 68000 上で行う事を目的に、 CG の基礎からを詳細に解説。コンピュー 
タグラフィックスに興味のある方には手放せない1冊です。 


X - BASIC 入門 


トーコーシステム B 5 判変型予価2,800円 


/ \°ソコンフリークの X 一 BASIC 入門書 

マニアックなマシンとして、登場した X 68000。 ハード面では現在のパソコ 
ンの理想ともいうべきスペックを搭載しています 3 本書は、その X 68000 に 
標準で付属じ r いる X - BASIC を使いこなすための X - BASIC 入門書 
です。 X 68000 上で実際にゲームを作っていくことにより、楽しみながら X 
- BASIC が理解できます。 


BNN 


:_〇&__ぴ囊議霪 


好評発売中// 


パワコム使ってますます便利 

フアクシミ _ J 活用法 


企業システム研究所：所長 藤本孝一郎 / A 5 判/定価1,800円 


イメージ情報ステーション MZ -1 V 01 大研究 


「複写機」「プリンタ」「イメージスキャナ」「ファクシ バヮ3し使ってます彥す便利 

ミリ」の4つの機能を併せ持つ「イメージ情報ステ フアクシミリ活用法 
-シヨン MZ - IVOIjo 本書は、この高性能マシン 
の効果的な活用法を紹介します。 





BNN 第二企画部編 / A 5 判/定価1,800円 


NEW - MZ 完全紹介 


PC - 9800シリーズ対応のァ 

可能にするェミュレーシヨン、> 
機能を徹底解説し： 

98用ソフト23本をは 


>9800シリーズ対応のアプリケーションを実行 
，ソフトのコンセプト及び 
乏しました。動作が確認された PC - 
•はじめ、 MZ シリーズ用ソフト、ワ 
ープロソフト「書院」の使い方など、ニューマシン 
'' MZ - 2800"をあらゆる角度から完全紹介。 



Xl-Techknow 


BNN 第二企画部編 / B 5 判/定価3，900円 


最新マシン U X 1 turboz 〃対応 


nHHBHHH 


11 BMWHiBBBBHMBI 




本書は XI の持つポテンシャルを最大限に活用し、 
プログラム作りの楽しさを肌で感じるためのテクニ 
カルノウハウ書です。各種インターフェイスの活用 
法を豊富な図表とサンプルプログラムと共に詳しく 
解説します。 


XI turbo シリーズテクニカルノウ八ウ 


Kl-TechknowH 

_■■■ エツクス*フン•チク^ 


■ XI 始 Zbbwsw 








株式会社ビー•エヌ•エヌ東京都千代田区麴町 4-5 紀尾并町レジデンス 5 F お問い合せ 03(238)1321 営業部まで 



































MS-DOS 環境 on A1B8000 





mmmmx 


ノ 


MS - DOS のアプリケーションソフトが実行可能 

CONCERTO - X 68 K 


アクセスでは、 X 68000 でより多くのアプリケーションをお使い頂ける 
よう、 MS-DOS エミュレータ CONCERTO - X 68 K をお届け致します。 

X 68000 の周りもだいぶにぎやかになって参りましたが、本当に欲し 
いと思うソフトはお揃いでしょうか？このマシンに興味を持ちつつ、自分 
の欲しいソフトがまだでていない…または一から揃えるのは…という 
理由で悩んでいる方も多いのではないでしょうか。 

そこで、この CONCERTO - X 68 K は MS-DOS 上で動作していた 
ソフトを、 X 68000 の 0 S である Human -68 k 上で実行可能とします。たと 
えば、、 MS-DOS 用のソフト MS - C , Lattice C , MS-FORTRAN 等*< 
実行可能ですので、この X 68000 の特長である優れたグラフィックスを 
活かしたプログラムを使い慣れた MS-DOS 下の言語で作成すること 
も可能です。これにより、 X 68000 の世界が更に広がります。 


# 雜緣 

1 / 7ノ？一つ 



特長 

■ 8 MHz の V 30 を使用 

■ メモリは5 12 KByte 搭載 
■オプションで 8087 NDP 実装可能 


※ MS DOS はマイクロソフト社の商標です。 

※製品の仕様、名称は予告なく変更する場合もございますのであらかじめご了承ください 

參 

• 資料のご請求は左の券を切りとリ弊社までお送りください。 



靉アクセス 


〒丨〇丨東京都千代田区神田神保町卜64 
神保町協和ビル 7 F 
003 (233) 0200 ㈣ FAX . 03 (29 1 ) 701 9 
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使えるネットだ/， 



パソコン通倌ネットワークサービス 




1200 bps/ 300 bps サボート区域 


現在活動中の SIG 

プログラムライブラリィ -X-MODEM 
11あにめあんどおたこ 
14文芸百般 

15ァマチュァ無線のひろば 

12 VISUAL& C 

13 SMC FUN CLUB 

16 STAR TREK 

17 M&A NET WORK 

18 コミックハウス 

19 ASTRO-STATION 

20 ファミリーパソコン 

21 FUTURE FORUM 
23 関西インフォメーション 

24 MVP 

25 RPG アイランド 

26 CZ-CLUB 


27 SHARP-HOT LINE 

28 SF-SIG 

29 オーロラビーチクラブ 
100 IBM-PC/JX FORUM 

101サイコロ ジス ト 

102 UBERTY 英語学圍 
103エレクトロニクスライフ 

104 PHARMA COLLEAGUE 

105 WORCOM NET 

106 SCIENCE SCHOOL 
107 気功通信ネットワーク 
108 家族の肖像 

109さわやか理美容 
110 J&P 証券株式会社 

111モータースポーツ 
112デュオニュソス 


かよ用共が全 
もりや通 d 国宅 
知な、一 S 有?! 
れ情受次 S 名 g 
ま報験の赛国3 
せが裏得 g 公 n 
ん聞話点立 g 
よけしの如甬 

•:耳利 

をン 
開ク 




J&PHOTLINE の SIG には 
スグレタ人物が集まってし砀/ 


J&P HOT LINE には、各種の SIG が30種以上。 
小説を書く仲間達や、 SF のファンクラブ。酒飲み 
のための SIG から、心理学の集いまで。バラエテイ 
一豊かに、情報の濃さを競いあっています。すぐれ 
た人物の集まっている J & PHOTLINE 。 あなたも 
仲間になってみませんか？ 




うちのクラブ 
には入部1年目 


の新人も多勢い ' 
ます。いろんな相談 
にお応えできる 
思いますョ 。, 
神戸大学 ^ 

情翱統計部 
田林さん 


f 私は元ブログプ 
，マー 0 C と PROL¬ 
OG を操れる/ 

,みんな、なん 
t でも聞いて 


くれイ 


m 浜市立大学 


大学に入ってもう 
2年。ここだけの話、 
大学の内情、そっと 


^ぉ教: 
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アクセスポイント全国 89 力所// 


東京•大阪 


名古屋•札幌•苫小牧•青森•仙台•山形•水尸 
土浦.鹿島.大宮•船橋•平塚•甲府•千葉•立川 
川崎•横浜•静岡•新潟•金沢•京都•神戸•岡山 
広島•徳島•高松•松江•福岡•長崎•鹿児島•横須賀 
旭川•函館•八戸•盛岡 
早 is •米沢•福島.いわき•郡山•宇都宮•前橋 
高崎.太田•熊谷•八王子•富山•高岡•石川 • 
福井•長野•松本識訪•上田•浜松•沼津•岐阜 
大垣•津•四日市•大津•奈良•和歌山•瑣•貝塚 
尼崎.姬路.米子•福山•津山•異•下関•徳山 
宇部•山□•新居浜•松山•高知•北九州•佐賀 
熊本•大分•宮崎•浦添•豊橋•久留米•佐世保 


教えできるん 


やないかなア/ 


大阪市立大学 


イコン研究会 


ノーマル タイプ(ソフトなし) 

■お 申込先 ¥3,000 

〒556大阪市浪速区日本橋 5-6-7 
上新電機株式会社 
J&P HOT LINE 事務局宛 
TEL (〇 6)632-2521 

■ネッ トワーク利用料金について 

入会金/3,000円 

(スタータ•キット購入の代金から発送されます。） 

接続料/3分あたり20円 

(アクセスポイントまでの電話代は含みません。） 


癱バソコン通信ネットワークサービス 


r 万全のサボート体制で全国をネットするバソコンの大型専門店チ : 


渋谷店東京租渋谷区道玄坂 2 丁目 28 番 4 号 0(03) 496-4141 < ずは店 

町田店東京 S 町田市森野丨丁目 39 番 16 号 0(0427)23-1313 千里中央店 

八王子店縣番八王子市 _1 番 1 号八王子そごう界か 0426)26-4141 摂渾當田店 

テクノランド大阪市浪速区日本播 5 丁目 6 番 7 号 B(06) 634-1211 藤井寺店 
メディアランド大阪市浪速区日本播 5 丁目 8 番 26 号 0(06) 634-1511 岸和田店 
ワープロランド大阪市浪速区日本 椹 4 丁目 9 番 15 号 tt(06) 634-1411 京都寺町店 

ビジネスランド大阪市北区 梅 田 H-3 大阪醜第 3 ビル B2a(06) 348-1881 京都近鉄店 

阪急三番街店大阪币北区芝田 H-3 阪急三番街 Bln(06) 374-3311 姬路店 
高棟店《槻币离摧邱 11 番 16 §0(0726)85-121? 和歌山店 


枚方市桷葉花園町 15 番 2 ^0(0720)56-8181 
8 中市 ® 千里赒 1-3-204 千里サンタウン 3Ffl(06 : 834-4141 
高槻市大畑町 2 4 - 1 0m 0726)93-7521 
藤井寺市岡 2 丁目 1 番 33 号 0(0729)38-21H 
岸和田布土 生町 24 51 -30(0724)37-1021 
TiHIfMn(075) 341-3571 
京 ■ 下京区烏丸通七条下ル東 ® 小綱 702a(075)341-5769 
挪币東 g 末 IT 目 1 番住友生金碰南ビル 1FO(0792)22-1221 
和歌山市元寺町 4 丁目 8 番 1 号 8(0734)28-1441 


























SHARP 


ew-L/fe People 



あふれるクリエイティブマインド —— NEW Z - BASIC 搭載。 


[ _ NEW Z-BASIC 搭載 _| 

多色グラフィック、カラー画像デジタイズ、ステレオ FM 音源、バンクメモリ 
対応などクリエイティブワークを強力にサポートする AV 指向の高水準 
BASIC です> グラフィック用関数、 X 68000 と命令コンパチの拡張 MML 
をはじめ使い込むほどに凄さがわかるパワフルな BASIC を搭敝しました。 

1 先駆の AV アート機能 I 

M : 子化、モザイク、反転などトリック取り込み処理をサポートしたカラー 
画像デジタイズ機能標準装備。さらに、クロマキー合成、インターレー 
ススーパーインポーズ、4,096色対応ニューテロッパ機能、8重和音の 
ステレオ FM 音源:〇先駆の Z アビリテイが:ハ。ソコンクリエイターを魅了しま 
1;•メインメモリ 128 KB 標準実装 ( NEW Z-BASIC で最大 576 K バ 
仆までサポート比た大容量設計 • lM バ仆フロッピー2基搭載 ^JIS 
第1/第2水準漢字、「システム•ューザー辞書」標準装備♦簡単操作 
のマウス標準装備 * X 1 ターボシリーズの豊富なソフト資産が活用で 
きるコンパチブル設計*多彩な通信ツール*のサポートでパソコン通 
信に対応籲ドットピッチ0 .31 關の高精細カラーテ、、イスプレイテレビ*別克 




ノ \- ーソナ■/レコンビュータ+キーポード 

CZ -881 C - BK (ブラック〉 

摞準価格179,800円 

14型カラーデ f スプレイテレビ 

CZ -880 D - BK (ブラック） 

標準価格109,800円 

14型カラーテ V スブレイテレビ 

CZ -830 D - BK (ブラック〉 

檷準価格 

98,000円 

チノレトスタンド 

CZ -6 ST 1- B (ブラック） 

標準価格 

5,800円 


※写真のテ:<•スプレイは CZ -880 D です. 


舞な 9//. つ/女チー^&今十♦お問い合わせは…シャーブ ㈱ 電子槐器事業本部システム機器営楽部〒545大阪市阿倍野区長池町22番22号〇(06)62卜1221(大代表） 

m 子機器事業本部テレビ事業部第4商品企画部〒162東京都新宿区市谷八幡町8番地 S (03)260- H 61( 大代表） 

姿》^^ 雑誌02179-2 T491 0217902546 ㈱II 本ソフトバンクづ SU Printed in Japan 定価 540 円 


























